Discussion :

[antoinesop]

Bonjour,

La macro suivante permet de copier un fichier avec une extension Pdf et le déplacer vers un autre répertoire et de le supprimer une fois la copie est faite.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
    DestinationFile = ThisWorkbook.Path
    nomFichier = Dir("C:\*.PDF")
    sourceW = "C:\"
    Do While Len(nomFichier) > 0
        FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
        Kill sourceW & nomFichier
        nomFichier = Dir
    Loop
End Sub

La copie s’effectue bien, mais la suppression ne se fait pas et j’ai le message suivant :
« Erreur d’accès Chemin/Fichier » à la ligne 8

Code :

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

 Kill sourceW & nomFichier

Où se situe le problème ?

Merci de votre aide.

[Sebphyto]

Salut Antoine,

Chez moi aucun problème
le Kill se passe bien, sauf cette partie qui ne veux rien dire "problème d'argument" que j'ai mis en commentaire dans le code ci-dessous mais ça c un autre problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
    DestinationFile = ThisWorkbook.Path
    nomFichier = Dir("F:\resonateur.pdf")
    sourceW = "F:\"
    Do While Len(nomFichier) > 0
        FileCopy sourceW & nomFichier, DestinationFile & "\" & nomFichier
        Kill sourceW & nomFichier
 
        'nomFichier = Dir
    Loop
End Sub

Si tu as respecté l'enregistrement de ton classeur, l'existance de ton fichier pdf, et bien pas de souci, quand tu regardes mon code la seule chose que j'ai changé c'est le nom du fichier et la source

Redit nous
Seb

[SfJ5Rpw8]

Bonjour,


avant de faire cela avec une macro as tu essayé de supprimer le fichier par l'explorateur de windows ?

[antoinesop]

Bonjour,


Oui, mais celà n'a pas résolu mon problème.

[SfJ5Rpw8]

Bonjour,


Oui, mais celà n'a pas résolu mon problème.

pas de problème pour la suppression depuis l'explorateur ?

[araigné]

Bonjour,

Sur Windows 10, si l'OS est installé sur le disque C, il refuse l’accès à la racine pour l'instruction Kill, du coup il faudrait ranger les PDF dans un dossier et non à la racine.
J'ai également testé avec FSO et pareil.

@+