Macro "Enregistrer sous" avec Création de dossier

Bonjour à tous,

Je suis débutant en VBA et malgré de nombreuses recherches, je suis actuellement bloqué.

J'aimerai intégrer dans une macro la fonction "Enregistrer sous" avec plusieurs variables : Nom du fichier / Chemin d'enregistrement / Création de dossier

Sub ENREG()

' Créer le dossier suivant le contenu de la cellule C4
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = Sheets("onglet 2").Range("C4")
MkDir "Chemin du serveur" & Dossier

Fichier = Sheets("Onglet 2").Range("C2") & "-" & Sheets("Onglet 2").Range("C3") & " - ABC"
Chemin = "Chemin du serveur" & Dossier
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xls"

Là ou je bloque, c'est qu'il me faudrait une vérification si le dossier que je veux créer n'existe pas déjà, et si c'est le cas, directement enregistrer dedans sans création.

Merci de votre aide.

Cordialement,

Bonjour,

si j'ai bien compris:

Dossier = Sheets("onglet 2").Range("C4")
DossierExiste = Dir("Chemin du serveur" & Dossier, vbDirectory) <> ""
If Not DossierExiste Then MkDir ("Chemin du serveur" & Dossier)

A+

Bonjour,

Je viens d'essayer, cela fonctionne parfaitement et je comprend la ligne que j'ai rajoutée donc c'est parfait, merci beaucoup

Pour mon information, cette méthode enregistre le fichier en classeur Excel 97-2003, par quoi dois-je remplacer le ".xls" pour conserver mon format d'origine (qui est classeur Excel prenant en charge les macros) ?

essaye .xlsm pour Excel 2016