Discussion :

[doodoms]

Salut,
je vous explique mon problème, je dois ouvrir tout les fichiers qui se trouvent dans un dossier(ça c'est bon) et récupérer des données pour les coller dans un autre classeur.
Le hic c'est que mes fichiers ont un nom qui change tout les mois ex: "mineur02simu_histo.txt" le 02 représentant février et de plus certains fichiers n'ont pas d'extension du tout ex: "majeur02simu".

Il me faudrait une commande de ce style: mineur??simu_histo.txt

existe-t-elle?
Merci d'avance

[ouskel'n'or]

Déjà, tu as la liste de tes fichiers qui semblent être tous des fichiers texte. Qu'ils aient ou non une extension, tu peux les ouvrir en tant que tels (OpenText)
Pour les fichiers comportant le N° du mois, une question se pose : Souhaites-tu identifier le mois ?
Pour les traiter et les identifier, tu peux créer une liste de leurs noms et lancer la macro de traitement correspondant à chacun d'eux sur sélection dans cette liste (???) Tu peux également utiliser un "Select case..."
Plus de précision, nous permettrait de t'en dire plus...

[doodoms]

Je n'ai pas besoin d'identifier le mois, ce sera une application qui sera lancée une fois par mois.
C'est pour ça qu'une commande me permettant de laisser 2 caractère non fixe serai parfaite pour moi.

[ucfoutu]

Bonsour,

Je rappelle que la fonction Dir permet :
- de passer en revue tous les fichiers d'un répertoire
- l'utilisation de jokers... pour le nom des fichiers à recenser (en ignorant les autres)...

[doodoms]

Merci pour vos réponses.

Comment utiliser cette fonction Dir avec ce type de code:

Code :

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

1
2
3
4
5
Dim wb As Workbook
 
wb = Dir(real??simu_histo.txt) 'cette commande ne marche pas
 
ThisWorkbook.Worksheets("Feuil2").Range("A1").Value = wb.Worksheets("Feuil2").Range("A1").Value

[ouskel'n'or]

Tu n'as pas l'aide en ligne ? A Dir, il y a une page d'explications qu'il serait inutile de transcrire ici...
Tu as même des exemples et des explications sur l'utilisation des jokers.
Tu regardes et si tu as encore des difficutés... on bouge pas

[doodoms]

J'ai lu l'aide mais mon problème c'est que je n'ai pas le chemin d'accès du fichier, J'utilise ThisWorkbook.Path pour recuperer le chemin de mon classeur donc il me faudrait quelque chose comme ça:

Code :

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

Dir("ThisWorkbook.Path\real(??)simu_histo.txt")

mais je ne trouve pas la syntaxe.

Désolé si mes questions sont un peu bêtes mais je ne suis pas expert, et cela fait un moment que je n'avais plus codé. merci pour vos réponses

[ouskel'n'or]

Regarde ici, ce code permet de retrouver un fichier où qu'il soit dans les répertoires et sous-répertoires d'un volume.

[doodoms]

Je ne comprend pas du tout ta réponse(désolé)
Mais apparemment c'est pour rechercher un fichier, moi mon fichier est ouvert, et il se trouve dans le même répertoire que le classeur contenant la macro donc je voudrais juste pouvoir l'appeler sans connaitre les caractères correspondants au mois

Code :

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

ThisWorkbook.Worksheets("Feuil2").Range("A1").Value = Workbook("real??simu_histo.txt").Worksheets("Feuil2").Range("A1").Value

en gros la syntaxe juste du code en rouge.

[ouskel'n'or]

Et si tu essayais ThisWorkbook.path ?

Code :

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

ThisWorkbook.Worksheets("Feuil2").Range("A1").Value = ThisWorkbook.path

[AlainTech]

moi mon fichier est ouvert

Dommage qu'il faille attendre le neuvième message pour avoir cette information!

Donc, le chemin n'est d'aucune utilité.

[doodoms]

Désolé je croyait que vous l'aviez compris:

je dois ouvrir tout les fichiers qui se trouvent dans un dossier(ça c'est bon)

mais c'est vrai que c'est pas très clair encore désolé.

[doodoms]

J'ai trouvé une solution utilisant une inputbox pour demander à l'utilisateur à quel mois appartiennent les fichiers sources et ainsi remplir le "blanc" dans le nom du fichier.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub Ouvre_Fichier2()
 
Dim Wk As Object
Dim rep As Object
Dim Chemin As String
Dim startrow As Integer
'Définit une variable qui va représenter un classeur
Dim wb As Workbook
'Définit une variable qui va représenter une feuille de calcul
Dim Ws As Worksheet
'Définit une variable qui va représenter une cellule
Dim cell As Range
'définit une variable définissant le mois des fichiers sources
Dim mois As String
 
Dim i As Integer
Dim j As Integer
 
 
mois = InputBox("Indicateurs de quel mois: jan = 01; fev = 02 etc.")
 
j = 1
 
 
 
Chemin = ThisWorkbook.Path 'chemin de ce classeur
Set rep = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
 
For Each Wk In rep.Files 'pour tout les fichier du répertoire courant ouvrir le fichier
    If Wk.Name <> ActiveWorkbook.Name Then
    Workbooks.Open Filename:=Wk, Format:=4 'format:=4 ";" format:=2 ","
 
        If ActiveWorkbook.Name = "majeur" & mois & "simu_histo.txt" Then
 
            For Each Ws In ActiveWorkbook.Worksheets
            i = 0
                'Boucle sur chaque cellule de la plage A1:A10
                For Each cell In Ws.Range("A1:A1000")
                    'Si la cellule contient la valeur "objet", on colore en vert
                    If cell.Value = "objet" Then cell.Interior.ColorIndex = 4
                    i = i + 1
                    'Si la cellule contient la valeur "objet", on copie la collone B dans ce classeur
                    If cell.Value = "objet" Then
                    ThisWorkbook.Worksheets("Feuil2").Range("A" & j).Value = Ws.Range("B" & i).Value
                    j = j + 1
                    End If
                Next cell
            Next Ws
 
            Else
        End If
 
    End If
 
Next
 
     MsgBox "Fini!"
End Sub

Merci à tous pour votre aide!