Discussion :

[operaq]

Bonjour,

J'aimerais créer une macro pour ouvrir la boite de dialogue "enregistrer sous" mais en proposant un chemin d'accès précis.

J'ai trouvé ce code pour le moment mais quelque chose cloche;

Code :

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

1
2
3
Sub SaveDialogFile()
   Application.Dialogs(xlDialogSaveAs).Show ("C:\Users\xxxx")
End Sub

[EngueEngue]

Code :

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

1
2
3
4
Sub toto()
Dim tot As String
tot = Application.GetSaveAsFilename("C:\", FileFilter:="Fichier Texte (*.txt), *.txt", Title:="Vazy Sauvegarde oim par ici")
End Sub

[operaq]

Salut,

Merci de ton aide, par contre lorsque je fais enregistrer rien de s'affiche dans le dossier. Egalement j'aimerais enregistrer en .xls en laissant le choix du nom de fichier à l'utilisateur.

Code :

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

1
2
3
4
Sub Sauvegarder()
Dim sav As String
sav = Application.GetSaveAsFilename("C:\Users\xxxx\Desktop\xxxx\2013", filefilter:="Fichiers Excel (*.xls),*.xls")
End Sub