Sélectionner des fichiers ou des dossiers

Il peut être extrêmement pratique de pouvoir accéder aux boîtes de dialogues standard d'Office telles que Fichier//Ouvrir ou Enregistrer sous, afin de sélectionne un dossier, ou un/plusieurs fichiers.

Choix d'un dossier

L'exécution de ce code affichera la boîte de dialogue standard de choix d'un dossier :

Sub Test1
   Application.FileDialog(msoFileDialogFolderPicker).Show
End Sub

On peut ensuite l'afficher avec un MsgBox :

Sub Test1()
  Dim Dossier
  Application.FileDialog(msoFileDialogFolderPicker).Show
  Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
  MsgBox Dossier
End Sub

Sélection d'un seul fichier

Sub Test1()
  Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
  Application.FileDialog(msoFileDialogFilePicker).Show
  MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
End Sub

Sélection de plusieurs fichiers

Count contient le nombre de fichiers (On commence par 1, pas par 0)

Sub Test6()
  Dim Ctr
  Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = True
  Application.FileDialog(msoFileDialogFilePicker).Show
  For Ctr = 1 To Application.FileDialog(msoFileDialogFilePicker).SelectedItems.Count
    MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(Ctr)
  Next
End Sub

Boîtes de dialogues "Save As" et "Open"

Save As

Il est possible d'afficher la boîte de dialogue Save As comme ceci :

Application.FileDialog(msoFileDialogSaveAs).Show
MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

Le fonctionnement est pareil, sauf que à la place du bouton OK, on a un bouton Save As. Si on sélectionne un fichier existant déjà, on a le message traditionnel "Voulez-vous écraser le fichier" existant, mais évidemment, il n'écrase rien du tout, même si on dit oui.

Attention : Dans Excel, j'ai constaté que la méthode précédente montrait bien le bouton Enregistrer, mais il n'enregistre pas. La méthode suivante permet de prédéfinir un nom de fichier, et l'enregistrement se passe correctement :

SendKeys ("Offre de formation")
Application.Dialogs(xlDialogSaveAs).Show

Open

Application.FileDialog(msoFileDialogOpen).Show
MsgBox Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

Récupération du nom du dossier contenant le fichier sélectionné

Contrairement à ce qu'on pourrait imaginer, InitialFileName renvoie le DOSSIER.

Sub Test1()
  Application.FileDialog(msoFileDialogFilePicker).Show
  MsgBox Application.FileDialog(msoFileDialogFilePicker).InitialFileName
End Sub

---