'Uovre la boite de dialogue "Ouvrir" pour selectionner ton fichier result = Application.Dialogs(xlDialogOpen).Show
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub ListBox1_Click() 'Click sur un nom de fichier provoque l'affichage 'de ce nom dans la cellule "A1" Range("A1") = Sheets("Feuil1").ListBox1.Value End Sub
Sub ChercheFichier() ' Définit le chemin d'accès. MyPath = "C:\Mes documents\TonDossierOuSontLesFichiers" ' Extrait la première entrée. MesNomFichiers = Dir(MyPath, vbDirectory) Do While MesNomFichiers <> "" ' Commence la boucle. If (GetAttr(MyPath & myname) And vbDirectory) = vbdir Then ' Affiche le fichier dans la liste Sheets("Feuil1").ListBox1.AddItem MesNomFichiers End If MesNomFichiers = Dir ' Extrait l'entrée suivante. Loop End Sub Sub effaceListBox() 'Efface la liste Sheets("Feuil1").ListBox1.Clear End Sub