Discussion :

[Agllogistics]

Bonjour à tous,
Je souhaite tout simplement déplacer un fichier pdf d'un dossier vers un autre via une macro VBA / Excel.

J'utilise le code VBA :

Code :

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

1
2
3
4
5
Sub DEPLACER_FACTURE()
 
My.Computer.FileSystem.MoveFile("C:\TestDir1\test.txt", "C:\TestDir2\test.txt")
 
End sub

C'est précisément ce code qu'il me faut je n'ai pas besoin de +, je n'ai ni besoin de renommer ni modifier le fichier, et c'est bien 1 seul fichier à chaque lancement de la macro.

Mais quand je lance la macro un message d'erreur s'affiche : "Erreur d'exécution 424, Objet requis"

Pouvez-vous m'aider à régler ça SVP ?

Merci beaucoup !!

[Thumb down]

Bonjour,
Je n'es sans doute rien compris car tu parles de VBA et tu utilises une instruction vb.net.

Code :

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

1
2
3
4
5
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "C:\TestDir1\test.txt", "C:\TestDir2\test.txt"
 
CreateObject("Scripting.FileSystemObject").MoveFile "C:\TestDir1\test.txt", "C:\TestDir2\test.txt"

[Agllogistics]

Bonjour,
Merci beaucoup pour ta réponse.
S'il n'y en a un qui n'y comprend rien c'est moi, mais j'arrive quand même à bricoler des outils sympa.
Grace à ton code je n'ai plus ce l'erreur 424 mais j'en ai maintenant l'erreur 450 "Nombre d'arguments incorrect ou affectation de propriété incorrecte" dans la ligne de code :

fso.MoveFile "C:\Users\Documents\Bureau\FACTURATION\FACTURE_ VRAC" & Sheets("Facturable").Range("Z1") & "," & Sheets("Facturable").Range("BZ3") & ""

(Le nom du fichier est enregistré dans une cellule Excel (Onglet "Facturable" cellule ZI.
Et le chemin complet du dossier de destination est enregistré dans la la cellule BZ3.)

Encore merci pour ton aide

[Thumb down]

Le message d'erreur veux dire que tu ne donnes qu'un argument sur les deux ???

Code :

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

1
2
3
 source="c:\repSource\source.txt"
Cible="c:\repCible\Cible.txt"
Fso.movefile source, cible 'la méthode movefile à besoin de 2 arguments la source et la cible , séparé par une virgule,pas une concaténation des deux sourc & "," & cible

[Agllogistics]

Encore merci pour ta disponibilité ..

J'ai bien compris ta logique mais c'est la formulation du code qui ne m'est pas évidente car dans ton 1er code tu avais bien séparé d'une virgule sur même ligne source et cible.
Comment je dois les introduire dans le code alors comme ceci ? Mais ça ne fonctionne pas non plus ..

Sub DEPLACER_FACTURE()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile
source="c:\repSource\source.txt"
Cible="c:\repCible\Cible.txt"

CreateObject("Scripting.FileSystemObject").MoveFile

source="c:\repSource\source.txt"
Cible="c:\repCible\Cible.txt"

End sub

[Thumb down]

Code :

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

1
2
3
4
5
6
7
dim source as string, cible as string,fso as object
Sources="C:\Users\Documents\Bureau\FACTURATION\FACTURE_ VRAC" & Sheets("Facturable").Range("Z1") 
 
Cible="C:\Users\Documents\Bureau\FACTURATION\FACTURE_ VRAC" & Sheets("Facturable").Range("BZ3") 
 
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.movefile source, cible

[Agllogistics]

Je te remercie,
J'ai essayé avec ce nouveau code et j'ai un nouveau message d'erreur sur la dernière ligne : "Erreur d'exécution '5': Argument ou appel de procédure incorrect.

Code :

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

fso.MoveFile source, cible

[Thumb down]

Tu fais un click droit sur source et tu sélectionnes ajouter à l'espion, même chose pour cible.

Tu positionnés le curseur à entre sub et end sub tu appuis plusieurs fois sur la touche [F8] et regarde dans l'espion les valeurs que prennent tes variables.

Regarde si c'est cohérent avec le chemin complet de ta source et de ta cible.