djkrom2003
XLDnaute Nouveau
Bonjour à tous j'ai décidé d'améliorer une macro afin qu'elle s'enregistre automatiquement selon des variables.
Mais à l'exécution de cette macro le fait que dans l'adresse d'enregistrement il y ai une variable le perturbe énormément....
je veux bien de l'aide svp....
Mais à l'exécution de cette macro le fait que dans l'adresse d'enregistrement il y ai une variable le perturbe énormément....
je veux bien de l'aide svp....
Code:
Dim Monfichier, Jour, Question, Client, Datevisite, Objet
Application.CutCopyMode = False
Client = Range("d8")
Datevisite = Range("k12")
'demande d'enregistrement d'automatique
Question = MsgBox("Voulez vous enregistrer automatiquement le fichier?", vbYesNo + vbQuestion + vbDefaultButton2, "")
If Question = 6 Then
On Error Resume Next
MkDir "P:\Mes documents\Compte rendu de visites\" & Client 'si le repertoire n'existe pas, la creation se fait
On Error GoTo 0
Monfichier = "P:\Mes documents\Compte rendu de visites\ " & Client & " - " & Datevisite ' je lui indique que le fichier sera appeler sous vba Monfichier, voir plus haut la déclaration de variable dim"
Monfichier = Monfichier & ".xls" ' definition de l'extension .xls
Objet = Client & "-" & Datevisite
ThisWorkbook.SaveCopyAs Monfichier
MsgBox "Sauvegarde terminée."