j utilise l instruction suivante sur vba
ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien
internet .
j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien
internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie le code :
On Error Resume Next ActiveWorkbook.FollowHyperlink "http://www.totoooooooooo.com" If Err.Number <> 0 Then MsgBox "Adresse incorrecte" Err.Clear
Cordialement. Daniel "chris" a écrit dans le message de news: 4620dc4d$0$27399$
Bonjour
j utilise l instruction suivante sur vba ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien internet . j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
merci de votre réponse. christophe
Bonjour.
Essaie le code :
On Error Resume Next
ActiveWorkbook.FollowHyperlink "http://www.totoooooooooo.com"
If Err.Number <> 0 Then MsgBox "Adresse incorrecte"
Err.Clear
Cordialement.
Daniel
"chris" <bidonchez@wanadoo.fr> a écrit dans le message de news:
4620dc4d$0$27399$ba4acef3@news.orange.fr...
Bonjour
j utilise l instruction suivante sur vba
ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien
internet .
j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien
internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
On Error Resume Next ActiveWorkbook.FollowHyperlink "http://www.totoooooooooo.com" If Err.Number <> 0 Then MsgBox "Adresse incorrecte" Err.Clear
Cordialement. Daniel "chris" a écrit dans le message de news: 4620dc4d$0$27399$
Bonjour
j utilise l instruction suivante sur vba ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien internet . j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
merci de votre réponse. christophe
MichDenis
As-tu essayé ceci :
On error resume next ActiveWorkbook.FollowHyperlink+adresse If err<>0 then err= 0
"chris" a écrit dans le message de news: 4620dc4d$0$27399$ Bonjour
j utilise l instruction suivante sur vba ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien internet . j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
merci de votre réponse. christophe
As-tu essayé ceci :
On error resume next
ActiveWorkbook.FollowHyperlink+adresse
If err<>0 then err= 0
"chris" <bidonchez@wanadoo.fr> a écrit dans le message de news:
4620dc4d$0$27399$ba4acef3@news.orange.fr...
Bonjour
j utilise l instruction suivante sur vba
ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien
internet .
j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien
internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .
On error resume next ActiveWorkbook.FollowHyperlink+adresse If err<>0 then err= 0
"chris" a écrit dans le message de news: 4620dc4d$0$27399$ Bonjour
j utilise l instruction suivante sur vba ActiveWorkbook.FollowHyperlink+adresse qui me permet d ouvrir un lien internet . j ouvre un grna d nombre de liens avec ceux ci mais il arrive que le lien internet ne marche pas (plus) bugant alors le code
Y a il un moyen de tester ce lien avant de l'ouvrir .