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?
Windows("Schadensmeldung* .xlsx).activate cela ne marche pas non plus*
qu'elle est mon erreur?
Code:
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