Lien entre 2 classeurs

tototiti2008

XLDnaute Barbatruc

• 22 Février 2011

• #2

Re : Lien entre 2 classeurs

Bonjour Luigi,

L'autre classeur, vers lequel le lien est fait, est ouvert ?

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 22 Février 2011

• #3

Re : Lien entre 2 classeurs

les deux classeurs sont ouvert

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Février 2011

• #4

Re : Lien entre 2 classeurs

Re,

à tester

Code:

ActiveCell.FormulaR1C1 = "='[SQ-Suivi Qualité.xlsm]AC'!R" & Range("'[SQ-Suivi Qualité.xlsm]AC'!C65536").end(xlup).row & "C3"

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 22 Février 2011

• #5

Re : Lien entre 2 classeurs

Super , j'ai testé et ça marche, Merci tototiti2008

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 22 Février 2011

• #6

Re : Lien entre 2 classeurs

La solution de tototiti2008 est parfaite pour des lien entre deux classeurs, maintenant j'ain un antre problème du même type. Je voudrais avoir un lien entre deux feuille du m^me classeur. L'assitant macro me donne le code suite suivant.

ActiveCell.FormulaR1C1 = "=ProjetProcess!R[5]C[3]"

Mais comme le problème précédant ma colonne ne change pas, la ligne est variable c'est soit la dernière ligne du tableau soit l'avant dernière ligne du tableau.
Quelqu'un pourrait-il m'indiquer comment récupérer la dernière ou l'avant dernière ligne du tableau.

D'avance je vous remercie

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Février 2011

• #7

Re : Lien entre 2 classeurs

Re,

Le principe est le même, as-tu essayé d'adapter la solution précédente ?
Peux tu nous dire la règle qui permet de savoir si c'est la dernière ou l'avant dernière ?

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 22 Février 2011

• #8

Re : Lien entre 2 classeurs

J'ai adapté la solution précédente et ça marche comme ci-dessous.

Pour récupérer la dernière ligne
ActiveCell.FormulaR1C1 = "=ProjetProcess!R" & Range("'ProjetProcess'!G65536").End(xlUp).Row & "C7"

Pour récupérer l'avant dernière ligne
ActiveCell.FormulaR1C1 = "=ProjetProcess!R" & Range("'ProjetProcess'!G65536").End(xlUp).Row - 1 & "C7"

la régle est une simple condition "If"

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 22 Février 2011

• #9

Re : Lien entre 2 classeurs

Re,

J'ai encore un petit souci. Les codes ci-dessus fonctionnent bien, avec ce code la formule dans le cellule est:
=ProjetProcess!$G$15
Mais moi je souhaiterais que la formule soit:
=ProjetProcess!G15

je ne veux pas les signes $, quelqu'un a t'il une solution

Merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 22 Février 2011

• #10

Re : Lien entre 2 classeurs

Re,

Code:

ActiveCell.Formula = "=ProjetProcess!G" & Range("'ProjetProcess'!G65536").End(xlUp).Row
ActiveCell.Formula = "=ProjetProcess!G" & Range("'ProjetProcess'!G65536").End(xlUp).Row - 1

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 23 Février 2011

• #11

Re : Lien entre 2 classeurs

ça marche avec ce nouveau code, merci beaucoup tototiti2008

 

Vote positif 0 Vote négatif