MJ13
XLDnaute Barbatruc
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:
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:
VB:
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