informer

Voici une routine qui fonctionne avec comme précision majeure => Doubler les parenthèses pour Namespace Source ICI

oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items

Avec simple parenthèse => Génération d'un message d'erreur

Code vba :

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
Function test()
 
    Dim oShell As Object
    Dim pathFile As String
 
    'Récuperation de la liste des fichiers
    pathFile = "C:\folder\"
    NomFichier = Dir(pathFile & "*.zip")
 
    'On passe d'un fichier excel a l'autre
    Set oShell = CreateObject("Shell.Application")
    Do While NomFichier <> ""
        oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items '  -->>> TRES IMPORTANT : doubler les parenthèses sinon erreur
        NomFichier = Dir
    Loop
 
    Set oShell = Nothing
 
End Function

Ajouter dans le code

Code :

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

Name pathFile & file  As newPathFile & newFilenName  -> pour déplacer et renommer le fichier

Code :

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

Kill pathFile & nameFile -> pour supprimer un fichier