Par userform je n'ouvre qu'un seul fichier excel ?

thierry440

XLDnaute Junior
Bonsoir
dans mon userform je liste bien les fichiers d'un repertoire , mais un seul s'ouvre ?

Merci d'avance
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
Re : Par userform je n'ouvre qu'un seul fichier excel ?

Bonsoir thierry,

d'après ce que j'ai compris tu utilise la valeur d'une combo, donc 1 fichier.

fait un test avec ceci:

Code:
Private Sub UserForm_Initialize()
  Me.ComboBox1.Clear
  nf = Dir("D:\Dossiers Excel\Divers\" & "*.*")
  Do While nf <> "": Me.ComboBox1.AddItem nf: nf = Dir: Loop
End Sub

Private Sub ComboBox1_Change()
Dim chemin As String, fichier As String

    chemin = "D:\Dossiers Excel\Divers\"
    fichier = Me.ComboBox1.Text
   
  Workbooks.Open Filename:=chemin & fichier
  Unload Me
End Sub
EDIT: Je viens de faire un test du classeur en mettant comme ceci : nf = Dir("D:\Dossiers Excel\Divers\" & "*.*"); j'ai tous les fichiers dans la combo.


A+ :cool:
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas