Autres XL 2003 remonter repertoire courant - 1

[kif]

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]

Bonjour.
Je dirais :

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

À tester

 

[kif]

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]

Bon a priori j'ai trouvé

je rajoute juste la variable Chemin = CurDir

ça a l'air de fonctionner

 

[Dranreb]

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.