Bonsoir lr forum,
j'ouvre depuis une appli des classeurs excel situés dans 'Mes documents', afin d'éviter les messages d'erreur lorsque le classeur est déjà ouvert, ou inexistant, j'ai écrit cette petite routine:
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim nom As String, nom1 As String
nom = [A3] & '.xls'
On Error GoTo paouvert
Workbooks(nom).Activate
Application.DisplayAlerts = True
Exit Sub
paouvert:
On Error GoTo 0
On Error GoTo toujourspas
nom1 = 'C:\\Mes documents\\' & nom
Workbooks.Open (nom1)
Application.DisplayAlerts = True
Exit Sub
toujourspas:
MsgBox 'Le classeur ' & nom & ' n'existe pas !!!'
Application.DisplayAlerts = True
On Error GoTo 0
End Sub
Or ça plante à la seconde gestion d'erreur quand le classeur n'existe pas, je récolte une erreur 1004, comme si le second 'on error goto toujourspas' n'était pas pris en compte...
Je ne vois pas ce qui coince dans mon code...
Merci de vitre aide.
A+
Philippe
j'ouvre depuis une appli des classeurs excel situés dans 'Mes documents', afin d'éviter les messages d'erreur lorsque le classeur est déjà ouvert, ou inexistant, j'ai écrit cette petite routine:
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim nom As String, nom1 As String
nom = [A3] & '.xls'
On Error GoTo paouvert
Workbooks(nom).Activate
Application.DisplayAlerts = True
Exit Sub
paouvert:
On Error GoTo 0
On Error GoTo toujourspas
nom1 = 'C:\\Mes documents\\' & nom
Workbooks.Open (nom1)
Application.DisplayAlerts = True
Exit Sub
toujourspas:
MsgBox 'Le classeur ' & nom & ' n'existe pas !!!'
Application.DisplayAlerts = True
On Error GoTo 0
End Sub
Or ça plante à la seconde gestion d'erreur quand le classeur n'existe pas, je récolte une erreur 1004, comme si le second 'on error goto toujourspas' n'était pas pris en compte...
Je ne vois pas ce qui coince dans mon code...
Merci de vitre aide.
A+
Philippe