Copier une cellule contenant un lien hypertexte d'un fichier à un autre?

**drthodt** · 09/10/2007, 10h42

Bonjour à tous,
j'ai créé une macro qui me copie des données d'un fichier à un autre, sous la forme

Code :

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

Feuil2.Cells(a,b)=Feuil1.Cells(x,y)

.

Or,lorsque sur ma feuille1 la donnée de ma cellule est du texte avec un lien hypertexte pointant vers un fichier,seul le texte est copié et je perds mon lien hypertexte.
J'aimerais conserver le lien également,mais je ne sais pas le faire (je suis débutant).Comment conserver également ce lien?
Merci pour vos suggestions,
t

**Jean-Philippe André** · 09/10/2007, 10h44

bonjour, après tes cells, regarde du côté de .value, .formula, .formulaR1C1, tu devrait trouver ton bonheur.
Je pense aussi que selection.copy et .pastespecial devrait t'être utiles

**LeForestier** · 09/10/2007, 11h18

Bonjour,
essaie avec

Code :

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

1
2
3
 
Feuil2.Cells(a,b).select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= Feuil1.Cells(x,y).value

A+

**drthodt** · 09/10/2007, 17h14

J'obtiens une erreur au niveau

Code :

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

Feuil2.Cells(a,b).Select

(la méthode select a échoué).
D'ou cela peut-il venir?

**drthodt** · 09/10/2007, 17h26

J'ai essayé une autre méthode (après avoir identifié la méthode me permettant de copier mon lien hypertexte grâce à l'analyse d'un copier/coller effectué lors de l'enregistrement d'une macro) mais j'obtiens toujours une erreur au même niveau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
 
Set FL1 = ThisWorkbook.ActiveSheet
Set FL2 = Workbooks("B.xls").Worksheets("Feuil1")
 
FL1.Cells(1, 1).Select
Selection.Copy
FL2.Cells(1,1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
End Sub

L'erreur étant ici

Code :

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

FL2.Cells(1,1).Select

(même si je change FL2 par le chemin complet Workbooks("B.xls").Worksheets("Feuil1")).

**fred65200** · 10/10/2007, 00h14

bonjour

si je fais ça

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
 
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
 
Set FL1 = ThisWorkbook.ActiveSheet
Set FL2 = Workbooks("Classeur3.xlsm").Worksheets("Feuil1")
 
FL1.Cells(1, 1).Copy FL2.Cells(1, 1)
 
'FL1.Cells(1, 1).Select
'Selection.Copy
'FL2.Cells(1, 1).Select
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
 
End Sub

ça fonctionne chez moi

si tu veux utiliser

Code :

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

FL2.Cells(1, 1).Select,

tu dois avant différencier ton classeur de l'onglet

Code :

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

1
2
Workbooks("B.xlx").activate
Sheets("Feuil1").cells(1,1).select

ou écrire

Code :

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

Application.Goto FL2.Cells(1, 1)

Salutations
fred65200

**LeForestier** · 10/10/2007, 09h29

Bonjour,
Sub rémaniée et testée...

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
Sub copierHyper()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
'Pour le test.......
Dim a, b, x, y
a = 9: b = 3
x = 10: y = 4
'-------------------
'Il faut que les 2 classeurs soit ouverts
Set FL1 = Workbooks("Classeur1").Worksheets("Feuil1")
Set FL2 = Workbooks("Classeur2").Worksheets("Feuil1")
 
FL2.Cells(a, b).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=FL1.Cells(a, b)
 
End Sub

A+

**drthodt** · 10/10/2007, 10h17

Envoyé par LeForestier

Bonjour,
Sub rémaniée et testée...

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
Sub copierHyper()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
'Pour le test.......
Dim a, b, x, y
a = 9: b = 3
x = 10: y = 4
'-------------------
'Il faut que les 2 classeurs soit ouverts
Set FL1 = Workbooks("Classeur1").Worksheets("Feuil1")
Set FL2 = Workbooks("Classeur2").Worksheets("Feuil1")
 
FL2.Cells(a, b).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=FL1.Cells(a, b)
 
End Sub

A+

Salut,
je fais exactement la même chose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
 
Set FL1 = Workbooks("A.xls").Worksheets("Feuil1")
Set FL2 = Workbooks("B.xls").Worksheets("Feuil1")
 
FL1.Cells(1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=FL2.Cells(1, 1)
 
 
End Sub

Mais j'ai toujours la même erreur que précédemment!

**LeForestier** · 10/10/2007, 10h32

Il me semble que tu à inversé les FL1/FL2
Mais si c'est le bon sens, essaye en mettant

Code :

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

1
2
FL2.Activate
FL2.Cells(a, b).Select

Tu à certainement une erreur d'activation de classeur car chez moi ca fonctionne impec, mais dans la sub que je propose je copie du classeur1 vers Classeur2.
EDIT:
Tu doit copier de A vers B ou de B vers A ?

**ouskel'n'or** · 10/10/2007, 10h49

Je pense (pas testé) que tu dois d'abord placer l'hyperlink dans une variable, afin de n'avoir que le texte de l'adresse, puis recréer ton hyperlink dans l'autre classeur. Ce qui devrait donner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
 
Set FL1 = Workbooks("A.xls").Worksheets("Feuil1")
Set FL2 = Workbooks("B.xls").Worksheets("Feuil1")
 
Adres = FL1.Cells(1, 1).Value
FL2.Cells(a, b).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Adres
 
End Sub

Et cette solution me paraîtrait plus logique...
Tu dis
A+

**LeForestier** · 10/10/2007, 10h54

Bonjour ouskel'n'or
J'ai testé la fonction proposée et je t'assure qu'elle fonctionne tel quel.
Tu peu la tester.

A+
EDIT:
rectification poste précédant..
si c'est le bon sens

Code :

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

1
2
FL1.Activate
FL1.Cells(a, b).Select

**ouskel'n'or** · 10/10/2007, 11h03

Hello LeForestier,
Je te crois sur parole, mais comme drthodt disait avoir une erreur, je n'ai pas testé. Par contre, suis d'accord (après relecture) pour l'invertion FL1/FL2

A+

**drthodt** · 10/10/2007, 11h08

Envoyé par LeForestier

Il me semble que tu à inversé les FL1/FL2
Mais si c'est le bon sens, essaye en mettant

Code :

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

1
2
FL2.Activate
FL2.Cells(a, b).Select

Tu à certainement une erreur d'activation de classeur car chez moi ca fonctionne impec, mais dans la sub que je propose je copie du classeur1 vers Classeur2.
EDIT:
Tu doit copier de A vers B ou de B vers A ?

Je copie du A vers le B.

J'ai essayé la méthode

Code :

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

Fl1.Cells(1,1).Copy Fl2.Cells(1,1)

mais là j'obtiens bien: une copie du texte, texte qui apparaît bien en bleu et souligné mais qui n'est pas un lien hypertexte (quand je clique ensuite rien en se passe).

**ouskel'n'or** · 10/10/2007, 11h15

As-tu essayé mon code ?

**drthodt** · 10/10/2007, 14h36

Envoyé par ouskel'n'or

As-tu essayé mon code ?

Salut,
j'ai fait ça:

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
Sub essai()
 
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim Adres As Integer
 
 
Set FL1 = Workbooks("A.xls").Worksheets("Feuil1")
Set FL2 = Workbooks("B.xls").Worksheets("Feuil1")
 
Adres = FL1.Cells(1, 1).Value
FL2.Cells(1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Adres
 
 
End Sub

J'obtiens une erreur "incompatibilité de type" a ce niveau

Code :

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

Adres = FL1.Cells(1, 1).Value

J'ai déclaré adres en integer,quel type faut-il lui attribuer?

**LeForestier** · 11/10/2007, 10h35

T'a surement un excel différent des autres ??

Si le lien copier s'étale sur plusieurs colonnes il faut cliquer sur la première

Depuis le début tout fonctionne, voir mon Zip
A+
EDIT; je suis persuadé que depuis le début tu crois que toute la ligne du lien est active car
Ca fonctionne aussi

Code :

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

1
2
3
4
    Selection.Copy
    Windows("Hyper2.xls").Activate
    Range("C6").Select
    ActiveSheet.Paste

**fred65200** · 11/10/2007, 11h05

bonjour,

je crois que nous avons des versions d'Excel différentes

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
Sub copierHyper()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
'Pour le test.......
Dim a, b, x, y
a = 9: b = 3
x = 10: y = 4
'-------------------
'Il faut que les 2 classeurs soit ouverts
Set FL1 = Workbooks("Hyper1.XLS").Worksheets("Feuil1")
Set FL2 = Workbooks("Hyper2.XLS").Worksheets("Feuil3")
'FL2.Activate
'FL2.Cells(a, b).Select
'ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=FL1.Cells(a, b)
FL1.Cells(a, b).Copy FL2.Cells(x, y) 
' fonctionne et copie AUSSI le lien, pas seulement la mise en forme
End Sub

Fonctionne très bien le lien Hypertexte est copié
Dans le classeur de LeForestier, l'adresse du lien de FL1 n'est pas renseigné , elle ne peut donc pas être copié.

Cordialement

fred65200

**ouskel'n'or** · 11/10/2007, 20h19

Envoyé par drthodt

J'ai déclaré adres en integer,quel type faut-il lui attribuer?

Qu'est-ce qu'il y a dans ta cellule, un string, non ? Alors tu le laisses en variant et ça devrait fonctionner.
Dim adres
Bon, je vais tester...
A+

Edit
Testé !

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim adres
    Set FL1 = Workbooks("Liste pour fusion.xls").Worksheets("Feuil2")
    Set FL2 = Workbooks("Classeur2").Worksheets("Feuil1")
    adres = FL1.Cells(2, 9).Value
    ActiveSheet.Hyperlinks.Add Anchor:=FL2.Cells(1, 1), Address:=adres
End Sub

Bonne soirée

Edit (re)
Je me disais qu'on pouvait simplifier et effectivement...

Code :

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

1
2
3
4
5
6
7
Sub essai()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
    Set FL1 = Workbooks("Liste pour fusion.xls").Worksheets("Feuil2")
    Set FL2 = Workbooks("Classeur2").Worksheets("Feuil1")
    ActiveSheet.Hyperlinks.Add Anchor:=FL2.Cells(1, 1), Address:=FL1.Cells(2, 9).Value
End Sub

C'est évident !

On va toujours chercher midi à 14 heures...

**fred65200** · 11/10/2007, 20h19

bonsoir le fil

je persiste

Code :

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

1
2
3
 
FL1.Cells(a, b).Copy FL2.Cells(x, y) 
' fonctionne et copie AUSSI le lien, pas seulement la mise en forme

cordialement
fred65200

**ouskel'n'or** · 11/10/2007, 20h21

Peut-être bien... (je n'ai pas testé mais

Code :

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

    ActiveSheet.Hyperlinks.Add Anchor:=FL2.Cells(1, 1), Address:=FL1.Cells(2, 9).Value

fonctionne aussi... et c'est pour moi un confort intellectuel que de redéfinir le lien

Copier une cellule contenant un lien hypertexte d'un fichier à un autre?

Macros et VBA Excel

Discussions similaires

Partager

Partager