OUvrir classeur en fonction de cellule

[AntoineM]

Bonjour,

J'ai une autre question pour les experts,

J'ai un fichier avec une plage de cellule comme ceci :
A1 = toto1.csv
A2 = toto2.csv
A3 = toto3.csv
(jusqu'a A10)

J'ai dans un répertoire un classeur qui s'appelle toto1 ou toto2 ou toto3... (le nom change)

J'aimerais construire une macro qui permette de :


- Ouvrir le fichier dont le nom correspond a A1
si il n'existe pas alors :
- Ouvrir le fichier dont le nom est en A2
etc, etc...

J'ai le code pour ouvrir a partir d'une cellule fixe :

Sub ouverture()

Chemin = "N:\RepertoireX\"
Part = "toto"
Chem2 = Dir(Chemin & Part & "*.csv")

'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Dir(Chemin & Part & "*.csv"), Local:=True
nom_Csv = ActiveWorkbook.Name


End Sub

J'avais pensé à le place dans une boucle avec par exemple

Dim Chemin As String
Dim cell As Range
cell = Cell(A, i)
Chemin = "N:\RepertoireX\"

On Error GoTo Next
For i =1 to 10 Step 1
'Ouverture du fichier
Workbooks.Open Filename:=Chemin & Dir(Chemin & cell & "*.csv"), Local:=True
nom_Csv = ActiveWorkbook.Name
Next

Merci à ceux qui me liront !

Antoine

 

[Paf]

Re : OUvrir classeur en fonction de cellule

bonjour

Pas la peine d'ouvrir plusieurs discussions pour le même soucis ,

voir la réponse proposée https://www.excel-downloads.com/threads/vba-boucle-pour-ouverture-de-classeur.230958/

A+

 

[AntoineM]

Re : OUvrir classeur en fonction de cellule

Bonjour,

Désolé je pensais que le premier avait disparu.
Je cloture ce post.

Doublement merci pour ta double réponse du coup