Discussion :

[cwain]

Bijour

Je récupère une feuille d'un classeur B, je l'importe dans mon classeur A à l'aide d'une macro. Problème cette feuille contient des cellules qui sont des liens hypertextes vers un onglet (disons qu'il s'appelle "truc" l'onglet) du classeur B. La macro les recopie en tant que tels dans le classeur A, et ils pointent toujours vers l'onglet "truc" de mon classeur B. Le souci, c'est que j'aimerais qu'ils pointent vers l'onglet "truc", mais dans mon classeur A (et oui j'ai aussi un onglet qui s'appelle "truc" dans mon classeur A)

J'ai bien pensé à copier les formules cellules par cellule, mais c'est un peu relou quand ça concerne des centaines de cellules.

Quelqu'un aurait-il une solution ?

[cwain]

Devant la popularité de ma question , je vais la revoir...
Bon vu que j'utilise déjà un bout de code comme ça pour copier les cellules à plus de 255 caractères, je me demande si je pourrais pas faire de même pour détecter les cellules où il y a un lien hypertexte et ensuite extraire la destination

Code :

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

1
2
3
4
5
6
7
        For Each c In Wks.UsedRange
            On Error GoTo suite
            If Len(c) > 255 Then
                Wkd.Range(c.Address) = c
suite:
            End If
        Next

Pb : comment on fait pour détecter si une cellule comporte un lien hypertexte ?

Cwain

[bidou]

Code :

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

1
2
3
If ActiveSheet.Cells(4, 3).Hyperlinks.Count > 0 Then
    MsgBox ("j'en ai un")
End If

[cwain]

Oki merci !

Sympa ton avatar