Discussion :

[grogus]

Bonjour ou bonsoir,

Encore une fois, je me tourne vers vous et vos compétences pour résoudre un problème qui semblerait anodin pour un expert mais sur lequel je bute depuis de nombreuses heures.
En fait, je tente désespérément à savoir pourquoi il m'est impossible de déplacer des fichiers d'un répertoire à un autre.

Pour le déplacement, j'ai "pensé" à utiliser ou tout du moins trouver sur internet des méthodes comme "name X as Y", "Filecopy" ou encore "movefile" et j'en passe.
A chaque fois, après avoir ajuster le code, une erreur du type "fichier introuvable" se lance.
Pour tenter de la résoudre, j'ai bien vérifié les liens, noms des fichiers, etc. (d'ailleurs, si j'utilise "Name X As Y" en gardant le même répertoire mais en modifiant le nom, ça fonctionne. Alors que, par exemple, Name "D:\X" As "E:\X" ne fonctionne pas)

Voici un exemple du dernier code mis en place:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub trans()
Dim un As String, deux As String
 
un = Sheets("chemins").Range("D5")
deux = Sheets("chemins").Range("D6")
 
Name un As deux
 
End Sub

avec en cellule D5 (ou D6) une formule "concaténer" donnant ceci:
D5 = K:\ne pas effacer ni modifier\ijg\partage\2016\Décembre\test.pdf
D6 = K:\ne pas effacer ni modifier\ijg\archives\2016\Décembre\test.pdf

Je suspecte fortement que l'erreur provient du fait que je fais référence à des cellules contenant les liens + noms des fichiers. Hélas pas possible de faire autrement puisqu'il me faut à tout prix garder ces références. De toute façon, même en remplaçant les formules par un texte ça ne fonctionne pas.

A noter que seuls des fichiers pdf sont à déplacer/copier/placer dans un autre dossier (transfert du dossier "\partage\année\mois\" vers "archives\année\mois\")

Ainsi, me retrouvant dans une impasse, me voici face à vous pour un éclairage tant désiré.

Merci par avance.

[Invité]

Bonjour,


Avez-vous regardé le tutoriel de Christophe WARIN Manipulation des fichiers en VBA ?
Nb : Nécessite d'activer la référence Microsoft Scripting Runtime.

Cordialement.

[unparia]

Bonjour

avec en cellule D5 (ou D6) une formule "concaténer" donnant ceci:
D5 = K:\ne pas effacer ni modifier\ijg\partage\2016\Décembre\test.pdf
D6 = K:\ne pas effacer ni modifier\ijg\archives\2016\Décembre\test.pdf

...ne fonctionne pas ...

Avec ou sans message d'erreur - et si avec : quel est ce message - ? (car si sans : normal, avec CET exemple

PS : et par ailleurs :
Range("D5"), quoi ? (qu_elle propriété de cette cellule ?) - Idem pour la cellule D6. Laisser VBA deviner la propriété à utiliser n'est jamais une bonne idée.

[Theze]

Bonjour,

Avec l'Api CopyFile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Declare Function CopyFile _
        Lib "kernel32" _
        Alias "CopyFileA" ( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal bFailIfExists As Long) _
        As Long
 
Sub copier()
 
    Dim un As String
    Dim deux As String
    Dim Ecraser As Long
 
    Ecraser = 1 '0 = oui, 1 = non
 
    un = Sheets("chemins").Range("D5")
    deux = Sheets("chemins").Range("D6")
 
    CopyFile un, deux, Ecraser
 
End Sub

[unparia]

Bonjour Theze
Pourquoi utiliser une fonction de l'Api de Windows ?
L'instruction Name As dfe VBA fonctionne fort bien
Fonctionnent également bien les méthodes de VBA :
pour copier vers destination et garder le source à sa place
Copy
CopyFile
pour déplacer de source à destination :
MoveFile
Move

[Theze]

Bonjour unparia,

Une piste comme une autre, à grogus de faire son choix !

[grogus]

Bonjour à vous tous et tout d'abord merci pour vos réponses variées et diverses.

Sinon pour répondre dans l'ordre:

@Eric KERGRESSE : runtime est déjà activé donc ça ne semble pas venir de ça

@unparia : message d'erreur (fichier introuvable) dans tous les cas. Et quand tu parles de variables... et en indiquant "range("D5).value" ça suffirait? Car déjà tenté cette option. Sachant que "un" et "deux" sont définis en string (sauf erreur, ça doit être ça puisqu'il s'agit de chaines de caractères)

@Theze : Déjà essayé cette méthode aussi. Par contre sans passé par l'Api. En effet, travaillant en 64bit, ça bloque un peu.

Bon malgré tout, j'ai refait un test avec un nouveau fichier et de nouveaux répertoires et... "name as" fonctionne. Pourtant j'ai l'impression d'avoir refait le même principe: même type de cellules avec des formules concaténer, etc.
L'erreur qui se produit (fichier introuvable) provient du fichier d'origine. Pfff. C'est à perdre les pédales! Est-ce que ça peut provenir du fait que je travaille sur une clé usb (le chemin est correct bien entendu)?

[Marc-L]

Bonjour,

l'instruction Name comme la méthode Move du VBA fonctionnant sans souci,
à 99,999% le message fichier introuvable indique une erreur dans la chaine de caractères pointant le fichier !

Et ce n'est pas compliqué à vérifier ! Il suffit de lister les fichiers du répertoire dans une feuille (fonction Dir)
puis comparer la cellule du fichier en question avec la chaine …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[grogus]

Alors... merci Marc-L et à vous tous. Pourquoi commencer par Marc-L? Et bien, honte à moi de vous avoir fait perdre autant de temps, mais ta fonction dir en parallèle avec la formule exact() m'a permis de trouver une erreur plus que grossière!

Donc oui je fais parti des 99,99999% car l'erreur vient bien d'un problème de copie de chemin. Un simple espace en trop. Le truc trop bête.

En tout cas sincèrement merci à vous.

[EDIT] voici le code que j'utilise à présent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub copie()
Dim DestinationFile As String, chmdospnom As String, Fichier As String, sourceW As String
 
     DestinationFile = Sheets("chemins").Range("B7")
     chmdosp = Sheets("chemins").Range("B6")
     nomFichier = Dir(chmdosp & "*.PDF")
     sourceW = chmdosp
     Do While Len(nomFichier) > 0
           FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
           Kill sourceW & nomFichier
           nomFichier = Dir
     Loop
End Sub

[patricktoulon]

re
bonjour
et bien soit!!
maintenant que tu a trouvé ton erreur le "Name as" devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub copie()
Dim DestinationFile As String,  Fichier As String, sourceW As String
 
     DestinationFile = Sheets("chemins").Range("B7").Text   ' attention ici ce doit être un nom de dossier et si possible terminant par "\"
     sourceW = Sheets("chemins").Range("B6").Text           ' attention ici ce doit être un nom de dossier et si possible terminant par "\"
     nomFichier = Dir(sourceW & "*.PDF")
 
     Do While Len(nomFichier) > 0
           Name sourceW & nomFichier As DestinationFile &  nomFichier
                      nomFichier = Dir
     Loop
End Sub

[grogus]

Encore merci pour toutes vos interventions et je note le code que tu fournis, patricktoulon