erreur GetSaveAsFilename

Re : erreur GetSaveAsFilename

C'est bon, j'ai enfin trouvé la solution.
L'erreur était due au fait que l'on ne désactivait pas la sauvegarde du au clic sur le bouton enregistrer. Du coup, il voulait enregistrer deux fois mon classeur.
La solution consiste à placer un
application.enablevents = False

Voici donc mon code si ca peut servir un jour à quelqu'un

'**************Suggère un nom d'enregistrement*************
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fName
Dim Chemin As String

'on ne propose un enregistrement particulier que pour le modèle
If ThisWorkbook.Name <> "Modele Tableau.xls" Then Exit Sub

Chemin = ThisWorkbook.Path & "\Tableau " & Range("Feuil2!H3").Text & ".xls"

'on annule l'enregistrement en cours
Cancel = True

Application.EnableEvents = False 'pour ne pas tenir compte de l'annulation
fName = Application.GetSaveAsFilename(InitialFileName:=Chemin)

'si l'utilisateur clic sur annuler, on annule la sauvegarde
If fName = False Then
Cancel = True
Exit Sub
End If

ThisWorkbook.SaveAs FileName:=fName

Application.EnableEvents = True
End Sub