ultra60sam
XLDnaute Nouveau
Bonjour à tous,
Je suis débutant dans le monde du vba et je rencontre un problème.
J'ai créé un bouton de sauvegarde pour mes devis, je voudrais que quand je clique sur le bouton enregistrer cela me l'enregistre dans un dossier avec le numéro du devis qui se trouve en R1 et le nom du client en E9. Sauf que quand je vérifie la macro cela me met ce message d'erreur sur la ligne en rouge en surlignant la parti en bleu:
Erreur de compilation: attendu: fin d'instruction
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 = "E:\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.["devis "] & Range#"R1"# & "_" & Range#"E9"# & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
Merci de votre aide.
Je suis débutant dans le monde du vba et je rencontre un problème.
J'ai créé un bouton de sauvegarde pour mes devis, je voudrais que quand je clique sur le bouton enregistrer cela me l'enregistre dans un dossier avec le numéro du devis qui se trouve en R1 et le nom du client en E9. Sauf que quand je vérifie la macro cela me met ce message d'erreur sur la ligne en rouge en surlignant la parti en bleu:
Erreur de compilation: attendu: fin d'instruction
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 = "E:\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.["devis "] & Range#"R1"# & "_" & Range#"E9"# & extension
With ActiveWorkbook
.ActiveSheet.DrawingObjects.Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
Merci de votre aide.