Ouverture fichiers (vba excel)

[Résolu/Fermé]
Signaler
Messages postés
184
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
18 août 2012
-
Messages postés
184
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
18 août 2012
-
Bonjour,

J'ai un petit souci avec ce code:

Private Sub CommandButton1_Click()
x = GetDirectory
ligne = Dir(x & "\" & "*.xls")
'Ou en indiquant directement le disque et le type de fichier
'Dir("D:\Dossier\*.xls") ou Dir("D:\Dossier\*.doc")
'ou tous les types :
'ligne = Dir("D:\Dossier\*.*")
Do While ligne <> ""
DoEvents
ligne = Dir()
ListBox1.AddItem ligne
Loop
End Sub

Private Sub CommandButton3_Click()
Unload Fichiers
End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If mbDisableEvents Then Exit Sub
mbDisableEvents = True
With Me.ListBox1
If .ListCount > 0 Then
If .ListIndex = .ListCount - 1 Then
.ListIndex = .ListCount - 1
End If
End If
End With
mbDisableEvents = False
End Sub
Private Sub CommandButton2_Click()
'pour ouvrir le Classeur sélectionné
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
End Sub

En modifiant la ligne: = Dir(x & "\" & "*.xls") par "*.*", je ne sais pas comment codé
le deuxième bouton pour que je puisse ouvrir tous types de fichiers.

Merci d'avance pour votre aide.

4 réponses

Messages postés
1596
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
21 décembre 2020
757
IL TU SUFFIT D4OUVRIRE SEULEMENT LE DOSSIER SANS SPÉCIFIER LE TYPE DE FICHIER
Messages postés
184
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
18 août 2012
10
Bonjour hich,

je ne comprend pas (novice).

Tu veux bien me montrer s'il te plaît?

Messages postés
1596
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
21 décembre 2020
757
salut , un plus d'explication sera le bien venu
c'est quoi le rôle de chaque buttons ? , sur la même feuille ?,
Messages postés
184
Date d'inscription
samedi 21 janvier 2006
Statut
Membre
Dernière intervention
18 août 2012
10
J'ai fini par trouvé le code qui me permet de réalisé le souhait demandé.