FormulaR1C1 liaison entre classeurs

Fermé

mlazrak Messages postés 3 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 18 août 2009 - 18 août 2009 à 14:35
mlazrak Messages postés 3 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 18 août 2009 - 18 août 2009 à 16:16

Bonjour,

J'ai un souci avec une macro excel,

Je souhaite créer dans une cellule une liaison avec une autre cellule d'un autre classeur

Voici la partie du code qui pose problème :

Cells(1 + i, j).FormulaR1C1 = "='[" & CStr(classeurs(i)) & "]" & CStr(Sheet) & "'!" & CStr(Cell)

Dans cell j'ai l'adresse de ma cellule source (ici cell = L5) as string

Le souci est que la liaison que je retrouve dans ma cellule cible est :

='[20090701_Savings_Template_V8_ex1.xls]Template WP'!'L5'

j'aimerai que la formule me sorte : L5 sans les guillemets ' ' pour la liaison foncitonne,

Qq1 pourrait m'aider ?

Merci

A voir également:

FormulaR1C1 liaison entre classeurs
Liaison torride - Forum Réseaux sociaux
Comment supprimer et desinstaller liaison torride ✓ - Forum Vos droits sur internet
Arnaque rdv torride ✓ - Forum Consommation & Internet
Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro ✓ - Forum Excel
Acheminé sur une liaison internationale - Forum Vos droits sur internet

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
18 août 2009 à 15:27

Salut,
As tu essayé sans Cstr() :
Cells(1 + i, j).FormulaR1C1 = "='[" & CStr(classeurs(i)) & "]" & CStr(Sheet) & "'!" & Cell

Réponse 2 / 4

mlazrak Messages postés 3 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 18 août 2009
18 août 2009 à 15:35

Oui , c'est toujours le même souci

Il me rajoute des guillemets sur l'adresse de la cellule => 'L5'

Réponse 3 / 4

ben13.51 Messages postés 112 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 11 janvier 2012 7
18 août 2009 à 16:03

essaye de suprimer R1C1 à la fin de ton début de code
ça donnerait:
Cells(1 + i, j).Formula = "='[" & CStr(classeurs(i)) & "]" & CStr(Sheet) & "'!" & CStr(Cell)

Réponse 4 / 4

mlazrak Messages postés 3 Date d'inscription mardi 18 août 2009 Statut Membre Dernière intervention 18 août 2009
18 août 2009 à 16:16

Excellent,

Ça fonctionne !

Merci

Mehdi

Discussions similaires

Copier une feuille d'un classeur qui s'actualise

Message d'erreur : ce paramètre source rentre en conflit...

[Liaison internationales] information

Livraison chronopost

désabonnement liaison torride