VBA: Ouverture avec 2 conditions d'erreur

[MJ13]

Bonjour à tous

J'utilise ce code pour ouvrir un fichier ou un dossier sur son nom inscrit dans une cellule, voire le nom de dossier de la cellule sélectionnée en colonne -1.

Exemple: en A1 j'ai C:\Temp et en B1 j'ai Fichier.xlsm et en C1 je peux avoir C:\Temp\Fichier.xlsm.

J'ai fait une condition d'erreur. Hors si la deuxième conditions, il ne trouve pas le fichier spécifié car le lecteur n'est pas disponible ou qu'il a été éffacé, alors il se met en erreur. Je préférerai un message disant "Le fichier n'est pas disponible".

Comment faire pour annuler la première condition d'erreur et en faire une seconde?

Voici le code:

Sub Ouverture_Magique()
On Error GoTo suite
ActiveWorkbook.FollowHyperlink (ActiveCell.Value)
Exit Sub
suite:
ActiveWorkbook.FollowHyperlink (ActiveCell.Offset(0, -1).Value & "\" & ActiveCell.Value)
End Sub

 

[Robert]

Bonjour MJ, bonjour le forum,

Peut-être comme ça :

Sub Ouverture_Magique()
On Error Resume Next
ActiveWorkbook.FollowHyperlink (ActiveCell.Value)
If Err <> 0 Then Exit Sub
ActiveWorkbook.FollowHyperlink (ActiveCell.Offset(0, -1).Value & "\" & ActiveCell.Value)
If Err <> 0 Then
    MsgBox "Le fichier n'est pas disponible !"
End If
End Sub

 

[MJ13]

Bonjour Robert

Merci beaucoup pour ce code qui ne fonctionne pas. 😉

Du coup ton Err <>0 m'a permis de trouver un code qui devrait fonctionner.

Sub Ouverture_Magique()
On Error Resume Next
ActiveWorkbook.FollowHyperlink (ActiveCell.Offset(0, -1).Value & "\" & ActiveCell.Value)
If Err.Number = 0 Then Exit Sub Else GoTo suite
suite:
Err.Clear
ActiveWorkbook.FollowHyperlink (ActiveCell.Value)
If Err.Number = 0 Then Exit Sub Else GoTo suite2
suite2:
MsgBox "Fichier Non Trouvé, soit le lecteur n'existe pas, soit le fichier a été effacé"
End Sub