ouvrir la boite " enregister sous "

[Mouchty85]

binjour a tous,
je réalise un petit projet et j'aimerai savoir comment faire pour qur quand j'appuie sur un bouton il m'ouvre la boite de dialoque enregistrer sous.

Je vous remercie de votre aide

Mouchty85

 

[nat54]

Re : ouvrir la boite " enregister sous "

Bonjour,

Essaie avec l'enregistreur de macro

 

[Mouchty85]

Re : ouvrir la boite " enregister sous "

ca ne fonctionne que sur mon PC si j'ouvre mon fichier sur un autrePc ca ne fonctionne pas.
Merci comme même de ton aide

 

[Moa]

Re : ouvrir la boite " enregister sous "

Salut Mouchty !

Application.FileDialog(msoFileDialogSaveAs).Show

ou sinon, si tu veux donner un nom de fichier au préalable, ou en core prendre ce nom dans une variable ou cellule :

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Mouchty85\Mes documents\test.xls"

@ +++

ChrisOne

 

[Mouchty85]

Re : ouvrir la boite " enregister sous "

bonjour Moa
j'ai essayer ton premier code mais ca ne semble pas fonctionner et là mes compétence en excel s'arrète. merci de me donner un petit coup de pouce

 

[papapaul]

Re : ouvrir la boite " enregister sous "

Tu peux essayer ca


Private Sub commandbutton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

 

[Moa]

Re : ouvrir la boite " enregister sous "

Re Mouchty !

Quel est le problème exactement ?

Car les deux codes fonctionnent parfaitement, que ce soit celui de Papapaul ou le mien !

C'est du VBA à mettre dans une macro, qui elle-même doit être intégrée dans un module, via VBE et tu associes ta macro à ton bouton via l'évènement "button1_Click()".

Tiens nous au courant.

@ +++

ChrisOne

 

[Mouchty85]

Re : ouvrir la boite " enregister sous "

merci de votre aide c't gentil d'avoir passer tu temps sur mon problème

bonne fin de week end