Discussion :

[valou94250]

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

[kiki29]

Salut, [F1] sur GetSaveAsFilename

Cette méthode affiche la boîte de dialogue standard Enregistrer sous et lit un nom de fichier tapé par l'utilisateur sans réellement enregistrer les fichiers.

L'enregistreur de macros t'apportera la syntaxe correcte qu'il te faudra ensuite adapter à ton contexte

[valou94250]

Merci pour cette prompte réponse!

Il me manquait effectivement un petit bout de code et la donnée principale :"GetSaveAsFilename ne sert pas à enregistrer!" Encore une fois merci!