Discussion :

[arno80]

Bonjour à tous,
Voilà mon problème : dans un tableau Excel, j'ai une liste d'identifiants (type 02-00-00-09-0239) en colonne A et également autant de fichier Excel que d'identifiants (chaque fichier Excel s'appelle identifiant.xls, exemple 02-00-00-09-0239.xls).
Avec une boucle j'aimerais aller chercher les informations dans tout les fichiers identifiant.xls mais je ne sais pas comment passer l'information dans mon Workbooks.
J'ai fais ça :

Code :

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

1
2
If Workbooks("Cells(5, 1).Value.xls").Worksheets("Feuil1").Cells(ligne, jour).Interior.ColorIndex <> -4142 Then
         couleur = Workbooks("Cells(5, 1).Value.xls").Worksheets("Feuil1").Cells(ligne, jour).Interior.ColorIndex

Mais ça ne fonctionne pas.
J'aimerais donc savoir quelle est la règle en VBA pour ce type de "passage"
Par avance merci

[parmi]

Bonjour,

Enlève les guillemets lorsque tu mets un Range ou une variable

Code :

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

If Workbooks(Cells(5, 1).Value).Worksheets("Feuil1").Cells(ligne, jour).Interior.ColorIndex <> -4142 Then

ou

Code :

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

If Workbooks(Cells(5, 1).Value & ".xls" & ).Worksheets("Feuil1").Cells(ligne, jour).Interior.ColorIndex <> -4142 Then

Tout dépend si le .xls est inscrit ou non dans les noms de tes fichiers

[arno80]

Super merci la deuxième version marche !!