Renommer un répertoire avec InputBox

[le_coc]

Bonjour,
J'ai fait une grosse Macro qui me copie des fichiers dans un fichier temporaire que j'aimerai renommer en fin de macro avec une InputBox pour pouvoir lui donner le nom que je veux.
A l'heure actuelle j'arrive à le renommer mais avec un nom défini à l'avance
Voici mon code


Sub test2()
Dim Targetdir As String
Dim res As Object
Targetdir = InputBox("Donnez le nom de votre nouveau répertoire")
Name "U:\Programmes\Temp Programme" As "U:\Programmes\Targetdir"
End Sub

Ps: Le repertoire se renomme en Targetdir alors qu'avec InputBox je devrai pouvoir lui donner le nom que je veux en stockant le nom ds la variable Targetdir mais malheureusement ca marche pas

Si quelqu'un pouvait m'aider ce serait vraiment sympa pq ca fait deux jours que je me prends la tete dessus

 

[ziopizza]

Re : Renommer un répertoire avec InputBox

Bonjour le_coc,le Forum,

Essaye comme ça ,

Name "U:\Programmes\Temp Programme" As "U:\Programmes\" & Targetdir & ".xls"

salut Yves

 

[le_coc]

Re : Renommer un répertoire avec InputBox

Je suis désolé mais ta reponse ne marche pas
Ne t'es tu pas trompé dans la syntaxe?
C'est qd meme sympa de m'avoir repondu quelqu'un aurait-il qq chose d'autre a proposer svp?

 

[ziopizza]

Re : Renommer un répertoire avec InputBox

Ce code fonctionne,si un dossier nommer repet ce trouve sur C, adapte le chemin.

Private Sub CommandButton1_Click()
Dim Targetdir As String
Targetdir = InputBox("Donnez le nom de votre nouveau répertoire")
Name "c:\repet" As "c:\" & Targetdir
End Sub
@+ Yves

 

[le_coc]

Re : Renommer un répertoire avec InputBox

Ca marche
T'es genial Yves
Merci
a+