Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pbl de macros

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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Re...
il ne faut pas oblier le tiret après copy
Sur que non, mais saisir le code sur une seule ligne


j'ai au moins 7 feuille
A conditions que les feuilles existent

'-------------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls")
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets("Feuil" & i).Cells.Copy
leNouvClass.Worksheets("feuil" & i).Range("a1")
Next
End Sub
'--------------
JJ

"rick" a écrit dans le message de
news:
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










Avatar
Jacky
Bonjour Pascal
Mes excuses Pascal, je n'ai pas vu que tu avais déjà donné la réponse
hier.
Bien plus complete que la mienne d'ailleurs...
JJ

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:
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


Avatar
rick
les feuilles de l'ancien classeur ont un nom, ils ne se nomment pas feuil1,
feuil2, feuil3....

mais le temps d'execution est enorme, ca toune et ca plante ensuite???


Re...
il ne faut pas oblier le tiret après copy
Sur que non, mais saisir le code sur une seule ligne


j'ai au moins 7 feuille
A conditions que les feuilles existent

'-------------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls")
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets("Feuil" & i).Cells.Copy
leNouvClass.Worksheets("feuil" & i).Range("a1")
Next
End Sub
'--------------
JJ

"rick" a écrit dans le message de
news:
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















Avatar
Jacky
re..

les feuilles de l'ancien classeur ont un nom, ils ne se nomment pas
feuil1,


feuil2, feuil3....

Alors ceci peut-être
'--------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls") 'adapter les noms de
classeur
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets(i).Cells.Copy
leNouvClass.Worksheets(i).Range("a1")
Next
End Sub
'-----------
JJ

"rick" a écrit dans le message de
news:
les feuilles de l'ancien classeur ont un nom, ils ne se nomment pas
feuil1,

feuil2, feuil3....

mais le temps d'execution est enorme, ca toune et ca plante ensuite???


Re...
il ne faut pas oblier le tiret après copy
Sur que non, mais saisir le code sur une seule ligne


j'ai au moins 7 feuille
A conditions que les feuilles existent

'-------------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls")
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets("Feuil" & i).Cells.Copy
leNouvClass.Worksheets("feuil" & i).Range("a1")
Next
End Sub
'--------------
JJ

"rick" a écrit dans le message de
news:
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

















Avatar
rick
ce que je ne comprend pas ca copie une feuille ensuite, j'ai toujours le
sablier, pendant 10 minutes au moins et aucun import sauf sur une feuille,
d'ou cela peut provenir.

Merci d'avance?



re..

les feuilles de l'ancien classeur ont un nom, ils ne se nomment pas
feuil1,


feuil2, feuil3....

Alors ceci peut-être
'--------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls") 'adapter les noms de
classeur
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets(i).Cells.Copy
leNouvClass.Worksheets(i).Range("a1")
Next
End Sub
'-----------
JJ

"rick" a écrit dans le message de
news:
les feuilles de l'ancien classeur ont un nom, ils ne se nomment pas
feuil1,

feuil2, feuil3....

mais le temps d'execution est enorme, ca toune et ca plante ensuite???


Re...
il ne faut pas oblier le tiret après copy
Sur que non, mais saisir le code sur une seule ligne


j'ai au moins 7 feuille
A conditions que les feuilles existent

'-------------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls")
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets("Feuil" & i).Cells.Copy
leNouvClass.Worksheets("feuil" & i).Range("a1")
Next
End Sub
'--------------
JJ

"rick" a écrit dans le message de
news:
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






















Avatar
Jacky
Re...
Si tu le souhaites, ton fichier ici:
http://cjoint.com

JJ


"rick" a écrit dans le message de
news:
ce que je ne comprend pas ca copie une feuille ensuite, j'ai toujours le
sablier, pendant 10 minutes au moins et aucun import sauf sur une
feuille,

d'ou cela peut provenir.

Merci d'avance?



re..

les feuilles de l'ancien classeur ont un nom, ils ne se nomment
pas




feuil1,
feuil2, feuil3....

Alors ceci peut-être
'--------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls") 'adapter les noms
de


classeur
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets(i).Cells.Copy
leNouvClass.Worksheets(i).Range("a1")
Next
End Sub
'-----------
JJ

"rick" a écrit dans le message de
news:
les feuilles de l'ancien classeur ont un nom, ils ne se nomment
pas



feuil1,
feuil2, feuil3....

mais le temps d'execution est enorme, ca toune et ca plante
ensuite???





Re...
il ne faut pas oblier le tiret après copy
Sur que non, mais saisir le code sur une seule ligne


j'ai au moins 7 feuille
A conditions que les feuilles existent

'-------------
Sub jj()
Set leClassACopier = Workbooks("classeur1.xls")
Set leNouvClass = Workbooks("classeur2.xls")
For i = 1 To 7 'a adapter au nombre de feuilles
leClassACopier.Worksheets("Feuil" & i).Cells.Copy
leNouvClass.Worksheets("feuil" & i).Range("a1")
Next
End Sub
'--------------
JJ

"rick" a écrit dans le
message de




news:
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