Bonjour,
Le problème sur ma macro :
Si le dossier existe déjà il plante.
Qui sait d'où peux venir mon erreur ?
Merci par avance
Sub Save()
Dim LeChemin As String, LeNomDuFichier As String, Nomdudossier As String
Nomdudossier = Format([C6], "ddmmyy")
LeChemin = "Y:\Divers\In progress\testnico\"
LeNomDuFichier = [A373] & "_" & Format([C6], "ddmmyy") & "_CT" & ".xls"
If Dir(LeChemin & Nomdudossier) = "" Then MkDir (LeChemin & Nomdudossier)
ThisWorkbook.SaveAs LeChemin & Nomdudossier & "\" & LeNomDuFichier
MsgBox "You can find in file" & LeChemin, vbInformation
Application.Quit
End Sub
ca plante au moment de la création du dossier c'est a dire au MkDir (Erreur d'accès Chemin/Fichier)
Je pense qu'il bug car il veux créer un dossier qui est déjà présent...
Mais je voulais lui dire de le créer seulement si il est inexistant...
As tu une idée de mon erreur de syntaxe ?
Merci beaucoup pour ton aide