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