recup chemin du enregistrer sous

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+++

merci pour l'info c'est cool

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

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+++