Bonjour le forum!

J'ai encore un petit soucis avec mes macros Excel.

Je souhaite enregistrer mon fichier, dans un répertoire précis, avec un nom précis.

J'ai défini:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Public devis As String
Public nomfacturation As String
 
Private Sub CommandButton1_Click()
Dim MonFichier As String
 
MonFichier = "GR " & devis & " " & nomfacturation
MsgBox MonFichier 'affichage correct
 
Dim enr As String
enr = Application.GetSaveAsFilename("Z:\DEVIS\" & MonFichier, "Classeur Excel (prenant en charge les macros) (*.xlsm), *.xlsm", Title:="Sauvez moi!", Buttontext:="Enregistrer")
End Sub
Le code n'indique pas d'erreur. Il respecte le type de fichier, le fichier de destination, mais il ne fonctionne pas correctement : le nom de fichier est noté dans la boite de dialogue entre guillemets (contraignant à l'usage) et le plus grave: il n'enregistre pas... J'ai surement oublié le plus important...

Quelqu'un saurait m'aider? Merci d'avance