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 :
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 !
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 :
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 !