Discussion :

[juliedah]

Bonjour à tous,

Je cherche à récupérer un fichier excel qui dépend :
1 - d'une première variable au niveau du nom du dossier dans lequel il est
2 - d'une seconde variable au niveau du nom du fichier dans ce dossier

Pour que vous visualisiez, j'ai des dossiers U:\Fromage\Camembert\ dans lequel j'ai Camembert v1.xlms, Camembert v2.xlms etc; des dossiers U:\Fromage\Brie\ dans lequel j'ai Brie v1.xlms, Brie v2.xlms etc

J'ai inscrit dans une cellule le chemin d'accès (ex : U:\Fromage\Camembert\) et je cherche à appeler le dossier selon la variable du nom dossier, c'est à dire : si dans ma cellule A1 il y a écrit "U:\Fromage\Camembert\" je veux pouvoir appeler ce dossier avec ensuite le nom du fichier que je veux "\ Camembert v1.xlms" si dans ma cellule A2 il y a marqué "v1".

Je ne sais pas si je suis clair donc n'hésitez pas à me poser des questions !

Voilà ce que j'ai fait pour l'instant :

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
Sub MàJ_Results()
 
Dim repertoire As String
Dim version As Variant
 
For i = 70 To 97
repertoire = Cells(i, 2) ' dans cette cellule est renvoyé le chemin d'accès au dossier mais sans le nom du fichier après
version = Cells(i, 1) ' dans cette cellule est renvoyé le numéro de version 1, 2, 3 etc
 
ChDir " " & repertoire & " \Camembert v" & version & " "
 
Workbooks.Open Filename:= _
" " & repertoire & " \Camembert v " & version & " .xlsm "
 
Next i
 
End Sub

Merci d'avance !

[Thautheme]

Bonjour Julie, bonjour le forum,

Tu as deux réponses dans un autre forum...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MàJ_Results()
Dim I As Byte
Dim R As String
Dim V As String
 
For I = 70 To 97
    R = Cells(I, 2).Value 'par exemple : B70 = "U:\Fromage\Camembert\"
    V = Cells(I, 1).Value 'par exemple : A70 = "v2"
    'ça donne : "U:\Fromage\Camembert\Camembert v2.xlsm"
    Workbooks.Open (R & Split(R, "\")(2) & " " & V & ".xlsm")
Next I
End Sub

[juliedah]

Merci pour ta réponse rapide !

Juste une précision, le nom du dossier ne s'appelle pas forcément exactement "Camembert v1" ou "Camembert v2" etc; ça peut etre " FOD - Essai - Camembert v1" par exemple, et je ne sais pas comment modifier ton code pour que ça le prenne en compte..

Je m'excuse par avance si cette question a déjà été répondue sur le forum et que je ne l'ai pas vue !

Bien à vous

[Thautheme]

Re,

Il me semble que tu confondes dossier et fichier là... Déjà ton premier post est confus car tu dis que Cells(I, 1) = "v1" puis, plus bas, tu dis que Cells(I,1) = 1... Fait un effort si tu veux des réponses cohérentes !
Pour ce qui est de la réponse, je te parlais de ta propre question dans un autre forum...