ligne en rouge se met toujours en erreur

[PHILIP]

J'ai écris une macro qui doit simplement ajouter un classeur nommé "Schadensmeldung" auquel j'associe la date du jour et dans lequel je copie la premiere feuille du dossier sinistre appelée document La ligne en rouge se met en erreur indiquant que l'indice n'appartient pas à.... j' ai essayé d'y mettre une étoile comme ceci pour abreger
Windows("Schadensmeldung* .xlsx).activate cela ne marche pas non plus*
qu'elle est mon erreur?

Public Sub ErnaWidmann()  
  
       Workbooks.Add
       ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\Schadensmeldung " & Format(Date, "dd_MM_yyyy"))
       Sheets("Feuil1").Name = "Schadensmeldung"
       Workbooks("Sinistre.xlsm").Activate
       Sheets("document").Activate
       Application.Goto Reference:="erna"
       Selection.Copy
       [COLOR="red"]Windows("Schadensmeldung & Format(Date, "dd_MM_yyyy").xlsx")).Activate[/COLOR]      
 Sheets("Schadensmeldung").Select
       ActiveSheet.Paste
       Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False    
       
 End Sub

 

[Robert]

Re : ligne en rouge se met toujours en erreur

Bonjour Philip, bonjour le forum,

Il semblerait que tu aies oublié de mettre les guillemets (") à la fin de Schadensmeldung avant le &...
Windows("Schadensmeldung" & Format(Date, "dd_MM_yyyy").xlsx")).Activate

 

[PHILIP]

Re : ligne en rouge se met toujours en erreur

Bonjour Robert,

J'ai mis les guillemets mais cela reporte l'erreur sur la partie entre guillemets suivante
"dd_MM_yyyy").

 

[piga25]

Re : ligne en rouge se met toujours en erreur

Bonjour

Un essai:

Un parenthèse et un guillemet en trop après xlsx

Public Sub ErnaWidmann()
 
       Workbooks.Add
        ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\Schadensmeldung " & Format(Date, "dd_MM_yyyy"))
        Sheets("Feuil1").Name = "Schadensmeldung"
        Workbooks("Sinistre.xlsm").Activate
        Sheets("document").Activate
        Application.Goto Reference:="erna"
        Selection.Copy
        Windows("Schadensmeldung" & Format(Date, "dd_MM_yyyy").xlsx).Activate
  Sheets("Schadensmeldung").Select
        ActiveSheet.Paste
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
 
  End Sub

Edit : bonjour Robert