Boite de dialogue enregistrer sous + bouton

J

Jean-Marie

Guest

• 1 Août 2004

• #2

Bonjour Max

Regarde ce lien http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=105704&t=105703.

Remplace "Mon fichier.xls par [Feuil1!A1]

@+Jean-Marie

 

Vote positif 0 Vote négatif

M

Max

Guest

• 1 Août 2004

• #3

Ok c'est nikel pour l'accès à la cellule mais par contre mon fichier ne s'enregistre toujour pas...

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 1 Août 2004

• #4

Bonjour Max, le Forum
re- Jean-Marie

Dans ce cas, je pense qu'il faut utiliser :
Application.Dialogs(xlDialogSaveAs).Show "Mon fichier.xls"

Pour GetOpenFileName, voir Lien supprimé


Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 1 Août 2004

• #5

Bien sur, comme le dis Jean-Marie, il convient de remplacer "Mon fichier.xls" par [Feuil1!A1].

Cordialement,
Didier_mDF

 

Vote positif 0 Vote négatif

M

max

Guest

• 1 Août 2004

• #6

Merci à vous deux vous avez vraiment fait avancer mon projet !

 

Vote positif 0 Vote négatif

M

max

Guest

• 1 Août 2004

• #7

Bonsoir (que le temps passe vite...)
J'ai un dernier petit problème : comment empècher qu'une boite de dialogue contenant "vrai" s'affiche après l'enregistrement ? (ou contenant "faux" si on annule)
Si quelqu'un avait une idée ...
Merci beaucoup.

 

Vote positif 0 Vote négatif

M

max

Guest

• 1 Août 2004

• #8

PS : j'ai utilisé ça :

Sub Enregistrement_auto()
FichierCible = Application.Dialogs(xlDialogSaveAs).Show([ETATCIVIL!A10])
MsgBox FichierCible
End Sub

Merci!

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 2 Août 2004

• #9

Bonjour

En copie le message de nouveau fil de max.

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


Supprime MsgBox FichierCible, ce qui donne
Sub Enregistrement_auto()
Application.Dialogs(xlDialogSaveAs).Show([ETATCIVIL!A10])
End Sub


Autre chose, je t'avais posté un lien et aussi de remplacer "Mon fichier.xls par [Feuil1!A1], après discussion sur le chat avec, je te conseille d'écrire plustôt ceci
Application.Dialogs(xlDialogSaveAs).Show(Worsheets ("ETATCIVIL").range("A10"))

@+Jean-Marie (sur ce fil de discussion)

 

Vote positif 0 Vote négatif

M

Max

Guest

• 2 Août 2004

• #10

Ok merci beaucoup !
En fait ça doit éviter à la "fonction" de renvoyer une valeur (vrai ou faux) pour FichierCible non ?
En tout cas merci c'est bien pratique ...

 

Vote positif 0 Vote négatif