M
max
Guest
Bonjour tout le monde.
Je retape ma question qui était à la fin d'un autre post et que personne n'a du voir :
J'ai créé un bouton qui ouvre une boite de dialogue enregistrer sous avec le nom à donner au fichier déjà tapé (récupéré dans la feuille de calcul). J'ai utilisé ça :
Sub Enregistrement_auto()
FichierCible = Application.Dialogs(xlDialogSaveAs).Show([ETATCIVIL!A10])
MsgBox FichierCible
End Sub
avec [ETATCIVIL!A10] la cellule où se trouve le nom du fichier.
Seul problème : à la fin de l'enregistrement, une boite de dialogue contenant "vrai" s'affiche, il faut alors cliquer sur OK, ce qui n'est pas vraiment important mais quand même un peu dérangeant... De même, si on annule l'enregistremement, une boite de dialogue "faux" s'affiche.
Quelqu'un aurait-il une solution ?
Merci de votre aide...
Je retape ma question qui était à la fin d'un autre post et que personne n'a du voir :
J'ai créé un bouton qui ouvre une boite de dialogue enregistrer sous avec le nom à donner au fichier déjà tapé (récupéré dans la feuille de calcul). J'ai utilisé ça :
Sub Enregistrement_auto()
FichierCible = Application.Dialogs(xlDialogSaveAs).Show([ETATCIVIL!A10])
MsgBox FichierCible
End Sub
avec [ETATCIVIL!A10] la cellule où se trouve le nom du fichier.
Seul problème : à la fin de l'enregistrement, une boite de dialogue contenant "vrai" s'affiche, il faut alors cliquer sur OK, ce qui n'est pas vraiment important mais quand même un peu dérangeant... De même, si on annule l'enregistremement, une boite de dialogue "faux" s'affiche.
Quelqu'un aurait-il une solution ?
Merci de votre aide...