XL 2016 Création de dossier

[xamenod]

Bonjour à tous, j'ai créé une macro qui "devait" permettre la création d'un dossier dans le même répertoire que le fichier XL, en prenant en compte la valeur de certaines cellules et de nommer le fichier en fonction de la valeur des mêmes cellules.
la création du dossier ne se fait pas, contrairement au changement de nom de la feuille.

Merci pour votre aide.
Bonne soirée

Voici le code:

Sub TESTENREGISTR()
Dim Chemin As String
Chemin = ThisWorkbook.Path 'j'ai essayé ActiveWorkbook.path sans succès
Dim NomFichier As String
NomFichier = Range("B1").Value & "_" & Range("B4").Value & "_" & Range("C4").Value & Range("D4").Value
Dim NomDossier As String
NomDossier = NomFichier

'Créer Dossier
If Dir(Chemin, vbDirectory) <> vbNullString Then
Else

MkDir (Chemin) & (NomDossier)

End If

'nommer la feuille
ActiveWorkbook.SaveAs Filename:=NomFichier

End Sub

 

[sylvanu]

Bonjour Xamenod,
Un petit essai :

Sub TESTENREGISTR()
Dim Chemin As String
Chemin = ThisWorkbook.Path & "\"    'Ne pas oublier le \ à la fin
Dim NomFichier As String
NomFichier = Range("B1").Value & "_" & Range("B4").Value & "_" & Range("C4").Value & Range("D4").Value
Dim NomDossier As String
NomDossier = NomFichier
'Créer Dossier
If Len(Dir(NomDossier, vbDirectory)) = 0 Then
    MkDir Chemin & NomDossier
End If
'nommer la feuille
ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier
End Sub

 

[xamenod]

Bonjour Sylvanu,
cela fonctionne parfaitement,

If Len(Dir(NomDossier, vbDirectory))

dans cette instruction que signifie Len?

merci beaucoup

Henry

 

[sylvanu]

LEN renvoie le nombre de caractères d’une chaîne.

Fonction Len (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

docs.microsoft.com

Si le nombre de caractères du nom du dossier est nul c'est que ce dossier n’existe pas.

 

[kiki29]

Salut, à voir également si curieux

 

[xamenod]

LEN renvoie le nombre de caractères d’une chaîne.

Fonction Len (Visual Basic pour Applications)

Rubrique de référence sur Office VBA

docs.microsoft.com

Si le nombre de caractères du nom du dossier est nul c'est que ce dossier n’existe pas.

 

[xamenod]

Merci beaucoup et pour le coup de main et pour le complément d'info.
Bonne soirée.

 

[xamenod]

Bonjour Sylvanu,
excusez-moi de vous déranger à nouveau, dans le cas cité plus, quelle instruction écrire si je veux enregistrer le fichier dans le dossier nouvellement créer?
j'ai testé:
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & NomDossier & "\" & NomFichier
ActiveWorkbook.SaveAs Filename:=Chemin \ NomDossier & "\" & NomFichier
ActiveWorkbook.SaveAs Filename:=Chemin \ NomDossier \ NomFichier & "\"

rien ne fonctionne j'ai ajouté une variable une variable chemdoss

Dim chemdoss As String
chemdoss = ThisWorkbook.Path \ NomDossier & "\"

ActiveWorkbook.SaveAs Filename:=chemdoss & NomFichier


toujours pas de résultats.

merci pour votre aide et le temps que vous consacrez

Henry

 

[sylvanu]

Bonjour Xamenod,
Remplacez la ligne 13 par :

ActiveWorkbook.SaveAs Filename:=Chemin & NomDossier & "\" & NomFichier

Le fichier NomFichier sera enregistré dans le dossier Chemin\NomDossier\
Faire toujours attention à la présence des séparateurs "\".

 

[xamenod]

Cela fonctionne, mille merci.
très bonne journée.