recup chemin du enregistrer sous

[vinc26]

slt
je voudrait savoir le nom du fichier avec le chemin quand on valide l'enregistrer sous
exemple j'ai ouvert un fichier toto.xls
la personne fait enregistrer sous mais en metttant titi
je voudrait recuperer le chemin complet avec le nom du nouveau fichier de creer
merci d'avance
vinc

 

[Zon]

Salut,

L'évènement beforesave de thisworbook permet de controler l'enregistrement d'un fichier:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
dim Ch
cancel=true 'désactive l'enregistrement classique
ch=sauvf("Unnomdefichier","Fichier Excel(*.xls),*.xls")
msgbox ch 'affiche le chemin
'pour enregsitrement
if ch<>false then
application.enableevents=false
thisworkbook.saveas ch
application.enableevents=true
end if
end sub

Function SauvF(ByVal NomF$, ByVal Filtre$)
SauvF = Application.GetSaveAsFilename(NomF, Filtre)
End Function


A+++

 

[vinc26]

merci pour l'info c'est cool

 

[vinc26]

le souci c'est que mainteenant la boite de dialogue apprait meme quand je fait enregistrer
mais je je veut uniquement quand je fait enregistrer sous
merci
d'avance

 

[Zon]

Salut,

Dans ton cas il faut rajouter :

if saveasui then '<---ici
cancel=true 'désactive l'enregistrement classique
ch=sauvf("Unnomdefichier","Fichier Excel(*.xls),*.xls")
msgbox ch 'affiche le chemin
'pour enregsitrement
if ch<>false then
application.enableevents=false
thisworkbook.saveas ch
application.enableevents=true
end if
end if '<---ici

A+++