Discussion :

[Rynn]

Bonjour à tous,

J’ai un fichier A qui a des liaisons vers des cellules d’un fichier B qui sont les mêmes pendant 1 mois puis le fichier A doit pointer sa liaison vers la ligne du dessous du fichier B.

Donc je veux que dans la cellule du fichier A la liaison :

Code :

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

=+'G:\DOSSIERS\[TABLEAUB.xls]ONGLET'!J228

Devienne :

Code :

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

=+'G:\DOSSIERS\[TABLEAUB.xls]ONGLET'!J229

Le moins compliqué me semblait de créer une nouvelle liaison, donc après avoir identifié l’onglet, la ligne et la colonne du fichier B, il me reste à mettre le chemin dans la cellule du fichier A... et c'est la que ça se complique.

Le code ci-dessous fonctionne mais il note dans la cellule active le résultat trouvé et pas la liaison :

Code :

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

ActiveCell.Value = Workbooks("TABLEAUB.xls").Sheets(onglet).Cells(ligneDate, colonneDate)

Celui-ci me met la liaison mais sous forme de texte à cause de l’espace avant le = que je n’arrive pas à enlever, sans les "" il me met une erreur :

Code :

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

ActiveCell.FormulaR1C1 = "" = " & lien1 & lien2 & onglet & colonneDate & ligneDate"

J’ai aussi essayé ceux là mais il me met une erreur aussi :

Code :

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

ActiveCell.Value = Hyperlinks.Workbooks("TABLEAUB.xls").Sheets(onglet).Cells(ligneDate, colonneDate)

Code :

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

ActiveCell.Value = Hyperlinks(Workbooks("TABLEAUB.xls").Sheets(onglet).Cells(ligneDate, colonneDate))

Enfin celui-ci me met FAUX dans la cellule :

Code :

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

ActiveCell.Value = LinkSources(Workbooks("TABLEAUB.xls").Sheets(onglet).Cells(ligneDate, colonneDate))

Là je n'ai plus d'idée... aidez moi svp

Merci d’avance.

Valérie

[QuestVba]

Bonjour,

Essaie ceci

Code :

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

1
2
3
4
5
Chemin = "C:\temp\"
Fich = "Classeur1.xls"
Workbooks.Open Filename:=Chemin & Fich ').Open
Windows("Classeur2.xls").Activate
Sheets("feuil1").Range("A1").Value = Workbooks(Fich).Sheets("feuil1").Range("a1")

[Rynn]

Merci pour ta réponse mais il note dans la cellule le résultat trouvé et pas le détail du lien...

[AlainTech]

Bonjour,

Ne connaissant rien du contenu de tes variables, je te propose ceci:

Code :

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

ActiveCell.Formula = "=" & lien1 & lien2 & onglet & colonneDate & ligneDate