Discussion :

[drthodt]

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?

[fred65200]

bonjour,
je n'est pas réussi à reproduire ton erreur.
à tout hasard, ajoute

Code :

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

1
2
 
ActiveCell.Clear

avant de placer ton lien hypertexte

Sans conviction!!

[drthodt]

Sur un autre fichier sur leqeul j'utilise la même macro: j'arrive bien à insérer le lien hypertexte et il fonctionne.
Mais quand je veux quitter j'ai un message d'erreur:

Impossible de convertir une formule dans la cellule (Nom: _filterDatabase) qui contient une fonction non disponible dans le format sous lequel vous enregistrez.Si vous poursuivez, la formule et son résultat seront enregistrés, mais la fonction elle-même se verra attribuer une valeur d'erreur.

Voulez-vous voir les erreurs suivantes au fur et à mesure qu'elles se produisent pour pouvoir les corriger ultérieurement?

Puis j'ai le choix oui/non/annuler.

Si je met oui: il me reprend ue à ne toutes les cellules dans lesquelles j'ai utilisé ma macro pour insérer le lien, puis me remet le même message d'erreur que si dessous (avec (Nom: numéro de la cellule) au lieu de (Nom: _filterDatabase)).

[drthodt]

Au sujet de mon dernier post (au-dessus): j'ai corrigé le problème en enregistrant mon fichier au bon format (apparememnt quelqu'un l'avait sauvegardé en excel 95).

Pour mon tout premier fichier (tout premier message du topic): j'ai inséré une nouvelle colonne à la place de celle ou j'avais mes liens,je les ai tous remis ça marche à nouveau comme il faut.
Par contre mon classeur se ferme toujours dès que je clique sur un des lien,et je suis obligé de le réouvrir à nouveau pour travailler dessus:d'ou cela peut-il venir?
Merci d'avance pour vos conseils,
M

[ouskel'n'or]

Pas de soucis avec ton code. Pas de fermeture intempestive non plus.
Tu dois bien appeler insererLien() depuis une macro, ce serait donc plutôt de ce côté que je chercherais. Dans tous les cas, ça ne vient pas du code que tu nous montres.

[drthodt]

Tu dois bien appeler insererLien() depuis une macro, ce serait donc plutôt de ce côté que je chercherais.

J'insère le lien à partir du clic sur un bouton auquel j'ai affecté la macro.
Comme je l'ai dit le lien est correctement inséré,et sous la bonne forme.
Mais je ne comprends pas pourquoi mon fichier se ferme après chaque clic sur un lien?