XL 2013 Renommer un fichier avec TextBox + suffixe

[Achille_1]

Bonjour,
Comme dit dans le titre je souhaiterais avec une CommandButton renommer un fichier grâce à une textBox + un préfixe.

Voici le code en question :

Private Sub créer_un_dossier_Click()
Dim objFSO As Object
Dim OldName, NewName, OldName2, NewName2
If txt_dossier.Value = "" Then
    MsgBox "Veuillez entrer un nom de dossier"
Else
    If Recherche_brut.modèle_2.Value = True And Recherche_brut.droit.Value = True Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.CopyFolder "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit", "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit2", True
    
        OldName = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\" & "Modèle2-Droit2": NewName = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\" & txt_dossier.Text
        OldName2 = "V:\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit2\240-000-672-0_A00": NewName2 = "V:\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit" & txt - dossier.Text ' & "_A00" (mon suffixe)
        
        Name OldName2 As NewName2
        Name OldName As NewName
    End If
End if

Merci de votre aide.

Achille

 

[danielco]

Bonjour,

Qu'est-ce qui ne fonctionne pas ?

Cordialement.

Daniel

 

[jmfmarques]

Bonjour
Je ne vois ni ce que vient faire l'utilisation de FSO, ni l'initialisation des variables Newname2 et Newname .

 

[Achille_1]

Au moment de renommer OldName2 par NewName2 il ne trouve pas le fichier (j'ai mis un commentaire au niveau de la ligne).
J'ai auparavant renommer le OldName par NewName sans le n°2 et le programme marche très bien.
OldName, Newname = le dossier
OldName2, NewName2 = un fichier dans ce dernier dossier

Pour l'utilisation de FSO je t'avoue que j'ai pris le code sur un forum pour copier-coller un dossier et comme cela marchait j'ai laissé tel quel (Je débute seulement en VBA).

Private Sub créer_un_dossier_Click()
Dim objFSO As Object
Dim OldName, NewName, OldName2, NewName2
If txt_dossier.Value = "" Then
    MsgBox "Veuillez entrer un nom de dossier"
Else
    If Recherche_brut.modèle_2.Value = True And Recherche_brut.droit.Value = True Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        objFSO.CopyFolder "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit", "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit2", True
    
        OldName = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\" & "Modèle2-Droit2": NewName = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\" & txt_dossier.Text
        OldName2 = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit2\" & "240-000-672-0_A00": NewName2 = "\\powernas\AIC\Moyens AIC\BE-PROG\AcBeur\Affaires\Modèle2-Droit2\" & txt_dossier.Text & "_A00"
        
        Name OldName2 As NewName2 ' ici il ne trouve pas le fichier'
        Name OldName As NewName
    End if
End if

Achille

 

[danielco]

Tu indiques "txt_dossier.Text" dans un cas et "txt - dossier.Text" dans l'autre ? Tu ne mets pas de "\" après "Modèle2-Droit" ?

Daniel

 

[Achille_1]

Oui le premier était une erreur c'est bien "txt_dossier.Text". Et dans le deuxième code il y a bien aussi une "\".

Achille

 

[danielco]

Que contient "txt_dossier.Text" ? Est-ce que le code fonctionne sans le suffixe ?

 

[Achille_1]

txt_dossier.Text contient une référence autre comme 240-000-675 avec suffixe _A00.
Et non le code ne fonctionne toujours pas même sans le suffixe
Faut-il mettre l'extension du fichier ?

 

[Achille_1]

Rebonjour,
J'ai fini par trouver, il fallait bien mettre l’extension du fichier pour le old et le new.

Merci quand même !

Achille