Windows activate ?

onjour, j'ai un autre soucis avec ma macro, j'ai besoin d'activer le classeur "esclave" qui est second plan mais le nom du fichier comporte la date du jour à la suite "esclave 13.02.2013" et donc la macro bloque à cet endroit, merci pour votre aide.

Bonjour

DJ FA a écrit :

j'ai un autre soucis avec ma macro

C'est dommage mais sans elle on (moi) ne peut rien faire

Voici la macro :

Dim extension As String
Dim chemin As String
Dim nomfichier As String
    Workbooks("Maitre.xls").Activate
    extension = ".xlsm"
    chemin = ActiveSheet.Range("K18") & "\"
 nomfichier = ActiveSheet.Range("A50")
If ActiveSheet.Range("K18") = "" Then GoTo suite
    extension = ".xlsm"
    chemin = ActiveSheet.Range("K18") & "\"
    With Workbooks("esclave")
    .SaveAs Filename:=chemin & nomfichier & " " & Format(Date, "dd-mm-yyyy") & _
extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End With

A ce stade là, j'aimerais que le classeur esclave soit actif, sachant que le nom est variable du genre "esclave 12-02-13" suivant le jour, mais ça bloque.

Bonsoir

Avec une macro incomplète et sans fichier ( que j'avais demandé )

A tester

    With Workbooks("esclave")
    .SaveAs Filename:=chemin & nomfichier & " " & Format(Date, "dd-mm-yyyy") & _
extension, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    .Activate
    End With

Si pas ça

Excellent comme d'habitude, grand merci.