Variable pour Application.Dialogs(xlDialogSaveAs).Show
cs_Pascale55
Messages postés1Date d'inscriptionjeudi 28 avril 2005StatutMembreDernière intervention28 avril 2005
-
28 avril 2005 à 20:21
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 2006
-
29 avril 2005 à 07:23
Bonsoir à toutes et tous,
J'aimerais donner le contenu de ma variable 'monfi' comme nom de fichier par defaut à
cette boite de dialog:
Application.Dialogs(xlDialogSaveAs).Show
D'autre part, peut on lui donner plusieurs nom de fichier(sélection multiple),
pour faire appel qu'une seule fois ou doit on faire appel pour chaque fichier.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 29 avril 2005 à 07:23
A ta places, au lieu d'utiliser l'Application.xlDialogs, j'utiliserais un CommonDialog.
Dans cet exemple, je l'ai nommée cmd.
Sub Ouvrir()
Dim monfi
monfi = "Rechercher un fichier"
With Feuil1.cmd
.DialogTitle = monfi
.CancelError = True
.Filter = "Tous les fichiers(*.*)|*.*"
.InitDir = "C:"
.FileName = ""
On Error GoTo Annuler
.ShowSave
End With
Annuler: MsgBox "Vous n'avez sélectionné aucun fichier !", vbOKOnly + vbInformation, "Message"
End Sub
Pour cet exemple, je n'utilise pas de UserForm, la CommonDialog est directement sur la feuille.Si tu connais le répertoire ou se trouve le fichier, tu le renseigne dans InitDir et le nom du fichier dans FileName.
Quand à sélectionner plusieurs fichiers, je ne pense pas que ce soit possible.Mais tu peux mettre la commande "Call Ouvrir" à la fin d'une procédure de façon à rappeler la boîte de dialogue automatiquement.