M
masteur907
Guest
Bonjour à tous,
Je pense que je commence à être connue mais les débuts sont difficiles.
Voici une macro que j'ai créé mais j'ai du mal rentrer un code notament sur la ligne erreur car elle marche pas.
J'avoue mon impuissance sur ce problème
Sub PIC()
ThisWorkbook.FollowHyperlink "C:\Projets\PIC 2004.xls"
Sheets("Data").Select
Cells.Select
Selection.Copy
Windows("Prise des données du pic.xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste--------------------------------------------------------- ERREUR
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Selection.ColumnWidth = 17.5
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Columns("A:B").Select
Selection.ColumnWidth = 13.5
Range("A16").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[2],8)"
Range("B16").Select
ActiveCell.FormulaR1C1 = _
"=SUM(RC[7],RC[10],RC[13],RC[16],RC[19],RC[22],RC[25],RC[28],RC[31],RC[34],RC[37],RC[40])"
Range("A16:B16").Select
Selection.AutoFill Destination:=Range("A16:B1525"), Type:=xlFillDefault
Range("A16:B1525").Select
Selection.End(xlUp).Select
Range("A2").Select
Windows("PIC 2004.xls").Activate
Range("A1").Select
ActiveWindow.Close
Sheets("Feuil1").Select
End Sub
Merci de votre aide
Je pense que je commence à être connue mais les débuts sont difficiles.
Voici une macro que j'ai créé mais j'ai du mal rentrer un code notament sur la ligne erreur car elle marche pas.
J'avoue mon impuissance sur ce problème
Sub PIC()
ThisWorkbook.FollowHyperlink "C:\Projets\PIC 2004.xls"
Sheets("Data").Select
Cells.Select
Selection.Copy
Windows("Prise des données du pic.xls").Activate
Sheets("Feuil2").Select
ActiveSheet.Paste--------------------------------------------------------- ERREUR
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Selection.ColumnWidth = 17.5
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Columns("A:B").Select
Selection.ColumnWidth = 13.5
Range("A16").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[2],8)"
Range("B16").Select
ActiveCell.FormulaR1C1 = _
"=SUM(RC[7],RC[10],RC[13],RC[16],RC[19],RC[22],RC[25],RC[28],RC[31],RC[34],RC[37],RC[40])"
Range("A16:B16").Select
Selection.AutoFill Destination:=Range("A16:B1525"), Type:=xlFillDefault
Range("A16:B1525").Select
Selection.End(xlUp).Select
Range("A2").Select
Windows("PIC 2004.xls").Activate
Range("A1").Select
ActiveWindow.Close
Sheets("Feuil1").Select
End Sub
Merci de votre aide