OVH Cloud OVH Cloud

Utilisation de Range

4 réponses
Avatar
Béatrice
Tout d'abord merci en peinant sur tout mes problèmes je suis tombée sur
l'excellent site Excellabo qui m'a déjà énormément aidé. Il me reste
encore une petite (3 million) question probablement fort simple à
résoudre (mais pas pour moi en tous cas).
Mon but est de copier le contenu d'une cellule d'un workbook x dans la
cellule d'un workbook y, en pilotant le tout d'un workbook z qui est mon
programme.
Je dois faire une erreur de syntaxe ou alors je dois me gourer de démarche.
Ceci est-il possible sans devoir activer d'abord le workbook y ?
En tous les cas j'ai une erreur "9 : l'erreur n'appartiens pas à la
sélection" et je suis fort fatiguée.

r1.Copy _Destination:=Workbooks(newWkBName)
_.Worksheets(sh1Cib).Range(rgParamCibl).Offset(0, -1)


Merci à quiconque a la gentiesse de me répondre

4 réponses

Avatar
Clément Marcotte
À première vue et non resté. (Il faut que les classeurs soient ouverts)

workbooks("y").sheets("Feuil1").range("c1").value =
workbooks("z").sheets(Feuil1").range("c4").value

(Tout sur la même ligne)


"Béatrice" a écrit dans le message de news:

Tout d'abord merci en peinant sur tout mes problèmes je suis tombée sur
l'excellent site Excellabo qui m'a déjà énormément aidé. Il me reste
encore une petite (3 million) question probablement fort simple à résoudre
(mais pas pour moi en tous cas).
Mon but est de copier le contenu d'une cellule d'un workbook x dans la
cellule d'un workbook y, en pilotant le tout d'un workbook z qui est mon
programme.
Je dois faire une erreur de syntaxe ou alors je dois me gourer de
démarche.
Ceci est-il possible sans devoir activer d'abord le workbook y ?
En tous les cas j'ai une erreur "9 : l'erreur n'appartiens pas à la
sélection" et je suis fort fatiguée.

r1.Copy _Destination:=Workbooks(newWkBName)
_.Worksheets(sh1Cib).Range(rgParamCibl).Offset(0, -1)


Merci à quiconque a la gentiesse de me répondre


Avatar
Béatrice
Hourrrrrra j'ai fait une stupide erreur dans Workbooks(newWkBName) il
manquait .xls dans la variable newWkBName pour identifier le workbook!
Programmer est épouvantable quand on a pas de tête (ou le reste
d'ailleurs). Du travail en moins pour vous et mes remerciements de
toutes façon ce n'est pas dis que je ne revienne pas à la charge :)

Tout d'abord merci en peinant sur tout mes problèmes je suis tombée sur
l'excellent site Excellabo qui m'a déjà énormément aidé. Il me reste
encore une petite (3 million) question probablement fort simple à
résoudre (mais pas pour moi en tous cas).
Mon but est de copier le contenu d'une cellule d'un workbook x dans la
cellule d'un workbook y, en pilotant le tout d'un workbook z qui est mon
programme.
Je dois faire une erreur de syntaxe ou alors je dois me gourer de démarche.
Ceci est-il possible sans devoir activer d'abord le workbook y ?
En tous les cas j'ai une erreur "9 : l'erreur n'appartiens pas à la
sélection" et je suis fort fatiguée.

r1.Copy _Destination:=Workbooks(newWkBName)
_.Worksheets(sh1Cib).Range(rgParamCibl).Offset(0, -1)


Merci à quiconque a la gentiesse de me répondre


Avatar
Béatrice
Merci Clément d'avoir répondu, cette fois-ci je m'en suis sortie mais
quel stress. La procédure marche mais c'est le nom que je donnais au
workbook qui était incorrect.

À première vue et non resté. (Il faut que les classeurs soient ouverts)

workbooks("y").sheets("Feuil1").range("c1").value =
workbooks("z").sheets(Feuil1").range("c4").value

(Tout sur la même ligne)


"Béatrice" a écrit dans le message de news:


Tout d'abord merci en peinant sur tout mes problèmes je suis tombée sur
l'excellent site Excellabo qui m'a déjà énormément aidé. Il me reste
encore une petite (3 million) question probablement fort simple à résoudre
(mais pas pour moi en tous cas).
Mon but est de copier le contenu d'une cellule d'un workbook x dans la
cellule d'un workbook y, en pilotant le tout d'un workbook z qui est mon
programme.
Je dois faire une erreur de syntaxe ou alors je dois me gourer de
démarche.
Ceci est-il possible sans devoir activer d'abord le workbook y ?
En tous les cas j'ai une erreur "9 : l'erreur n'appartiens pas à la
sélection" et je suis fort fatiguée.

r1.Copy _Destination:=Workbooks(newWkBName)
_.Worksheets(sh1Cib).Range(rgParamCibl).Offset(0, -1)


Merci à quiconque a la gentiesse de me répondre







Avatar
jps
heu....de quoi s'agit-il donc?
jps

"Béatrice" a écrit dans le message de news:
umrW%
Programmer est épouvantable quand on a pas de tête (ou le reste
d'ailleurs).