Gestion des erreurs

Astyanax à dit:

Bonjour à tout le forum,
j'ai un problème dans une macro Excel et j'aimerais le résoudre au mieux et au + simple, c'est pour cela que je vous demande vos conseils.
J'ai une macro de lancement qui me lance successivement d'autres macros dont l'une d'elles, et c'est une des premières, vient récupérer un fichier à un endroit précis.
Bien sur, le chemin n''est pas toujours le même et il m'est retourné une erreur qui se répercute sur les macros suivantes.
Je tiens à conserver le chemin dans la macro car dans la majorité des cas, le chemin est correct.
Ce que j'aimerais, c'est signaler l'erreur (c'est déjà fait par un msgbox) et sortir proprement de la macro de lancement afin de corriger si je le désire le chemin dans la macro concernée sans avoir la fenêtre de deboguage.
Je vous remercie de me répondre si vous avez des solutions simples
Je vous souhaite un excellent WE
Astyanax

Cliquez pour agrandir...

Astyanax à dit:

Re-bonjour et merci pour les réponses.
je voulais "gérer" l'erreur de chemin pour sortir proprement de mes macros de : - recherche du répertoire contenant le fichier à ouvrir (nom du fichier changeant tous les mois)
- puis de ma macro de lancement

Aller avec l'explorateur Windows rechercher le chemin correct du répertoire pour ce PC, puis retourner dans la macro afin d'indiquer en dur le nouveau chemin et enfin enregistrer la macro modifiée avec ce nouveau chemin.

Si je peux tester la validité du chemin avant puis le changer dans la macro, je suis preneur mais je pense que je dois être obligé de sortir de la macro pour rechercher le nouveau chemin et le modifier. Ce qui oblige également à avoir une sortie propre.
Merci de me répondre.
Bon WE
Astyanax

Cliquez pour agrandir...

Sub Test()
Dim Chemin As String
Chemin = CurDir
 'Workbooks.Open ("C:\MyFolder\MyBook.xls")
Chemin = Dir(CurDir & "\" & "Nat.xls")
If Chemin = "" Then
'Traiement erreur
Else
'ouverture fichier ou lancement de la macro d'ouverture
End If
End Sub

Function Macro_Ouverture() As Boolean
Dim Chemin As String
Chemin = CurDir
 'Workbooks.Open ("C:\MyFolder\MyBook.xls")
Chemin = Dir(CurDir & "\" & "Nat.xls")
If Chemin = "" Then
 Macro_Ouverture=false
exit function
Else
'ouverture fichier
Macro_Ouverture = true
End If
End Function