XL 2016 Création de dossier

xamenod

XLDnaute Junior
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Xamenod,
Un petit essai :
VB:
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

XLDnaute Junior
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
 

Discussions similaires

Réponses
22
Affichages
1 K