ma macro ne se developpe pas

[PHILIP]

Bonsoir à tous

J'ai besoin de votre aide car une erreur m'indique "erreur 9 l'indice n'appartient pas à la selection indiquée et la je ne comprends pas
Ma macro est senséee créee un classeur, renommée les 3 feuilles ajouter une 4eme et la renommée, ouvrir un classeur existant, copier sa premiere feuille et la coller dans la premiere feuille du dossier crée puis elle doit la mettre en forme . helas elle creer bien le classeur , ouvre bien le classeur demandé mais se met en erreur dés la premiere feuille selectionnée qui existe bien elle
Pourriez vous m'aider ? je suis encore débutant
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\ Tages.xls")
Sheets("Feuil1").Name = "Tagesleitung1"
Sheets("Feuil2").Name = "Ruckstand Znl"
Sheets("Feuil3").Name = "Ruckstand Zdl"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Status 6"
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
ActiveWorkbook.RefreshAll
Sheets("Tagesleitung").Activate Cells.Select
Selection.Copy
Workbooks("Tages").Worksheets("Tagesleitung1").Activate

Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Windows("TAGESBERICHT.xls").Activate
Application.CutCopyMode = False
'Selection.Copy
'Windows("Classeur3").Activate
'Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Rows("3:3").RowHeight = 15.75
Rows("4:4").RowHeight = 2.25
Rows("1:1").RowHeight = 65.25

End Sub

 

[ROGER2327]

Re : ma macro ne se developpe pas

Bonjour PHILIP

Avec un coup d'œil en diagonale, je vois au moins ça :

Sheets("Tagesleitung").Activate Cells.Select

doit s'écrire

Sheets("Tagesleitung").Activate
Cells.Select

ou

Sheets("Tagesleitung").Activate: Cells.Select

Mais le code est long et en vrac ce qui le rend difficilement lisible : il y a peut-être d'autres choses qu'on pourrait remarquer dans une présentation propre.​

ROGER2327
#2409

 

[PHILIP]

Re : ma macro ne se developpe pas

Sub relevé()

Workbooks.Add
  ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\ Tages.xls")
    Sheets("Feuil1").Name = "Tagesleitung1"
    Sheets("Feuil2").Name = "Ruckstand Znl"
    Sheets("Feuil3").Name = "Ruckstand Zdl"
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Status 6"
Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
  ActiveWorkbook.RefreshAll
    [COLOR="Orange"]Sheets("Tagesleitung").Activate.Cells.Select[/COLOR]   Selection.Copy 
Workbooks("Tages").Worksheets("Tagesleitung1").Activate

 Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,      SkipBlanks _:=False, Transpose:=False
 'Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
 'Windows("TAGESBERICHT.xls").Activate
  Application.CutCopyMode = False
   'Selection.Copy
 'Windows("Classeur3").Activate
'Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
Rows("3:3").RowHeight = 15.75
Rows("4:4").RowHeight = 2.25
Rows("1:1").RowHeight = 65.25

End Sub

il est mieux comme cela ?

 

[Roland_M]

Re : ma macro ne se developpe pas

bonsoir

Salut Roger2327

encore > Sheets("Tagesleitung").Activate.Cells.Select ?
revoir ce que Roger te montres !!!
Sheets("Tagesleitung").Activate
Cells.Select
Selection.Copy

ou avec les deux points
Sheets("Tagesleitung").Activate: Cells.Select: Selection.Copy

 

[ROGER2327]

Re : ma macro ne se developpe pas

Re...

C'est effectivement plus clair.
La correction de la ligne signalée plus haut semble être le problème principal. Je n'ai évidemment pas pu tester sur les classeurs réels (notamment, y-a-t-il une espace précédant Tages.xls dans la troisième ligne ?), mais il me semble que ça devrait marcher comme ça :

[COLOR="DarkSlateGray"][B]Sub relevé()
   Workbooks.Add
   ActiveWorkbook.SaveAs Filename:=("C:\Documents and Settings\PC42\Bureau\ Tages.xls")
   Sheets("Feuil1").Name = "Tagesleitung1"
   Sheets("Feuil2").Name = "Ruckstand Znl"
   Sheets("Feuil3").Name = "Ruckstand Zdl"
   Sheets.Add after:=Sheets(Sheets.Count)
   ActiveSheet.Name = "Status 6"
   Workbooks.Open "C:\Documents and Settings\PC42\Bureau\TAGESBERICHT.xls"
   ActiveWorkbook.RefreshAll
   [COLOR="Blue"]Sheets("Tagesleitung").Activate
   Cells.Copy[/COLOR]
   Workbooks("Tages").Worksheets("Tagesleitung1").Activate
   Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
      SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False
   Range("A2").Select
   Rows("3:3").RowHeight = 15.75
   Rows("4:4").RowHeight = 2.25
   Rows("1:1").RowHeight = 65.25
End Sub[/B][/COLOR]

A voir...​

ROGER2327
#2411