Discussion :

[syno]

Bonjour,

Je souhaite ajouter un lien hypertexte sur un fichier se trouvant sur le réseau. Est-il possible d'afficher le chemin absolu complet, c'est-à-dire sous la forme : \\serveur\partage\fichier plutôt que X:\fichier (où X représente la lettre de mappage réseau)? En effet, le lien n'est pas exploitable sur un autre poste dont la lettre réseau n'est pas identique....

* Merci *

[Souriane]

Bon matin!

Si vous avez Word 2003 et avant :
1. Cliquer sur Fichier / Propriété / onglet Résumé

Si vous avez Word 2007 :
1. Cliquer sur Bouton Office / Préparer / Propriétés / Propriétés avancées / onglet Résumé.


2. Vis-à-vis la ligne "Répertoire Web", entrer deux points comme ceci : ".." (sans les guillemets!)

3. Cliquer sur OK.

4. Faire afficher la fenêtre d'insertion d'un hyperlien (CTRL + K)

5. Cliquer ABSOLUMENT sur le bouton "Rechercher les fichiers" (même si le fichier souhaité apparaît déjà dans la fenêtre "Insérer un lien hypertexte" car par expérience, parfois le lien ne fonctionne pas).

6. Dans la case "Nom de fichier" entrer tel quel le nom de ton répertoire en débutant avec 2 backslash ( \\serveur\partage\fichier ).

7. sélectionner le bon fichier.

etc.

Ça devrait fonctionner. Vous nous en donnerez des nouvelles!

Souriane

[syno]

Merci pour cette réponse.
En fait je souhaiterais ne pas avoir à renseigner manuellement le nom du serveur : \\serveur\partage. Je souhaite que par défaut, lors de l'insertion du lien, le nom du serveur apparaisse d'office...

[Souriane]

Essaie cette macro, je crois qu'elle fera ce que tu souhaites.

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
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub Hyperlien()
 
Dim strFichier As String
Dim strReper As String
 
'Changer ici pour le bon nom de répertoire:
strReper = "\\serveur\partage"
 
'Ouvre une fenêtre pour rechercher le fichier à mettre en hyperlien
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .InitialFileName = strReper
        .Title = "Choisissez le document vers lequel faire un lien."
            If .Show <> 0 Then
                strFichier = .SelectedItems(1)
            Else
                Exit Sub
            End If
    End With
 
ActiveDocument.BuiltInDocumentProperties(wdPropertyHyperlinkBase) = _
        strReper
 
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        strFichier
 
End Sub

Tu m'en donneras des nouvelles svp.

Souriane

[syno]

Merci pour la macro ça fonctionne parfaitement...

Par contre dans mon cas le code suivant suffit:

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
17
18
19
20
21
22
23
 
Public Sub Hyperlien()
 
Dim strFichier As String
 
'Changer ici pour le bon nom de répertoire:
 
'Ouvre une fenêtre pour rechercher le fichier à mettre en hyperlien
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .Title = "Choisissez le document vers lequel faire un lien."
            If .Show <> 0 Then
                strFichier = .SelectedItems(1)
            Else
                Exit Sub
            End If
    End With
 
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        strFichier
 
End Sub

Peux-tu m'expliquer pourquoi (que fait la méthode ActiveDocument.BuiltInDocumentProperties(wdPropertyHyperlinkBase) = _
strReper
)

[Souriane]

Super! Ça fonctionne! C'est la première macro de mon cru que je mets sur le forum. Je suis très fière que ça fonctionne

Peux-tu m'expliquer pourquoi (que fait la méthode ActiveDocument.BuiltInDocumentProperties(wdPropertyHyperlinkBase) = _
strReper
)

Ça équivaut à ceci:
1. Cliquer sur Bouton Office / Préparer / Propriétés / Propriétés avancées / onglet Résumé.
2. Vis-à-vis la ligne "Répertoire Web", entrer deux points comme ceci : \\serveur\partage


N'oublie pas de cliquer le bouton "Résolu"!

À la prochaine!

Souriane

[syno]

TipTop
Merci