Autres XL 2003 remonter repertoire courant - 1

kif · 15 Juillet 2019

Bonjour La team,

Je bute sur ce vba, en fait je voudrais créer un nouveau répertoire "TESTK" et copier un fichier dedans => au répertoire - 1 ou et situé ma macro

j'ai ce code mais ça me créer le répertoire au niveau - 2

Dim Chemin As String
ChDir (ThisWorkbook.Path)
ChDir ".."
Chemin = Left(CurDir, InStrRev(CurDir, "\") - 1)
MkDir Chemin & "\TESTK"
Fichier = Chemin & "\" & "TESTK\" & .Sheets(1).Range("B1").Value & " RRR copie.xls"

Merci d'avance de votre support

Kif

Dranreb · 15 Juillet 2019

Bonjour.
Je dirais :

VB:

ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
ChDir ".."
MkDir "TESTK"
ChDir "TESTK"

À tester

kif · 15 Juillet 2019

Cool ca avance

Merci de ta reponse
CA me créer bien le répertoire au bon endroit, manque juste la copie du fichier dedans

Fichier = Chemin & "\" & "TESTK\" & .Sheets(1).Range("B1").Value & " RRR copie.xls" je ne sais pas comment lui attribuer le Chdir dans la variable chemin ?

kif · 15 Juillet 2019

Bon a priori j'ai trouvé

je rajoute juste la variable Chemin = CurDir

ça a l'air de fonctionner

Dranreb · 15 Juillet 2019

A priori pas besoin d'ajouter le chemin, puisque c'est CurDir, le chemin courant. Le seul nom du fichier devrait suffire pour un ActiveWorkbook.SaveAs.

Autres XL 2003 remonter repertoire courant - 1

kif

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

kif

XLDnaute Occasionnel

kif

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires