macro copier ligne d'un classeur a un autre

[leriderfoudu77]

Salut forum,

je suis novice en macro sous excel et je souhaiterai savoir comment faire pour copier une ligne(par exemple ligne 21 de la feuille feuil1) d'un classeur, disons classeur1( wha l'imagination lol), vers un autre (devinez.....) classeur2 feuil1 (et ouais bien jouer ;-) ).

faut-il que les deux classeurs soient ouverts au moment de l'execution de la macro ?

Voila merci d'avance de vos reponses.
Bonne continuation.
leriderfoudu77.

 

[Gérard DEZAMIS]

Bonjour LeriderFoudu77

Salut la Seine & Marne ?

Sub Copie()

Application.ScreenUpdating = False
Windows("Classeur1").Activate
Sheets("Feuil1").Select
Rows("21:21").Select
Selection.Copy
Windows("Classeur2").Activate
Sheets("Feuil1").Select
Rows("21:21").Select
ActiveSheet.Paste
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Devrait convenir.
Les deux classeurs sont ouverts avant mais il est aussi possible de les ouvrir (fermer aussi) automatiquement en précisant le chemin.
@+
GD

 

[leriderfoudu77]

Salut merci de votre reponse si rapide !! 🙂
le seul truc j'ai essayer la macro ds le meme classeur sa marche mais quand je le fais sur un seconde classeur(les deux sont ouverts)j'ai le message d'erreur suivant :"erreur d'execution 1004 erreur definie par l'application par l'objet" ou alors j'ai cette ereur : "la methode select de la classe range a echoué ". j'ai pas bien compris pourquoi ce n'est as la meme erreur qui apparait je dois avouer....

D'avance Merci !! :-D
Bonne continuation

 

[leriderfoudu77]

J'ai reussi a avancer dans la resolution de mon probleme mais c toujours pas sa......

voila mon code grace au explication de Gerard Dezamis (grand merci soit dit en passant)

Application.ScreenUpdating = False
Rows("2:2").Select
Range("BM2").Activate
Selection.Copy
ActiveSheet.Paste
Rows("9:9").Select
Range("BM9").Activate
ActiveSheet.Paste
Windows("Données Ch.Analyse.xls").Activate

Rows("4:4").Select

Range("BU4").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("Zint_IR1T04.xls").Activate
Rows("2:2").Select
Range("BM2").Activate
ActiveSheet.Paste
Rows("21:21").Select
Range("BM21").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

j'ai isolé la ligne qui crée l'erreur : la methode select de la classe range a echoué

Il faut savoir que la macro fonctionne en mode Macro mais j'ai copier son code dans un bouton afin de facilité son execution mais lorsque j'appui sur le boutton le message de debogage apprait en surlignant la ligne ci-dessus.

D'avance Merci
Math le riderfoudu77 😉

 

[Gérard DEZAMIS]

Re Bonjour LRDdu77

Essaye de préciser la "navigation" d"un classeur à l'autre en identifiant la feuille sur laquelle tu vas travailler

avec Sheets("Nom de ta feuille").Select
puis la selection de Range

Il suffit parfois de peu de choses pour égarer ce pauvre Excel....
Essaye on ne sait jamais...
@+
GD

 

[leriderfoudu77]

Encore merci de votre reponse mais malheureusement mon probleme persiste.....
Le truc etrange c'est que la macro qd je la lance par le menu macro macro fonctionne mais en copiant son code dans un boutton OnClick la aparait mon erreur....
Bon je vais faire sans boutton pour le moment mais un solution serait la bien venue un jour ....peut-etre.....peut-etre un jour... lol
Aller encore merci et tres longue vie à ce forum !!!!!!!!!!!!!!!!!!!!!