Alexdubeffroi
XLDnaute Nouveau
Bonjour à tous,
J'ai dans un classeur une macro qui permet de copier une feuille, tout ce qu'il y a de plus simple. Pour l'ouverture du classeur qui contient la feuille à copier j'ai voulu ajouter une gestion d'erreur au cas ou la macro tente d'ouvrir un classeur inexistant qui fonctionne à priori plutot bien. Cependant les fichiers que j'utilise sont en réseau et lorsque j'utilise la macro depuis un autre poste que le mien il y à un problème avec la gestion d'erreur.
Voila mon code pour la gestion d'erreur :
Lorsque je lance la macro depuis un autre poste le fichier s'ouvre correctement mais on rentre quoiqu'il arrive dans le cas de l'erreur (dans le if). Si je supprime la gestion d'erreur tout va bien et je ne parviens pas a comprendre pourquoi tout seul.
Si quelqu'un à une idée du problème je l'en remercie par avance
Alex
J'ai dans un classeur une macro qui permet de copier une feuille, tout ce qu'il y a de plus simple. Pour l'ouverture du classeur qui contient la feuille à copier j'ai voulu ajouter une gestion d'erreur au cas ou la macro tente d'ouvrir un classeur inexistant qui fonctionne à priori plutot bien. Cependant les fichiers que j'utilise sont en réseau et lorsque j'utilise la macro depuis un autre poste que le mien il y à un problème avec la gestion d'erreur.
Voila mon code pour la gestion d'erreur :
Code:
Sub FalseSub()
Dim listname As String
listname = Cells(5, 2)
On Error Resume Next
Workbooks.Open Filename:=listname
If (Err.Number > 0) Then
Application.ScreenUpdating = True
MsgBox ("The selected list has not been found, choose another one")
Range("B23:N23").ClearContents
Cells(23, 2).Interior.Color = 255
ActiveSheet.Protect ("Offshore")
Exit Sub
End If
End Sub
Lorsque je lance la macro depuis un autre poste le fichier s'ouvre correctement mais on rentre quoiqu'il arrive dans le cas de l'erreur (dans le if). Si je supprime la gestion d'erreur tout va bien et je ne parviens pas a comprendre pourquoi tout seul.
Si quelqu'un à une idée du problème je l'en remercie par avance
Alex