Enregistrer sousRésolu

Question

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

Whismeril · Answer

Bonjour, message modifié par l'ajout des balises de code.
Voir ici comment utiliser la coloration syntaxique.

NHenry · Answer

Regardes les paramètres de la fonction Dir, il y a une valeur pour dure de chercher les dossier.

Silver · Answer

J'ai rajouté la ligne :

ChDir (LeChemin & Nomdudossier) 

Juste avant la ligne : 

If Dir (LeChemin & Nomdudossier)  = "" Then MkDir (LeChemin & Nomdudossier) 

Mais toujours le même message d'erreur...

Silver · Answer

J'ai essayé ça mais toujours le même problème...
J'ai fait plein d'essai mais la je bloque...
Peux tu m'aider stp ?


Sub SaveAndClasse() Dim LeChemin As String, LeNomDuFichier As String, Nomdudossier As String     Nomdudossier = Format([C6], "ddmmyy")     LeChemin = "Y:\Divers\In progress	estnico\" & Nomdudossier         LeNomDuFichier = [A373] & "_" & Format([C6], "ddmmyy") & "_CT" & ".xls"                                 If Dir(LeChemin & "\" & LeNomDuFichier, vbDirectory) = "" Then MkDir LeChemin         ThisWorkbook.SaveAs LeChemin & "\" & LeNomDuFichier MsgBox "You can find in file" & LeChemin, vbInformation Application.Quit End Sub

Enregistrer sous

4 réponses

Votre réponse