OVH Cloud OVH Cloud

Comment récupérer la valeur d'une cellule externe

4 réponses
Avatar
ocean
Bonjour tt le monde :)

Ma question est basique, je sais, mais je ne trouve pas... Vous voulez
bien m'aider ?

voici mon bout de code :
-------
fichier =3D "aaa.xls"
source1 =3D "=3D[" & fichier & "]" & Sheets(1).Name
Cells(1, 2) =3D source1 & "!R7C3"
-----
B1 contient bien "[aaa.xls]Ana1!R7C3" et affiche bien son contenu -
tout va bien....

Je voudrais (est-ce trop demander ?) n'obtenir que la valeur de
"[aaa.xls]Ana1!R7C3" comme dans copier/collage sp=E9cial/valeur et ainsi
rompre la liaison externe quand la macro de copie est termin=E9e.

cad : Si R7C23=3D"bonjour", je voudrais retrouver "bonjour" dans B1 et
pas la formule.

Je vous promets que j'ai cherch=E9 mais :((( Par contre, j'ai trouv=E9
plein d'id=E9es... Merci =E0 tous ceux qui contribuent.

Merci d'avance pour vos r=E9ponses.
Amicalement

4 réponses

Avatar
Ardus Petus
Cells(1, 2).Value =
Workbooks("aaa.xls").Worksheets("Ana1").Range("C7").Value

Cordialement,
--
AP

"ocean" a écrit dans le message de news:

Bonjour tt le monde :)

Ma question est basique, je sais, mais je ne trouve pas... Vous voulez
bien m'aider ?

voici mon bout de code :
-------
fichier = "aaa.xls"
source1 = "=[" & fichier & "]" & Sheets(1).Name
Cells(1, 2) = source1 & "!R7C3"
-----
B1 contient bien "[aaa.xls]Ana1!R7C3" et affiche bien son contenu -
tout va bien....

Je voudrais (est-ce trop demander ?) n'obtenir que la valeur de
"[aaa.xls]Ana1!R7C3" comme dans copier/collage spécial/valeur et ainsi
rompre la liaison externe quand la macro de copie est terminée.

cad : Si R7C23="bonjour", je voudrais retrouver "bonjour" dans B1 et
pas la formule.

Je vous promets que j'ai cherché mais :((( Par contre, j'ai trouvé
plein d'idées... Merci à tous ceux qui contribuent.

Merci d'avance pour vos réponses.
Amicalement
Avatar
Daniel
Bonjour.
Essaie :
Cells(1, 2).Formula = source1 & "!R7C3"
Cordialement.
Daniel
"ocean" a écrit dans le message de news:

Bonjour tt le monde :)

Ma question est basique, je sais, mais je ne trouve pas... Vous voulez
bien m'aider ?

voici mon bout de code :
-------
fichier = "aaa.xls"
source1 = "=[" & fichier & "]" & Sheets(1).Name
Cells(1, 2) = source1 & "!R7C3"
-----
B1 contient bien "[aaa.xls]Ana1!R7C3" et affiche bien son contenu -
tout va bien....

Je voudrais (est-ce trop demander ?) n'obtenir que la valeur de
"[aaa.xls]Ana1!R7C3" comme dans copier/collage spécial/valeur et ainsi
rompre la liaison externe quand la macro de copie est terminée.

cad : Si R7C23="bonjour", je voudrais retrouver "bonjour" dans B1 et
pas la formule.

Je vous promets que j'ai cherché mais :((( Par contre, j'ai trouvé
plein d'idées... Merci à tous ceux qui contribuent.

Merci d'avance pour vos réponses.
Amicalement
Avatar
Daniel
Au temps pour moi.
J'ai rien compris au film.
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Essaie :
Cells(1, 2).Formula = source1 & "!R7C3"
Cordialement.
Daniel
"ocean" a écrit dans le message de news:

Bonjour tt le monde :)

Ma question est basique, je sais, mais je ne trouve pas... Vous voulez
bien m'aider ?

voici mon bout de code :
-------
fichier = "aaa.xls"
source1 = "=[" & fichier & "]" & Sheets(1).Name
Cells(1, 2) = source1 & "!R7C3"
-----
B1 contient bien "[aaa.xls]Ana1!R7C3" et affiche bien son contenu -
tout va bien....

Je voudrais (est-ce trop demander ?) n'obtenir que la valeur de
"[aaa.xls]Ana1!R7C3" comme dans copier/collage spécial/valeur et ainsi
rompre la liaison externe quand la macro de copie est terminée.

cad : Si R7C23="bonjour", je voudrais retrouver "bonjour" dans B1 et
pas la formule.

Je vous promets que j'ai cherché mais :((( Par contre, j'ai trouvé
plein d'idées... Merci à tous ceux qui contribuent.

Merci d'avance pour vos réponses.
Amicalement




Avatar
ocean
Merci beaucoup Ardus, marci aussi à toi Daniel.

A charge de revanche... lol

Amicalement
Océan



Cells(1, 2).Value =
Workbooks("aaa.xls").Worksheets("Ana1").Range("C7").Value

Cordialement,
--
AP