probleme boucle

Bonjour !

En ouvrant un nouveau classeur, celui-ci devient actif ! La référence dans la macro "Cells(i, 1).Value" concerne donc le nouveau classeur ouvert...

Il suffit de rajouter une ligne comme suit :

'***********************

Dim i As Integer

For i = 1 To 3
rep = Cells(i, 1).Value
MsgBox " " & rep & "", vbExclamation
Workbooks.Open Filename:="G:\STATS\clients\Fidelity\ByCompanies\" & rep & ".XLS"

'on reviens sur le classeur d'origine !
ThisWorkbook.Activate

Next i

'************************

A disposition pour plus d'informations !

Clément

"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème."

COMPLEMENT :

il peut être intéressant de tester si le fichier existe avant d'essayer de l'ouvrir pour éviter les plantages :

'***********************

Dim i As Integer

For i = 1 To 3
rep = Cells(i, 1).Value
MsgBox " " & rep & "", vbExclamation

if FichierExiste🙂="G:\STATS\clients\Fidelity\ByCompanies\" & rep & ".XLS") then

Workbooks.Open Filename:="G:\STATS\clients\Fidelity\ByCompanies\" & rep & ".XLS"

else

msgbox "Le fichier G:\STATS\clients\Fidelity\ByCompanies\" & rep & ".XLS n'existe pas !",vbexclamation,"Fichier inexistant"

endif

'on reviens sur le classeur d'origine !
ThisWorkbook.Activate

Next i

'************************

Public Function FichierExiste(strFichier As String) As Boolean

Dim intLen As Integer

If strFichier <> vbNullString Then
On Error Resume Next
intLen = Len(Dir$(strFichier ))
On Error GoTo PROC_ERR
FileExists = (Not err And intLen > 0)
Else
FileExists = False
End If

PROC_EXIT:
Exit Function

PROC_ERR:
MsgBox "Error: " & err.Number & ". " & err.Description, , _
"FileExists"
Resume PROC_EXIT

End Function

'******************************

Clément