Coller à la suite, macro enregistrement

Le 01/08/2014 à 09:43

Bonjour a tous,

Je reviens vers vous car toujours sur VBA en ce moment.

Voila g créer une macro en mode enregistrement ( copier ci dessous).

Pour la petite histoire c un dossier qui copie des valeurs d'une synthèse vers différents fichiers chaque semaine.

Voila la maro fonctionne mais je voudrais juste que la copie se fasse à la suite.

Vous avez une idée?

Merci d'avance

Sub macroreport()

' macroreport Macro

Rows("3:3").Select

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BIL1.xlsx"

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("4:4").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BIL2.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("5:5").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BIL3.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("6:6").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\ENG1.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("7:7").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\ENG4.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("8:8").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BAT1.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("9:9").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BAT2.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("10:10").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\BIL4.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("11:11").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\DEM2.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("12:12").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\DEM3.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("13:13").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\DEM4.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("14:14").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\DEM5.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("15:15").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\ENG2.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("16:16").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\ENG3.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("17:17").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\DEM1.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("18:18").Select

Application.CutCopyMode = False

Selection.Copy

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\GP1.xlsx"

Range("A3").Select

ActiveSheet.Paste

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

Rows("19:19").Select

Application.CutCopyMode = False

Selection.Copy

Application.WindowState = xlMinimized

Workbooks.Open Filename:= _

"N:\Datateam\Production\UAP 0\05 - Methodes\19 - Chantiers S1-2014\jérôme athome\report TRS TRP\machine\GP3.xlsx"

Range("A3").Select

ActiveSheet.Paste Link:=True

ActiveWorkbook.Save

ActiveWindow.Close

End Sub

Le 01/08/2014 à 09:53

Bonjour,

en remplaçant la cellule que tu sélectionne a chaque fois que tu ouvre un nouveau fichier par la dernière cellule de la colonne, autrement dit, en remplaçant

Range("A3").Select

par

Range("A" & Range("A65536").End(xlUp).Row + 1).Select

edit: Range("A65536").End(xlUp).Row +1

Le 01/08/2014 à 10:20

Ben écoute ok mais pourquoi j'ais remplacé 16 valeurs alors qu'ils y a 17 copies.

Il me semble que pour la première ouverture et copie c'est différent.

Il n' y a pas de Range (A3).select

Le 01/08/2014 à 10:34

Han mince, hummmmmmmmmmmm

rajoute la ? :p

edit: sinon, ça fonctionne ?

Le 01/08/2014 à 10:47

je n'ais pas essayer encore jvoulais attendre qu'elle soit terminé.

Jvais essayer de la rajouter comme ça et j'essay

Jte dis koi après

ça ne fonctionne pas du tout, je dirais mm que ça copie n'importe ou n'importe comment.

C'est plus ou moin les mm fichiers que la semaine dernière mais mon chef ma demandé de changer de rapport de prod donc je recommence tout depuis le début.

En gros (le fichier ci dessous) qui s'appelle trame.

la feuille 1 je l'alimente chaque semaine, ce qui génère la conversion et la synthèse.

Je voudrais que chaque ligne de la syntèse ( 17 lignes= 17 machines différentes=17 fichiers) aillent dans le dossier machine correspondant.

BIL1,BIL2,BIL3,......

Pourtant je l'ais créé avec enregistrement de macro.

14tramesuivi.xlsm (70.67 Ko)

11bil1.xlsx (9.69 Ko)

Le 01/08/2014 à 11:26

Ecoute, je ré-ré-ré-ré-ré-réssay encore une fois, mm en m'aidant de mon premier fichier je ne comprend pas ou est l'erreur.

Rechercher des sujets similaires à "coller suite macro enregistrement"