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
Merci d'avance de votre support
Kif
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