Ouvrir tous les fichiers dans dossier

Résolu
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011 - 22 sept. 2006 à 21:49
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011 - 22 sept. 2006 à 22:15
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

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
22 sept. 2006 à 22:05
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.
3
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
22 sept. 2006 à 21:58
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.
0
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011
22 sept. 2006 à 22:02
oui je voudrais ouvrir chaque fichier avec son programme.
0
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
22 sept. 2006 à 22:06
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_snake57 Messages postés 204 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 1 novembre 2011
22 sept. 2006 à 22:15
Merci beaucoup,

c'est exactement ce que je voulais.
0
Rejoignez-nous