dossier crée introuvable

[PHILIP]

Bonjour à tous ,

j'ai écris une macro qui doit creér un dossier , ouvrir un autre dossier, actualiser les données de ce dossier copier les données et et la mise en forme et coller ces données dans le dossier créer Comme vous pouvez le constater ,le nom est defini par
nom = "VK_tagesbericht_" & Format(Date, "yyyy_MM_dd")Si le demarage est correct une erreur me dit qu'il ne trouve pas le dossier indinqué ai je fais une erreur de transcription ?
voici le code

sub Gustave()
 Dim nom As String
            nom = "VK_tagesbericht_" & Format(Date, "yyyy_MM_dd")
            Workbooks.Add
            ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\" & nom), FileFormat:=xlExcel8
            Sheets("Feuil1").Name = "Tagesleitung"
            Sheets("Feuil2").Name = "Ruckstand Znl"
            Sheets("Feuil3").Name = "Ruckstand Zdl"
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = "Status 6"
            Windows("TAGESBERICHT.xls").Activate
            Sheets("Tagesleistung").Select
            ActiveWorkbook.RefreshAll
            Application.Wait Now + TimeValue("00:0:15")
            Windows("TAGESBERICHT.xls").Activate
            Sheets("Tagesleistung").Select
            Cells.Select
            Selection.Copy
            [COLOR="SeaGreen"]Windows("& nom").Activate[/COLOR]
            Sheets("tagesleitung").Select
            Cells.Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            Windows("TAGESBERICHT.xls").Activate
            Cells.Select
            Selection.Copy
            [COLOR="seagreen"]Windows("& nom").Activate[/COLOR]            Cells.Select
            Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Windows("TAGESBERICHT.xls").Activate
            Cells.Select
            Selection.Copy
            [COLOR="seagreen"]Windows("& nom").Activate[/COLOR]
            Range("A1").Select
            Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
            Rows("1:1").RowHeight = 71.25
            Rows("2:2").RowHeight = 6
            Rows("3:3").RowHeight = 22.75
            Rows("4:4").RowHeight = 6

end sub

Pourriez vous m'aider à comprendre , je ne suis pas encore un expert....
Merci

 

[Temjeh]

Re : dossier crée introuvable

Oui

Apres vérification ta ligne fonctionne!

À première vue tu save ton classeur actif sous "nom"
Tu y renomme des feuilles
Tu y insère une feuille Status 6
Tu select un autre classeur
...
mais apres! à quoi sert ton nouveau classeur "nom" tu n'y fait plus mention.
Et sur quelle ligne ca bug


A++

Temjeh

 

[PHILIP]

Re : dossier crée introuvable

Bonjour Temjeh

Tiens mais si la ligne marche pourquoi m'indique t'il que l'indice n'appartient pas à la selelection en sourlignant de jaune
Windows("& nom").Activate

 

[Temjeh]

Re : dossier crée introuvable

Avec ceci ca fonctionne:

nom = "VK_tagesbericht_" & Format(Date, "yyyy_MM_dd")
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="F:\Documents and Settings\Clqude\Bureau\" & nom & ".xls"
....
Windows("TAGESBERICHT.xls").Activate
Cells.Select
Selection.Copy
Windows(nom).Activate

A++

Temjeh

 

[Pierrot93]

Re : dossier crée introuvable

Bonjour Philipp, Temjeh

essaye peut être ainsi :

Windows(nom & ".xls").Activate

bon après midi
@+