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:
avec en cellule D5 (ou D6) une formule "concaténer" donnant ceci:
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
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.
Partager