Bonjour,
J'ai un classeur Excel qui comprend plusieurs feuilles.
J'aimerais enregistrer les deux première feuille en lui donnant un nom et le chemin.
Comme code j'ai ceci qui fonctionnerais sauf qu'il y a un message d'erreur
Impossible d'utiliser cette extension avec le type de fichier sélectionné............
Je suis sur Excel 2013
Mon code:
Sub Enregistrer()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsm"
chemin = "C:\Users\Max\Desktop\test\"
nomfichier = ActiveSheet.Range("A1") & "_Carte_" & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
Merci de votre aide
Cordialement
Max