Discussion :

[David Weber]

Bonjour,

Je dois effectué un document Word qui lorsqu'on l'ouvre nous envois sur un site web.

C'est pour faire de la sensibilisation au Phishing.

Je ne sais pas du tout comment m'y prendre et où trouver les bonnes solutions.

Est-ce que quelqu'un pourrais me donner les bon lien et les bonne pratique, s'il vous plais.

[Souriane]

Bonjour,

Il faut que vous créez une procédure Document.Open.

Ensuite une bonne lecture de base dans le FAQ VBA vous aidera à vous y retrouver si vous êtes prêt à apprendre le langage VBA.

Bonne journée!

Souriane

[David Weber]

Merci pour la réponse.

J'adore apprendre et je vais me plonger dans la doc.

[David Weber]

Après plusieurs recherche, j'ai trouvé quelque chose comme ça.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2()
'
' test2 Macro
'
'
    GetUserAddress , "www.google.ch"
End Sub
Function GetUserAddress() As Boolean
    Dim strInput As String
 
    Application.FollowHyperlink strInput, "www.google.ch"
    GetUserAddress = True
End Function

Mais cela ne marche pas.

Est-ce que vous arrivez à me donner des conseil pour faire fonctionne ce bout de code.

Ce que j'essaie de faire, c'est que lorsque la personne ouvre le document Word, cela envois directement sur site web.

[hyperion13]

Salut
Il manque la ligne L10
Qu'est devenu strInput ?
Dans le module ThisDocument

Code :

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

1
2
3
Private Sub Document_Open()
    Call GetUserAddress
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function GetUserAddress() As Boolean
    Dim strLink As String
 
    On Error GoTo Error_GetUserAddress
    strLink = "https://www.google.ch"
    FollowHyperlink strLink, , True
    GetUserAddress = True
 
Exit_GetUserAddress:
    Exit Function
 
Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
End Function

[hyperion13]

Encore un qui ne sait pas ce que sont les règles de bien séance !