OVH Cloud OVH Cloud

pbl de macros

16 réponses
Avatar
rick
bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance

10 réponses

1 2
Avatar
Daniel
Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance



Avatar
rick
j'ai le message d'erreur, impoossible de coller les informations car les
zones de copier et coller sont de taille differentes, pourtant c'est le meme
tableau.

comment faire un collage spécial,c'est a dire le format et les valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance








Avatar
Daniel
Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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

j'ai le message d'erreur, impoossible de coller les informations car les
zones de copier et coller sont de taille differentes, pourtant c'est le
meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance










Avatar
rick
j'ai déja essayé, j'ai réexecuté par rapport à ce que tu m'a indiqué.
et j'ai le message: la methode select de la class range à échoué.
pourtant le code me parait bon???

je bloque là?
as tu une idéé

merci

Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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

j'ai le message d'erreur, impoossible de coller les informations car les
zones de copier et coller sont de taille differentes, pourtant c'est le
meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance















Avatar
Daniel
Es-tu sûr d'avoir renseigné la variable sh.name et correspond-elle bien à un
nom de feuille ?
Daniel
"rick" a écrit dans le message de news:

j'ai déja essayé, j'ai réexecuté par rapport à ce que tu m'a indiqué.
et j'ai le message: la methode select de la class range à échoué.
pourtant le code me parait bon???

je bloque là?
as tu une idéé

merci

Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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

j'ai le message d'erreur, impoossible de coller les informations car
les
zones de copier et coller sont de taille differentes, pourtant c'est le
meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante
a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance

















Avatar
papou
Bonjour
Il s'agit de tout évidence d'une adaptation de l'exemple que j'ai fourni à
rick hier.
sh.name ne fonctionne dans mon exemple qu'avec une boucle For Each.
Cordialement
Pascal

"Daniel" a écrit dans le message de news:
#
Es-tu sûr d'avoir renseigné la variable sh.name et correspond-elle bien à
un

nom de feuille ?
Daniel
"rick" a écrit dans le message de news:

j'ai déja essayé, j'ai réexecuté par rapport à ce que tu m'a indiqué.
et j'ai le message: la methode select de la class range à échoué.
pourtant le code me parait bon???

je bloque là?
as tu une idéé

merci

Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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




j'ai le message d'erreur, impoossible de coller les informations car
les
zones de copier et coller sont de taille differentes, pourtant c'est
le




meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille
correspondante






a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance





















Avatar
rick
cela ne resout toujours pas mon probleme avec le message d'erreur sur le select

merci


Bonjour
Il s'agit de tout évidence d'une adaptation de l'exemple que j'ai fourni à
rick hier.
sh.name ne fonctionne dans mon exemple qu'avec une boucle For Each.
Cordialement
Pascal

"Daniel" a écrit dans le message de news:
#
Es-tu sûr d'avoir renseigné la variable sh.name et correspond-elle bien à
un

nom de feuille ?
Daniel
"rick" a écrit dans le message de news:

j'ai déja essayé, j'ai réexecuté par rapport à ce que tu m'a indiqué.
et j'ai le message: la methode select de la class range à échoué.
pourtant le code me parait bon???

je bloque là?
as tu une idéé

merci

Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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




j'ai le message d'erreur, impoossible de coller les informations car
les
zones de copier et coller sont de taille differentes, pourtant c'est
le




meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

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

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille
correspondante






a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance


























Avatar
papou
Tu n'as pas besoin d'un collage spécial puisque tu recopies valeurs ET
formats !
Donc :
'****** Début de code *******
leClassACopier.Worksheets(sh.Name).Cells.Copy _
leNouvClass.Worksheets(sh.Name).range("A1")
'****** Fin de code *********
devrait le faire sans aucun problème si tu es bien dans la boucle For each
que je t'avais donné en exemple hier.
Cordialement
Pascal

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

cela ne resout toujours pas mon probleme avec le message d'erreur sur le
select


merci


Bonjour
Il s'agit de tout évidence d'une adaptation de l'exemple que j'ai fourni
à


rick hier.
sh.name ne fonctionne dans mon exemple qu'avec une boucle For Each.
Cordialement
Pascal

"Daniel" a écrit dans le message de news:
#
Es-tu sûr d'avoir renseigné la variable sh.name et correspond-elle
bien à



un
nom de feuille ?
Daniel
"rick" a écrit dans le message de
news:




j'ai déja essayé, j'ai réexecuté par rapport à ce que tu m'a
indiqué.




et j'ai le message: la methode select de la class range à échoué.
pourtant le code me parait bon???

je bloque là?
as tu une idéé

merci

Essaie :
leNouvClass.Worksheets(sh.Name).Range("A1").Select
ActiveSheet.Paste
Cordialement.
Daniel

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




j'ai le message d'erreur, impoossible de coller les informations
car






les
zones de copier et coller sont de taille differentes, pourtant
c'est






le
meme
tableau.

comment faire un collage spécial,c'est a dire le format et les
valeurs.merci


Bonjour.

leNouvClass.Worksheets(sh.Name).paste

Cordialement.
Daniel

"rick" a écrit dans le message
de







news:

bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille
correspondante






a
mon
classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance




























Avatar
Jacky
Bonjour à tous

Ceci fonctionne chez moi sans problème..

'------------
Sub jj()
Set leClassACopier = Workbooks("classeur1")
Set leNouvClass = Workbooks("classeur2")

leClassACopier.Worksheets("Feuil1").Cells.Copy
leNouvClass.Worksheets("Feuil1").Range("a1")

End Sub
'--------------
Salutations
JJ

"rick" a écrit dans le message de
news:
bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a
mon

classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance



Avatar
rick
il ne faut pas oblier le tiret après copy, mais le problème est que
l'execution est en cours, j'ai pas de soucis de syntaxe, mais l'execution ne
se termine pas

j'ai au moins 7 feuille

???


Bonjour à tous

Ceci fonctionne chez moi sans problème..

'------------
Sub jj()
Set leClassACopier = Workbooks("classeur1")
Set leNouvClass = Workbooks("classeur2")

leClassACopier.Worksheets("Feuil1").Cells.Copy
leNouvClass.Worksheets("Feuil1").Range("a1")

End Sub
'--------------
Salutations
JJ

"rick" a écrit dans le message de
news:
bonjour,

j'ai une macro qui me pose probleme:

Set leClassACopier = Workbooks("testacopier.xls")
Set leNouvClass = Workbooks("test.xls")

leClassACopier.Worksheets(sh.Name).Cells.Copy
leNouvClass.Worksheets(sh.Name).cells.paste

je souhaite au fait copier les cellules de la feuille correspondante a
mon

classeur testacopier sur le classeur test.xls

cette ligne m'indique l'erreur:
"leNouvClass.Worksheets(sh.Name).cells.paste

proprièté ou methode non géréé par cette objet.

savez vous pourquoi?
merci d'avance








1 2