Discussion :

[pourinfo]

Bonjour,
J'avais placé cette demande dans une autre conversation, mais je la remplace ici, car elle spécifique et un peu complexe, je crois pour qqn qui est encore débutant.

Voilà, besoin d'aide pour l'écriture d'une macro pour :
- l'apparition d'une MsgBox pour signifier :

"Attention à la manière d'interpréter les résultats. Pour plus d'information : cliquer sur le lien suivant : (lien)"

comment incorporer un lien pour diriger vers : 3 solutions :

- un PDF contenu dans le dossier contenant le fichier excel.
- idem, mais une page précise de ce PDF
Je n'ai jamais vu cela, sauf à créer plusieurs fichiers pdf et à diriger vers le pdf choisi)
- un pop-up contenant le texte. Perso, je ferais un UserForm. mais comment lier la UserForm avec un paragraphe et dans quel type de fichier mettre ce paragraphe de texte ?
- Si impossible : je rajouterai un petit paragraphe de texte dans la MsgBox pour détailler la réponse à l'avertissement.)

Sachant que cette macro sera contenue dans plusieurs feuilles du classeur.

Enfin : une phrase
"Ne plus afficher ce message" avec une case à cocher qui désactive la macro ; afin d'éviter de devoir les pieds dedans dès lors que je serais habitué à utiliser correctement mon fichier.

Merci, et

[sabzzz]

bonjour,

si tu peut ajoute un signet à l'endroit voulu et enregister ton fichier avec l'extention .htm
dans cette exemple j'ai nommé le signet : zz
sur ton fichier excel tu crée un userForm contenant un label et un TextBox,
et tu ajoute le code suivant,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Label1_Click()
lien = "C:\MonFichier.htm#zz"
    On Error GoTo Fin
    ActiveWorkbook.FollowHyperlink Address:=lien, NewWindow:=True
    Unload Me
    Exit Sub
Fin:
    MsgBox "Impossible d'ouvrir le lien  " & Link
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.MousePointer = 14
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
With Me.Label1
.ForeColor = RGB(0, 0, 255)
.Font.Underline = xlUnderlineStyleSingle
.Caption = "Mon lien"
End With
TextBox1.Text = "Mon texte d'avertissement"
End Sub

isabelle

[pourinfo]

Bonjour,


Un peu long pour répondre mais voilà pour ce que j'ai pu en faire :

sur ton fichier excel tu crée un userForm contenant un label et un TextBox,

Pourquoi un userForm ? Le code qui suit permet d'ouvrir le document html, mais pas au niveau du signet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
lien = "C:\MonFichier.htm#zz"
'On Error GoTo Fin --> j'enlève cette partie car sinon le document ne s'ouvre pas et un message "Etiquette non définie" apparaît

Puis une msgbox avec "Erreur d'exécution '361' : Erreur définie par l'application ou par l'objet" apparaît. (ceci lorsque je lance la macro dans l'écriture du vba.)

Le lien apparaît sur la feuille "Mon lien", et un clic permet de lancer l'ouverture du document html, mais un message "Erreur d'exécution 361 : Impossible de charger ou de décharger..." apparaît.


Pour le signet :
J'ai essayé en utilisant le code du titre (comme I) Premier titre) récupéré en cliquant du bouton droit dans le sommaire du document et en choisissant "Basculer les codes". Le code donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lien = "C:\MonFichier.htm#Toc257129099"

sans succès.