Renommer et déplacer un fichier

[modus57]

Bonjour.

Malgré plusieurs recherches sur les forums je n’ai pas trouvé de solution.

Si j’utilise l'instruction Name :

Name "C:\Mes documents\Jurassic Park.pdf" As "C:\Mes documents\Jurassic Park - Copie.pdf"

Dans ce cas pas soucis.

Par contre si j’utilise des variables :

Dim CheminAncienNomDocument As String, CheminNouveauNomDocument As String
CheminAncienNomDocument = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex)
CheminNouveauNomDocument = TextBox3 & "\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox3 & "\" & ListBox2.List(ListBox2.ListIndex)

La syntaxe

Name CheminAncienNomDocument  As CheminNouveauNomDocument

génère l’erreur suivante: « Erreur d’exécution 75 : Erreur d’accès Chemin/Fichier »

Ou la méthode fso :

Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile CheminNouveauNomDocument, CheminNouveauNomDocument

génère l’erreur suivante :« Erreur d’exécution 70 : permission refusée »

Je n’arrive pas à trouver une solution, avez-vous une réponse.

Merci d’avance.

 

[Pierrot93]

Re : Renommer et déplacer un fichier

Bonjour,

vérifie peut être ce que valent tes variables au moment de l'executon de l'instruction "name"... sans doute l'un des 2 chemins n'est pas valide... voir les 2...

bonne journée
@+

 

[modus57]

Re : Renommer et déplacer un fichier

Bonjour Pierrot93.

Merci pour votre réponse.

J'ai vérifié mes variables avant l'exécution de l'instruction "name" avec Debug.Print, à prime abord elles semblent correctes.

En utilisant LTrim cela ne fonctionne pas.

En ajoutant (.Text) aux TextBox et aux ComBoBox ça change rien.

CheminAncienNomDocument pointe sur C:\ et CheminNouveauNomDocument pointe sur I:\ sur clé USB, je ne pense pas que ce soit un problème.

Je ne sais plus quoi faire.

@ ++

 

[Pierrot93]

Re : Renommer et déplacer un fichier

Re,

tu as bien les droits en écriture sur I et C ??? A tout hasard, réduit la longueur du nom des variables... AncienNom et nouveaunom devraient suffire....

 

[modus57]

Re : Renommer et déplacer un fichier

Re,

La longueur du texte du chemin en dur est égal à x caractères + les guillemets, alors que la longueur du texte du chemin dans les variables est égal à x caractères sans les guillemets.

Comment corriger les syntaxes :

CheminAncienNomDocument = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex)
CheminNouveauNomDocument = TextBox3 & "\" & ComboBox1 & "\"  & ComboBox2 & "\" & ComboBox3 & "\" &  ListBox2.List(ListBox2.ListIndex)

et

Name CheminAncienNomDocument  As CheminNouveauNomDocument

Si c'est la cause du problème ?

 

[Pierrot93]

Re : Renommer et déplacer un fichier

Re,

non, je parlais du nom des variables..... pas du contenu.... mais de toute façon étonnant que ce soit cela la cause du problème...

 

[modus57]

Re : Renommer et déplacer un fichier

Bonsoir Pierrot93.

C'est bon pour les autorisations sur C: par contre sur I: de la clé USB il n'y a pas d'onglet sécurité.

J'ai réduit la longueur du nom des variables... CheminAncienNomDocument => AncienNom et CheminNouveauNomDocument => Nouveaunom.

Cela ne fonctionne pas.

@+

 

[Pierrot93]

Re : Renommer et déplacer un fichier

Bonjour,

bah... sans pouvoir reproduire le cas.... pas d'autre idée pour le moment....

bonne journée
@+

 

[modus57]

Re : Renommer et déplacer un fichier

Bonjour Pierrot93

J’ai trouvé en partie d’où vient le problème, voici le code en question :

Private Sub ListBox1_Click()
'------------------------------------------------------------------------------
'Synchronise l'affichage entre 2 ListBox (si MultiSelect = fmMultiSelectSingle)
'------------------------------------------------------------------------------
    TextBox2.Value = ""
    With ListBox2
        .TopIndex = ListBox1.TopIndex
        .ListIndex = ListBox1.ListIndex
    End With
    If TextBox1.Value = "" Then     End If
    ChDrive Left(TextBox1, InStr(TextBox1, "\"))
    ChDir TextBox1
    chemin = TextBox1
    nom = ListBox1.List(ListBox1.ListIndex)
    Fichier = CurDir & "\" & nom
    On Error Resume Next
    WebBrowser1.Navigate (Fichier)
End Sub

Le principe c’est de cliquer sur un item pour afficher la vignette du fichier PDF.

Si je supprime le :

Fichier = CurDir & "\" & nom
    On Error Resume Next
    WebBrowser1.Navigate (Fichier)

Plus de message et ça fonctionne parfaitement, mais je souhaiterais conserver le principe pour afficher la vignette du fichier PDF.

Comment procéder svp.

Merci d’avance pour votre réponse.

@+

 

[modus57]

Re : Renommer et déplacer un fichier

Bonjour.

Pas de réponse, c'est embêtant.

De mon côté je n'ai pas trouvé trouvé de solution, est il possible de savoir s'il existe une possibilité ou pas. Si non j’abandonne cette piste.

Voici le code du CommandButton

Private Sub CommandButton10_Click()
Dim CheminAncienNomDocument As String, CheminNouveauNomDocument As String
CheminAncienNomDocument = TextBox1 & "\" & ListBox1.List(ListBox1.ListIndex)
CheminNouveauNomDocument = TextBox3 & "\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox3 & "\" & ListBox2.List(ListBox2.ListIndex)
    If Dir(CheminNouveauNomDocument) = "" Then
        Name CheminAncienNomDocument As CheminNouveauNomDocument
        Application.ScreenUpdating = False
        ' blabla ....
        TextBox1.SetFocus
        Application.ScreenUpdating = True
        MsgBox "Le nouveau document a été classé et enregistré", , ThisWorkbook.Name
    Else
        MsgBox "Le document est déjà enregistré." & vbLf & "ARRÊT DE LA PROCÉDURE!" & vbLf & "Vérifier s'il s'agit d'un doublon et supprimer le si nécssaire?", , ThisWorkbook.Name
    End If
End Sub

Une réponse posite ou négative me permettra de gagner du temps.

Merci d'avance.

 

[MJ13]

Re : Renommer et déplacer un fichier

Bonjour Modus, Pierrot

En général, plutôt que move.file, je préfère copier en le renommant puis killer le fichier.

 

[modus57]

Re : Renommer et déplacer un fichier

Bonjour MJ13, Pierrot93.

Finalement j'ai trouvé la solution, il suffit d'ajouter "WebBrowser1.Stop" au début du

Private Sub CommandButton10_Click()

Cela résout le problème et ça fonctionne nickel-chrome.

Merci à vous et bonne soirée.

Mdus57

 

[MJ13]

Re : Renommer et déplacer un fichier

Re

Merci, Modus, superbe idée .