Dossier pas défaut

[Pascalbar]

Bonjour,
Sur le Workbook_Open

Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.folderExists("C:\Facturation") Then
        fso.createfolder ("C:\Facturation")
    End If

Je crée un dossier Facturation si il n'existe pas.
Comment faire enregistrer le classeur Actif dans ce dossier immédiatement après la création du dossier.
J'ai tenté différentes choses avec Chdir ou ThisWorkbook.path mais cela ne fonctionne pas.
Merci de vos réponses
Pascal

 

[kjin]

Re : Dossier pas défaut

Bonjour,

Set fso = CreateObject("Scripting.FileSystemObject")
fld = "C:\Facturation"
If Not fso.folderExists(fld) Then
    fso.createfolder (fld)
End If
With ActiveWorkbook
    .SaveAs fld & "\" & .Name
End With

A+
kjin

 

[Pascalbar]

Re : Dossier pas défaut

Merci

Pascal

 

[Pascalbar]

Re : Dossier pas défaut

en fait non, cela me renvoie une erreur"Objet requis" ?
Merci