Discussion :

[lena2019]

Bonjour à tous les membres du forum,

Je suis new utilisatrice des macros sur excel et je rencontre une difficulté avec la fonction Workbook.Open. Je souhaite l'utiliser pour ouvrir plusieurs fichiers log d'un dossier.

Quand je mets le chemin complet du fichier, j'arrive à ouvrir le fichier sur excel. Par contre si je mets le chemin du dossier qui contient tous les fichiers, j'ai un message d'erreur : Fichier introuvable.

La fonction workbooks.open ne me permet pas d'ouvrir tous les fichiers sur excel. Pourtant quand j'utilise ActiveWorkbook.FollowHyperlink, les fichiers s'ouvrent mais en txt alors que souhaite l'ouvrir avec excel.

Merci d'avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub ouverturedufichier()
Dim chemin As String
Dim fichier As String
 
' Chemin des fichiers
 
chemin = "C:\Users\LMN\Documents\Projets\Tableau de Bord\TAT\"
 
' Chemin complet du fichier
 
'chemin = "C:\Users\LMN\Documents\Projets\Tableau de Bord\TAT\ENTP-15-08-2019-02h15"
 
' Récupération des fichiers
 
fichier = Dir(chemin & "*", vbNormal)
 
'Boucle pour les retrouver un à un
 
Do While fichier <> ""
 
 
' MsgBox fichier
 
 
' Ouvrir tous les fichiers
 
Set r = Workbooks.Open(fichier, local:=True)
 
'ActiveWorkbook.FollowHyperlink fichier
 
 
' Passage au fichier suivant
 
fichier = Dir
Loop
 
' Fermer tous les fichiers
 
'Workbooks(fichier).Close False
 
 
End Sub

[clementmarcotte]

Bonjour

à première vue et sans tester. Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier = Dir(chemin & "*.*", vbNormal)

La première astérisque pour le nom du fichier et la seconde pour l'extension.

Et si tu veux que Dir ne te retourne que les fichiers Excel et oublie les autres, tu peux essayer avec cette option:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fichier = Dir(chemin & "*.xls?", vbNormal)

Cela va retourner tous les fichiers Excel avec des extensions à trois ou quatre lettres.

En gros:
*.* : tous les fichiers
*.xls? : tous les fichiers dont l'extension commence par xls et se termine avec n'importe quel caractère.
*.?lsx : tous les fichiers dont l'extension débute par n'importe quel caractère, incluant aucun caractère.

"Cl?ment" : retourne indifféremment Clément, Clament, Clement, Clument, Cl$ment et tous les autres

Et c'est le même principe pour tous les fichiers et toutes les extensions et même pour tous les traitements qui portent sur des caractères.

[lena2019]

Bonjour,

Merci Clementmarcotte pour votre réponse.

J'ai mis le deuxième astérisque, mais le message d'erreur reste le même.çà ne résout pas le problème

[lena2019]

Y'aurait-il quelqu'un qui a déjà rencontré le problème?

Merci d'avance pour vos réponses.