Bonjour,
je reprends une application en VBA après quelqu'un mais je n'y connais pas grand chose.
J'ai un problème après l’exécution de la macro. Cette macro s'exécute bien mais l'instruction va directement à la gestion des erreurs au lieu de terminer le programme normalement.
Je vous joins un extrait du programme. C'est un peu succin mais je peux développer si quelqu'un veut bien s'y pencher.
If MAC(i) <> "" Then
Excel_App1.Sheets("Result").Select
Excel_App1.Range("A1").Select
Excel_App1.Application.Run MAC(i)
End If
Excel_App1.ActiveWorkbook.SaveAs filename:=tabl(i)
' Excel_App1.ActiveWindow.SelectedSheets.Printout Copies:=1
Excel_App1.Application.DisplayAlerts = False
Excel_App1.ScreenUpdating = True
requete.Save
requete.Close
Next i
Excel_App1.Quit
Set Excel_Appl = Nothing
msgText = "Traitement terminé"
MsgBox msgText, 48, "Script Banco"
Exit Sub
Gesterreur:
Merci