[VBA] Création dossier MkDir

Résolu/Fermé

Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 - Modifié par Palteza le 13/07/2010 à 11:13
Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 - 15 juil. 2010 à 13:23

Bonjour les commentçamarcheurs,

Je crée un dossier, avec la méthode MkDir, s'il n'existe pas. Le problème, mineur, est ... qu'il ne se crée pas ^^

Voici la portion de code :

CheminSource = Left(Workbooks("ExtractionTest.xls").FullName, InStr(Workbooks("ExtractionTest.xls").FullName, "ExtractionTest.xls") - 1)  

Annee = 2006  

If Dir(CheminSource & Annee & "\Données_Découpages", 16) = "" Then MkDir (CheminSource & Annee & "\Données_Découpages")

Je récupère avec CheminSource qqchose comme : C\Documents....\..\..\ et tout devrait s'enchainer, mais non.

Le truc c'est que quand je supprime Annee, ça marche très bien.
J'ai bien essayé avec Annee en Integer et String, mais c'est pas ça.

Il me renvoit une erreur d'exécution 76, chemin d'accès introuvable sur :

MkDir (CheminSource & Annee & "\Données_Découpages")

Merci d'avance

A voir également:

Mkdir vba
"Mkdir -p" ✓ - Forum Linux / Unix
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 289
15 juil. 2010 à 10:12

ton code est correct à ceci prêt
tu ne dis pas si le dossier 'Annee' est déjà créé...

tu n'as pas le droit de créé un sous dossier pour un dossier inexistant.
il faut proceder en 2 temps dossier puis sous dossier

Sub test()
CheminSource = Left(Workbooks("ExtractionTest.xls").FullName, InStr(Workbooks("ExtractionTest.xls").FullName, "ExtractionTest.xls") - 1)

Annee = 2006

If Dir(CheminSource & Annee, 16) = "" Then
    MkDir (CheminSource & Annee)
End If

If Dir(CheminSource & Annee & "\Données_Découpages", 16) = "" Then
    MkDir (CheminSource & Annee & "\" & "Données_Découpages")
End If

End Sub

Réponse 3 / 6

Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 3
15 juil. 2010 à 09:53

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
15 juil. 2010 à 10:00

Salut,
Essaie déjà :
Annee = "2006"
Sinon ton chemin exact c'est : C:\Doc\moi\lui\travail\2006 ou tu remplaces 2006 par la variable Annee?
Si oui en faisant : CheminSource & Annee, il te manque un "\". Donc essaie :
CheminSource & "\" & Annee

Réponse 5 / 6

Palteza Messages postés 79 Date d'inscription mercredi 2 décembre 2009 Statut Membre Dernière intervention 6 septembre 2014 3
15 juil. 2010 à 10:13

J'ai testé Annee en String avec "2006" mais rien.

Et oui le 2006 provient d'une variable, chargée par inputbox.
Le \ n'est pas à rajouter, CheminSource (gràce aux fonctions Left et Instr) récupère toujours le chemin du fchier avec un \ à la fin, donc ça ferait doublon. J'ai quand même essayé de rajouter mais nan

Ca vient d'ailleurs.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
15 juil. 2010 à 10:22

Voir réponse de Bidouilleu, le répertoire Annee existe t'il?

Discussions similaires

[VBA] Création de dossiers quand ils n'éxistent pas

[Excel VBA] Créer des dossiers sous VBA

mkdir dossier/sous dossier

[VBA Excel] Liste les dossier d'un répertoire

comment ouvrir un dossier avec VBA

[VBA/EXCEL] :Sauver uniquement une feuille ?

Discussions similaires

Newsletters