code pour enregistrement automatique d'un fichier

[SLIJACK]

Bonsoir le forum!
je viens une nouvelle fois vers vous pour mon problème qui est de pouvoir enregistrer automatiquement un fichier en créant un sous dossier, dans un dossier existant.
je joint un bout de fichier exemple ou le chemin de l'enregistrement serait (C:\Users\Slijack\Documents\Etude de dégradation\"cellule D7\"cellule C8"); ou le nom du sous dossier est en cellule D7 et le nom du fichier en cellule C8.
je vous remercie par avance de l'aide que vous pouvez m’apporter

 

[Hulk]

Re : code pour enregistrement automatique d'un fichier

Slt Slijack, Forum,

Essaie ce bout de code...

Sub EnregistreSous()

    ActiveWorkbook.SaveAs Filename:="C:\Users\Slijack\Documents\Etude de dégradation\" & _
        Range("D7").Value & "\" & Range("C8").Value & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

 

[Hulk]

Re : code pour enregistrement automatique d'un fichier

Re,

Suis aller un peu vite tout à l'heure, plutôt comme ceci..

Sub EnregistreSous()

    MkDir Range("E7").Value ' Crée le dossier

    ActiveWorkbook.SaveAs Filename:="C:\Users\Slijack\Documents\Etude de dégradation\" & _
        Range("D7").Value & "\" & Range("C8").Value & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub