Discussion :

[N0SMAS]

Bonjour,

J'ai fais une macro par apprentissage pour aller ouvrir un fichier, récupérer une donné, la copier dans ma feuille et refermer le fichier.
J'ai besoin de faire cela pour plusieurs fichier et j'aimerais bien le faire via une boucle.
Pour cela, j'ai besoin d'aller récupérer dans des cellules, des bouts du chemin d'accès pour aller ouvrir le(s) dit(s) fichier(s).

Malheureusement, j'arrive pas à faire la lecture de la cellule dans la macro, cela n'est pas pris en compte.

Mon chemin en apprentissage donne ça :

Code :

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

1
2
Workbooks.OpenText Filename:= _
        "C:\Stage\Essais résultats\60%\tir1\datas_ep.dat" _

J'ai tenter cela :

Code :

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

1
2
Workbooks.OpenText Filename:= _
        "C:\Stage\Essais résultats\ " & Sheets("Lancement").Cells(6,6) & " \tir1\datas_ep.dat" _

Qui devrait me renvoyer la même chose mais en pouvant y appliquer une boucle mais ça ne fonctionne pas.

Pouvez vous m'aider ?

Merci

[xaviou99]

Bonjour,
Essaye cela, sauf erreur cela devrait marcher.

Code :

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

1
2
3
4
5
Application.ScreenUpdating = False
Set FeuilleDeTravail = sheets("lancement")
LienFichier = "C:\Stage\Essais résultats\" & FeuilleDeTravail.Cells(6, 6).Value
LienFichier = LienFichier & "\tir1\datas_ep.dat" 
Set wb = Workbooks.Open(LienFichier)

Bonne fin de journée.

[Thautheme]

Bonjour Nosmas, bonjour le forum,

Que contient la cellule ligne 6 colonne 6 de l'onglet Lancement. Quel est son format. Ce qui me gêne c'est le %... Teste :

Code :

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

MsgBox Sheets("Lancememnt").Cells(6,6).Value

Tu auras peut-être l'explication...

[Édition]
Tiens bonjour Xaviou, étrange de te trouver ici alors que là tu ne donnes même pas satisfaction...

[N0SMAS]

La cellule contient "60%"

J'ai essayé ce que xaviou99 m'a préconisé mais apparemment ça ne trouvait pas le fichier.

J'ai trouvé une autre solution qui fonctionne, j'espère que ça va continuer en y implantant les boucles, j'ai écrit ça :

Code :

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

1
2
3
4
5
6
 
Dim X As String
 
X = "C:\Stage\Essais résultats\" & Sheets("Lancement").Cells(6, 6) & "%\tir1\datas_ep.dat" 
 
Workbooks.Open X

J'ai séparé le % et ai juste écrit dans la cellule 60, parce que sinon Excel le convertissait en 0,6.

Maintenant ça fonctionne.

Merci de votre aide, je vous redemanderais si jamais j'ai besoin

[Thautheme]

Re,

Hé oui un problème de format de cellule comme je le pressentais...

[N0SMAS]

Je ne suis pas sûr que ce soir un format de cellule parce que je m'en suis rendu compte quand il m'a dit qu'il trouvait pas le chemin 0,6

Je pense que c'est parce qu'il fallait à l'origine que je déclare le chemin comme une variable

[Thautheme]

Re,

Si tu le dis...