Bonjour à tous,
J'ai dans ma macro export le code suivant :
Option Explicit
Sub Exporter()
Dim s As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("ANALYSE")).Copy
With ActiveWorkbook
For Each s In .Sheets: s.DrawingObjects.Delete: Next
.SaveAs ThisWorkbook.Path & "\NS", 51
.Close
End With
ActiveCell.Activate
End Sub
J'ai deux questions :
1. Comment supprimer les validations de données (liste) dans mon export ?
2. Comment remplacer le nom du fichier (ici "NS) par le contenu d'une ou plusieurs cellules ?
Merci pour votre aide.
Bonne journée,
Piaf79
J'ai dans ma macro export le code suivant :
Option Explicit
Sub Exporter()
Dim s As Object
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("ANALYSE")).Copy
With ActiveWorkbook
For Each s In .Sheets: s.DrawingObjects.Delete: Next
.SaveAs ThisWorkbook.Path & "\NS", 51
.Close
End With
ActiveCell.Activate
End Sub
J'ai deux questions :
1. Comment supprimer les validations de données (liste) dans mon export ?
2. Comment remplacer le nom du fichier (ici "NS) par le contenu d'une ou plusieurs cellules ?
Merci pour votre aide.
Bonne journée,
Piaf79