Office OpenDialog Résolu

Question

Bonjour, 

J'aimerai que ma boite de dialogue d'ouverture de fichier s'ouvre automatiquement sur un répertoire spécifié, quelle est la syntaxe à ajouter pour cela? Merci d'avance .


Function SelectionFichier01() As String
  Dim fd As Office.FileDialog
  
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
  
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez le fichier téléchargé"
  
  fd.Filters.Clear
  fd.Filters.Add "CSV", "*.csv"
  
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
  
  ' Afficher la boîte de dialogue
  If fd.Show() Then
    SelectionFichier01 = fd.SelectedItems(1)
  End If
  Set fd = Nothing
End Function


Configuration: PC1: MSI P45 Neo (Ms-7519) - IntelCore 2Duo E8500 3175Mhz + 3GB RAM.
     CG: nVidia 8800 GT 1650Mhz + 512Mb 950hz

PC2: Asrock P4i45e - Intel Pentium III 2.6Ghz @ 3Ghz + 1GB RAM
     CG: nVidia MX 440 270Mhz @ 350Mhz + 128Mb

tuxboy · Answer

fd.InitialFileName = "c:	on_repertoire\"

Office OpenDialog

1 réponse

Newsletters