Worbooks("toto").worksheets("titi").range("B2:C20").copy destination:= Workbooks("blabla").worksheets("wow").range("F1")
Peux tu me dire s'il te plaît pourquoi les ".select" ".selection" etc sont à éviter ? Une raison pratique ? Esthétique ? Ou pire, ils génèrent un problème au niveau du code ?
Rows("2:2").Select Selection.Insert Shift:=xlDown Range("A2:H2").EntireRow.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSet appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\ptc_config\config_perso_wf2\code_xls\base.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
'copier la ligne 2 sur fichier code.xls
Workbooks("code.xls").Activate
'selectionne la ligne 2 '<<<<<<< la ligne 2 de quelle feuille, penses-tu ? elle est à préciser
Range("A2:H2").Copy '
'Activation du classeur base.xls
Workbooks("base.xls").Activate
'Insertion d'une ligne à la ligne 1
Rows("2:2").Select ' <<<<<<<< sur quelle feuille ^penses-tu être ainsi ? A préciser
Selection.Insert Shift:=xlDown
Range("A2:H2").EntireRow.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone
Option Explicit Function Ajout_Base() 'Ouverture du classeur base.xls Workbooks.Open Filename:= _ "C:\ptc_config\config_perso_wf2\code_xls\base.xls" 'Insertion d'une nouvelle ligne Rows("2:2").Select Selection.Insert Shift:=xlDown 'copie de la ligne 2 du classeur code.xls vers base.xls Workbooks("code.xls").Worksheets("Feuil1").Range("A2:H2").Copy Destination:=Workbooks("base.xls").Worksheets("Feuil1").Range("A2") End Function
Rows("2:2").Select Selection.Insert Shift:=xlDown
Option Explicit Function Ajout_Base() 'Ouverture du classeur base.xls Workbooks.Open Filename:= _ "C:\ptc_config\config_perso_wf2\code_xls\base.xls" 'Insertion d'une nouvelle ligne Workbooks("base.xls").Worksheets("Feuil1").Rows("3:3").Insert Shift:=xlDown 'copie de la ligne 2 du classeur code.xls vers base.xls Workbooks("code.xls").Worksheets("Feuil1").Range("A2:H2").Copy Destination:=Workbooks("base.xls").Worksheets("Feuil1").Range("A3") End Function