frayer
XLDnaute Nouveau
Bjour le Forum,
avec votre aide j'ai obtenu cette macro.
Mais je voudrais copier le FORMAT de ma cellule I2 de mon fichier MonPort_EnTete.xls dans toute la colonne I (depuis I9 inclus) de mon fichier DA_Costs_Tariffs_Report.xls, avec la même recherche de la dernière ligne de données existantes que pour les colonnes L9:AA9
Voici le bout de macro qu'il faut que je modifie ??
Merci pour votre aide
'Open "MonPort_EnTete.xls" + copy rows 1+2 (A1:AA2)
'--------------------------------------------------
Workbooks.Open Filename:= _
"\\gvafiler00\mrossier\My Documents\MonPort_EnTete.xls"
Range("A1:AA2").Select
Range("AA1").Activate
Selection.Copy
'Past in active file > "DA_Costs_Tariffs_Report.xls"
'----------------------------------------------------
Windows("DA_Costs_Tariffs_Report.xls").Activate
ActiveSheet.Paste
Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False
'Recherche de la dernière ligne, SUR COLONNE "B" (selon code Forum)
'===================================================
der = Range("B65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault
avec votre aide j'ai obtenu cette macro.
Mais je voudrais copier le FORMAT de ma cellule I2 de mon fichier MonPort_EnTete.xls dans toute la colonne I (depuis I9 inclus) de mon fichier DA_Costs_Tariffs_Report.xls, avec la même recherche de la dernière ligne de données existantes que pour les colonnes L9:AA9
Voici le bout de macro qu'il faut que je modifie ??
Merci pour votre aide
'Open "MonPort_EnTete.xls" + copy rows 1+2 (A1:AA2)
'--------------------------------------------------
Workbooks.Open Filename:= _
"\\gvafiler00\mrossier\My Documents\MonPort_EnTete.xls"
Range("A1:AA2").Select
Range("AA1").Activate
Selection.Copy
'Past in active file > "DA_Costs_Tariffs_Report.xls"
'----------------------------------------------------
Windows("DA_Costs_Tariffs_Report.xls").Activate
ActiveSheet.Paste
Range("L9:AA9").Select
Range("AA9").Activate
Application.CutCopyMode = False
'Recherche de la dernière ligne, SUR COLONNE "B" (selon code Forum)
'===================================================
der = Range("B65000").End(xlUp).Row
Selection.AutoFill Destination:=Range("L9:AA" & der), Type:=xlFillDefault