Bonjour tout le monde
Je n'arrive pas a enregistrer mon fichier de telle sorte à ce que extension soit ".xlsm" (prenant en charge le macro)
Voici mon code :
Sub sauvegarder()
Dim extension As String
Dim chemin As String,
Dim nomfichier As String
extension = ".xlsx"
chemin = "C:\Users\Greg\Documents\"
nomfichier = ActiveSheet.Range("A6") & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
End Sub
Je pensais qu'il suffisait de mettre .xlsm pour que celui ci l'enregistre sous forme de fichier excel macro mais ce n'est pas le cas :s
Pourriez vous m'aider s'il vous plait ? Je vous en serai très reconnaissant
Merci d'avance !
Je n'arrive pas a enregistrer mon fichier de telle sorte à ce que extension soit ".xlsm" (prenant en charge le macro)
Voici mon code :
Sub sauvegarder()
Dim extension As String
Dim chemin As String,
Dim nomfichier As String
extension = ".xlsx"
chemin = "C:\Users\Greg\Documents\"
nomfichier = ActiveSheet.Range("A6") & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier
End With
End Sub
Je pensais qu'il suffisait de mettre .xlsm pour que celui ci l'enregistre sous forme de fichier excel macro mais ce n'est pas le cas :s
Pourriez vous m'aider s'il vous plait ? Je vous en serai très reconnaissant
Merci d'avance !
Dernière édition: