Discussion :

[drthodt]

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é]

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]

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]

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]

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]

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