Excel Downloads Forums - Afficher un message - migration filesearch excel 2002 vers 2007

MichelXld · 15/06/2007, 17h02

rebonjour

Tu peux utiliser cette procédure qui fonctionnera aussi pour les versions Excel antérieures:

Code:

Dim Chemin As String, Fichier As String

Chemin = "C:\dossier\"
Fichier = Dir(Chemin & "*.xls")

Do While Fichier <> ""
    ComboBox1.AddItem Fichier
    Fichier = Dir
Loop

Bon week end
MichelXld

15/06/2007, 17h02	#6 (permalink)
MichelXld XLDnaute Barbatruc Date d'inscription: février 2005 Messages: 3 702	Re : migration filesearch excel 2002 vers 2007 rebonjour Tu peux utiliser cette procédure qui fonctionnera aussi pour les versions Excel antérieures: Code: Dim Chemin As String, Fichier As String Chemin = "C:\dossier\" Fichier = Dir(Chemin & ".xls") Do While Fichier <> "" ComboBox1.AddItem Fichier Fichier = Dir Loop Bon week end MichelXld*