Ouvrir tous les fichiers dans dossier

Résolu
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011
-
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011
-
Bonsoir,

Je voudrais pouvoir ouvrir tous les fichiers contenu dans un dossier "c:/mon_dossier".

Ce dossier contient des fichiers de differents type .txt .doc .xls ......
Le nombre de fichiers contenu n'est pas fixe. Il est d'environ 20.

5 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Dans le premier cas, çà donnerait ceci :

Il faut placer un contrôle FileListBox sur ta feuille, nommé File1.

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
Dim i As Long
    For i = 0 To File1.ListCount - 1
        ShellExecute Me.hwnd, "open", File1.Path & "" & File1.List(i), vbNull, vbNull, 5
    Next i
End Sub

Private Sub Form_Load()
    File1.Path = "C:\mon_dossier"
End Sub

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Salut,

Tu veux tous les ouvrir dans leur programme associé  (xls avec Excel, doc avec Word, ...) ou bien être capable de lire leur contenu et de le mettre dans des variables ?

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011

oui je voudrais ouvrir chaque fichier avec son programme.
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Valable qu'il y ait 3 fichiers dans le dossier ou 300.
Mais avec 300 fichiers, çà sera un peu long à l'exécution

Manu

--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Messages postés
204
Date d'inscription
vendredi 19 novembre 2004
Statut
Membre
Dernière intervention
1 novembre 2011

Merci beaucoup,

c'est exactement ce que je voulais.