Problème de liens hypertextes

[armatt]

Bonjour,

J'ai un souci avec un fichier Excel qui contient plusieurs milliers de lignes
Sur chaque ligne j'ai une colonne qui contient un lien Hypertexte vers un fichier PDF
Régulièrement, les liens hypertextes se corrompent et le chemin initial ../XXX devient C:\Users\b36\AppData\Roaming\Microsoft\XXX
Une capture vaut mieux qu'un long discours


Comme vous pouvez le voir le texte à afficher garde le bon chemin mais le lien n'est plus bon

Mon but n'est plus de découvrir pourquoi les liens deviennent incorrects mais de créer une Macro qui permet de copier de manière automatique le contenu du Texte à afficher vers l'adresse du lien.

Quelqu'un aurait une idée de comment je peux faire ça ?

 

[armatt]

Re : Problème de liens hypertextes

Ca inspire quelqu'un ?

 

[armatt]

Re : Problème de liens hypertextes

Je retente ma chance

 

[chris]

Re : Problème de liens hypertextes

Bonjour

A priori cela vient du chemin par défaut à l'ouverture d'Excel : si le chemin n'est pas le bon, l'aspect relatif change et cela modifie tous les liens du fichier en cas d'enregistrement de celui-ci.

Pas testé mais il est probable que cette solution pour Word puisse s'appliquer à Excel Comment faire pour créer des liens hypertexte absolus et relatifs dans des documents Word 2003 et Word 2007

 

[armatt]

Re : Problème de liens hypertextes

Merci
Je pense également que le problème vient de là.
Mais ce qui m'intéresse désormais est de pouvoir refaire tous les liens de manière automatique en copiant le contenu du texte a afficher et en le collant dans l'adresse du lien

 

[Grand Chaman Excel]

Re : Problème de liens hypertextes

Bonjour armatt,

Si j'ai bien compris, quelque chose du genre peut-être... (boucle à adapter) :

Sub Remplacer_Liens_Hypertexte()
    Dim i As Integer
    Dim strAddress As String
    Dim strName As String
    
    On Error Resume Next
    For i = 1 To 100        'boucle sur les cellules... à adapter
        strAddress = Cells(i, 1).Hyperlinks(1).Address  'adresse du lien
        strName = Cells(i, 1).Hyperlinks(1).Name        'texte à afficher
        Cells(i, 1).Hyperlinks(1).Address = strName     'changer 'adresse du lien
    Next i
End Sub

A+

 

[armatt]

Re : Problème de liens hypertextes

Ton code me plait bien !
Ca ressemble à ce que je voudrais faire, je ferais le test lundi
Juste une question : Ou précises-tu la colonne sur laquelle tu veux appliquer ton script ?

 

[Grand Chaman Excel]

Re : Problème de liens hypertextes

Bonjour,
Dans l'exemple que j'ai fait, ce sont les cellules de A1 à A100 qui sont changées.

Cells(i,1) où i = ligne, 1 = colonne

 

[armatt]

Re : Problème de liens hypertextes

Bon, j'ai testé

C'est nickel, exactement ce qu'il me fallait

Merci beaucoup