zebanx
XLDnaute Accro
Bonjour à tous,
J'ai un problème sur l’exécution d'une instruction "on error goto..." qui ne parait s'executer qu'une seule fois.
L'objectif est de lancer sur plusieurs gros fichiers des macros identiques.
On a donc 2 champs variables : l'adresse complète du fichier (1), le nom de la macro (2)
Mais je souhaite que cette macro s’exécute jusqu'au bout si elle rencontre les deux problèmes suivants :
- l'adresse est fausse (ou vide)
- la macro n'existe pas
Or je n'arrive pas à passer au prochain "next" correctement dans les deux cas.
Pourriez-vous m'aider svp ?
Merci par avance, bonne journée
zebanx
Ci-joint un zip contenant le fichier call... et 3 fichiers contenant de toutes petites macro pour les tests.
J'ai un problème sur l’exécution d'une instruction "on error goto..." qui ne parait s'executer qu'une seule fois.
L'objectif est de lancer sur plusieurs gros fichiers des macros identiques.
On a donc 2 champs variables : l'adresse complète du fichier (1), le nom de la macro (2)
Mais je souhaite que cette macro s’exécute jusqu'au bout si elle rencontre les deux problèmes suivants :
- l'adresse est fausse (ou vide)
- la macro n'existe pas
Or je n'arrive pas à passer au prochain "next" correctement dans les deux cas.
Pourriez-vous m'aider svp ?
Merci par avance, bonne journée
zebanx
Ci-joint un zip contenant le fichier call... et 3 fichiers contenant de toutes petites macro pour les tests.
Code:
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 ' ne s'execute qu'une fois
Workbooks.Open Filename:=Dossier_cherché
Application.Run MacR
ActiveWorkbook.Close SaveChanges:=True
Cells(i, 5) = Now
'Application.Wait (Now + TimeValue("00:00:01"))
End If
prochain:
Next i
Application.DisplayAlerts = True
End Sub