Discussion :

[binouse18]

Bonjour tout le monde.
Voila j'ai pas mal cherché sur le forum une réponse à ma question mais je n'ai rien trouvé c'est pour cela que je vous la soumet.

Je cherche un code qui aurait les mêmes effets que le code Getsaveasfilename
mais en enregistrant réelement le classeur.
Je vous remercie de votre aide.

[jfontaine]

C'est peut être ce que tu cherches

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ActiveWorkbook.SaveAs ("c:\test.xls")

[binouse18]

En fait moi ce que je voudrais c'est que la macro ouvre la boite de dialogue "enregistrer sous" avec un nom de fichier proposé pour l'enregistrement.
Il faut que je puisse changer le nom de fichier et le chemin d'accés dans ce boite de dialogue avant d'enregistrer
Merci pour ton aide

[jfontaine]

Peut être comme ca, c'est inspiré de l'exemple que fournis excel sur GetSaveAsFilename

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim strFile As Variant
 
strFile = Application.GetSaveAsFilename("d:\temp\test.xls")
If strFile <> False Then
    Application.ActiveWorkbook.SaveAs (strFile)
End If

[binouse18]

C'est parfait je te remercie