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

[thierry440]

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

Merci d'avance

 

[Lone-wolf]

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:

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+

 

[thierry440]

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

bonsoir,
essai à l'instant c'est parfait .

Merci