Variable pour Application.Dialogs(xlDialogSaveAs).Show

Question

Bonsoir &#224; toutes et tous,

J'aimerais donner le contenu de ma variable 'monfi' comme nom de fichier par defaut &#224;
cette boite de dialog:

Application.Dialogs(xlDialogSaveAs).Show

D'autre part, peut on lui donner plusieurs nom de fichier(s&#233;lection multiple), 
pour faire appel qu'une seule fois ou doit on faire appel pour chaque fichier.

Merci pour votre aide.

Pascale

jpleroisse · Answer

A ta places, au lieu d'utiliser l'Application.xlDialogs, j'utiliserais un CommonDialog.
Dans cet exemple, je l'ai nomm&#233;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&#233;lectionn&#233; 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&#233;pertoire ou se trouve le fichier, tu le renseigne dans InitDir et le nom du fichier dans FileName.

Quand &#224; s&#233;lectionner  plusieurs fichiers, je ne pense pas que ce soit possible.Mais tu peux mettre la commande "Call Ouvrir" &#224; la fin d'une proc&#233;dure de fa&#231;on &#224; rappeler la bo&#238;te de dialogue automatiquement.

Voil&#224;, j'esp&#232;re que cela pourra t'aider

jpleroisse

Variable pour Application.Dialogs(xlDialogSaveAs).Show

1 réponse

Discussions similaires