romainchu78
XLDnaute Occasionnel
Bonjour a tout le forum,
J'ai trouve cette procedure pour appeler une boite de dialogue de sauvegarde de maniere a sauver un fichier.
le probleme avec cette procedure c'est que je lorsque je veux recuperer le chemin complet du fichier sauve, il conserve seulement celui du premier fichier.
par exemple, si je sauve un autre fichier, il m'affichera toujours le chemin et le nom du premier fichier enregistre.
Ce que je souhaiterais a faire est de recuperer le chemin du nouveau fichier mais aussi le nom.
Sub SaveAs()
SendKeys ("test.xls")
Application.Dialogs(xlDialogSaveAs).Show
'MsgBox Application.FileDialog(msoFileDialogFilePicker).InitialFileName
'MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
'MsgBox Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
'MsgBox Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub
et la je suis dans l'impasse..
cordialement,
Romain
J'ai trouve cette procedure pour appeler une boite de dialogue de sauvegarde de maniere a sauver un fichier.
le probleme avec cette procedure c'est que je lorsque je veux recuperer le chemin complet du fichier sauve, il conserve seulement celui du premier fichier.
par exemple, si je sauve un autre fichier, il m'affichera toujours le chemin et le nom du premier fichier enregistre.
Ce que je souhaiterais a faire est de recuperer le chemin du nouveau fichier mais aussi le nom.
Sub SaveAs()
SendKeys ("test.xls")
Application.Dialogs(xlDialogSaveAs).Show
'MsgBox Application.FileDialog(msoFileDialogFilePicker).InitialFileName
'MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
'MsgBox Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
'MsgBox Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End Sub
et la je suis dans l'impasse..
cordialement,
Romain