Bonjour à tous les deux,
Merci pour votre réponse rapide.
Alors sur les premiers tests :
- Pierre-Jean : la boucle se fait bien mais le fichier se ferme (en pas à pas détaillé je pense sur la ligne 6, la boucle passe à l'instruction next qui ferme le dossier "CALL...")
- Thebenoit59 :
cas 1 (adresse fausse) = ok (va bien jusqu'à la dernière ligne)
cas 2 (macro n'existe pas) = ca s'arrêtait de faire le boulot sur la ligne 6 sur la partie "application.run MacR".
En pas à pas détaillé, on voit que le fichier s'ouvre donc j'ai rajouté "on error resume next" pour le fermer. Et après ça à l'air d'aller jusqu'au bout.
Je teste et je reviens vers vous.
Merci en tout cas pour vos pistes prometteuses !
++
zebanx
-----------------------------
Sub appeler2()
Dim k As Integer, i
[E2:E100].ClearContents
Application.ScreenUpdating = False
k = Range("B" & Rows.Count).End(xlUp).Row
Application.DisplayAlerts = False
For i = 2 To k
Dossier_cherché = Range("B" & i)
MacR = Range("C" & i) & "!" & Range("D" & i)
If Dossier_cherché = "" Then
Else
On Error GoTo prochain
Workbooks.Open Filename:=Dossier_cherché
On Error Resume Next
Application.Run MacR
ActiveWorkbook.Close SaveChanges:=True
Cells(i, 5) = Now
'Application.Wait (Now + TimeValue("00:00:01"))
End If
prochain:
On Error GoTo -1
Next i
Application.DisplayAlerts = True
End Sub