VBA enregistrer sous

[mc_guiloo]

Bonjour,

Je découvre le VBA aujourd'hui à travers différents forums, en voulant forcer l'utilisateur à enregistrer le fichier avec un nom particulier dans un reperoire particulier lorsqu'il essaye de fermer le classeur excel

Pour cela j'utilise :Application.Dialogs.Item(xlDialogSaveAs).Show CStr(Nom)
Cependant, je n'arrive pas à forcer le dossier d'enregistrement.

Merci de votre aide

 

[fhoest]

Re : VBA enregistrer sous

bonjour
essai avec application.GetSaveAsFilename
a+

 

[Hulk]

Re : VBA enregistrer sous

Hello,

Questions :

1) Nom c'est quoi ?
Le fichier Excel ou le dossier où tu veux sauver le fichier Excel ?

2) Nom = "Blablabla" ? ou Nom = Range("??")

 

[mc_guiloo]

Re : VBA enregistrer sous

Merci pour vos réponses,
Nom c 'est juste le nom de mon fichier excel, et du genre
Nom = "blabla" & Range()
Mais avec que le nom je n'ai pas de problème, c'est pour qu'il prenne aussi en compte le dossier dans lequel le fichier doit etre enregistré

PS : fhoest j'essaierai demain quand j'aurai à nouveau le fichier sous les yeux

 

[Guiv]

Re : VBA enregistrer sous

Bonsoir à tous,

Et comme ça...?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Nom As String
Nom = "Blabla" & Range("A1")
ThisWorkbook.SaveAs Filename:="C:\...[I]chemin à adapter.[/I]...\..............\" & Nom & ".xls"
End Sub

Cordialement,
Guiv