Bonjour,
Je recherche à enregistrer mes pdf, dwg, dxf dans la racine du dossier parents. Mais je ne connais pas le code pour arriver à faire cela. Actuellement ma macro crée le dossier pdf s'il n'existe pas et enregistre le pdf dans celui ci ,mais il se crée dans la racine de ma mise en plan et j'aurais besoin qu'il se crée dans le dossier parent.
J'espere avoir été clair ci-joint mon code actuel d'enregistrement.
Cordialement,
Mathieu
J'y connais rien dans les macros, je commence seulement à m'y interreser.
Par contre j'ai trouvé ça dans un forum : http://forum.excel-pratique.com/excel/trouver-le-nom-du-dossier-parent-du-fichier-excel-t19755.html
Si ça peut t'aider ?
Salut,
Essaye donc comme cela :
'Récupération du répertoire de base dossier_base = Left(chemin, Len(chemin) - Len(nom_fichier) - 7)
'Récupération du répertoire parent
Dim dossier_parent As Stringdossier_base
ChDir ()dossier_base
ChDir ".."
chemin = CurDir()
Ensuite dans chaque type de fichier :
longstatus = Part.SaveAs3(dossier_parent & "DWG\" & nom_fichier & " - " & revision & ".DWG", 0, 0)
A plus
Je te remercie de ta reponse mais j'ai du mal à modifier moi même cette macro.
Je l'ai fait il y a un moment et j'ai du mal à me remettre dedans et surtout un manque de temps.
Je ne peux pas faire cela maintenant.
Est ce que on peut en reparler ce soir ?
Oui sans aucun soucis je te remercie de tes reponses remrem.
J'ai essayer d'inclure tes lignes de codes mais sa ne marche pas j'ai du faire une erreur si tu as plus de reussite que moi sa seras avec plaisir que j'attendrais ta reponse.