Bonjour au forum,
J'ai écrit une macro pour forcer l'utilisateur en enregistrer le classeur avec un nom précis, et ce seulement si le fichier de départ est "Medele Tableau.xls".
Cependant, après l"enregistrement, Excel me retourne un message d'erreur me proposant de récupérer mes données non enregistrées, ainsi que d'envoyer un rapport d'erreur à microsoft. toutefois, l'enregistrement à été réalisé avec succès. Une idée ?
Mon code :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fName
Dim Chemin As String
If ThisWorkbook.Name <> "Modele Tableau.xls" Then Exit Sub
Chemin = ThisWorkbook.Path & "\Tableau " & Range("Feuil2!H3").Text & ".xls"
fName = Application.GetSaveAsFilename(InitialFileName:=Chemin)
If fName <> False Then ThisWorkbook.SaveAs FileName:=fName
End Sub
Merci d'avance
Guilhem
J'ai écrit une macro pour forcer l'utilisateur en enregistrer le classeur avec un nom précis, et ce seulement si le fichier de départ est "Medele Tableau.xls".
Cependant, après l"enregistrement, Excel me retourne un message d'erreur me proposant de récupérer mes données non enregistrées, ainsi que d'envoyer un rapport d'erreur à microsoft. toutefois, l'enregistrement à été réalisé avec succès. Une idée ?
Mon code :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fName
Dim Chemin As String
If ThisWorkbook.Name <> "Modele Tableau.xls" Then Exit Sub
Chemin = ThisWorkbook.Path & "\Tableau " & Range("Feuil2!H3").Text & ".xls"
fName = Application.GetSaveAsFilename(InitialFileName:=Chemin)
If fName <> False Then ThisWorkbook.SaveAs FileName:=fName
End Sub
Merci d'avance
Guilhem
Dernière édition: