Bonjour à vous,
la macro suivante que j'utilise me créé un lien hypertexte vers un fichier Word que je sélectionne par boîte de dialogue (sous Excel 97).Le lien est de plus nommé avec le nom du fichier sélectionné (sans son extension).

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
Sub insererLien()
Dim NomComplet, NomFich As String
 
On Error GoTo GestionErreur
 
    NomComplet = Application.GetOpenFilename()
    NomFich = Left(MotRetourné(NomComplet), InStr(MotRetourné(NomComplet), "\") - 1)
    NomFich = MotRetourné(Right(NomFich, Len(NomFich) - 4))
    ActiveCell.FormulaLocal = _
                 "=LIEN_HYPERTEXTE(""" & NomComplet & """;""" & NomFich & """)"
 
Exit Sub
 
GestionErreur:
    MsgBox "Attention! L'insertion de lien n'a pas fonctionné", vbOKOnly, "Erreur : " & Err.Description
    Application.ScreenUpdating = True 'pour remettre l'affichage à jour
    Application.Cursor = xlDefault
 
End Sub
 
 
 
Function MotRetourné(LeMot)
     For i = Len(LeMot) To 1 Step -1
          MotRetourné = MotRetourné + Mid(LeMot, i, 1)
     Next
End Function
En général cela fonctionne mais:
- quand je clique sur l'hyperlien ainsi créé,mon fichier Excel se ferme (excel reste ouvert mais le classeur s'est fermé).
- parfois le lien est bien inséré et a bien le nom du fichier, mais quand je clique dessus j'ai l'erreur "impossible d'ouvrir le fichier spécifié" pourtant la formule est bonne et le fichier au bon emplacement.
D'ou peuvent venir mes soucis?Je tourne en rond sans avoir de solution.
Merci d'avance pour votre attention,
M

Petite précision:
si je copie/colle dans une cellule adjacente le contenu de ma cellule dans laquelle le lien créé ne fonctionne pas cela fonctionen parfaitement; donc pourquoi pas dans la cellule de destination à l'origine?