OVH Cloud OVH Cloud

Copier des fichiers xls dans un autre répertoire

3 réponses
Avatar
Richard
Bonjour.

J'ai des fichers "xls" qui se trouve dans un répertoire c:\import\

Je souhaite copier ces fichiers dans un répertoire d:\Application\

Dans un cadre plus général, je sais remomer et détruire un fichier avez vous
les autres commandes, il me manque:

le coupé dans un répertoire avec le coller dans un autre répertoire

Par avance merci pour votre aide

3 réponses

Avatar
Richard
Bonjour

je suis débutant en VBA je travail surtout au copier coller j'ai donc besoin
d'explication dans le but d'appliquer dans different contextes

petit probléme, j'ai saisie la ligne suivante:
DéplacerFichiers "d:importnouveau.xls", d:Applicationnouveau2.xls"

et j'ai se message " erreur de compilation" je ne voie pas le PB

j'avais besoin des 2 commandes le déplacé et le copier pour adapter au besoin.

merci de votre aide


le terme DéplacerFichiers


Bonjour

sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub

tu peux ensuite Killer le dossier_ajeter


ceci doit répondre à la question

Salutations

RGI


Bonjour.

J'ai des fichers "xls" qui se trouve dans un répertoire c:import

Je souhaite copier ces fichiers dans un répertoire d:Application

Dans un cadre plus général, je sais remomer et détruire un fichier avez vous
les autres commandes, il me manque:

le coupé dans un répertoire avec le coller dans un autre répertoire

Par avance merci pour votre aide






Avatar
RGI
sub test()
DéplacerFichiers "d:import", "d:Application"
End Sub

ceci doit faire et attention aux guillemets



Bonjour

je suis débutant en VBA je travail surtout au copier coller j'ai donc besoin
d'explication dans le but d'appliquer dans different contextes

petit probléme, j'ai saisie la ligne suivante:
DéplacerFichiers "d:importnouveau.xls", d:Applicationnouveau2.xls"

et j'ai se message " erreur de compilation" je ne voie pas le PB

j'avais besoin des 2 commandes le déplacé et le copier pour adapter au besoin.

merci de votre aide


le terme DéplacerFichiers



Bonjour

sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub

tu peux ensuite Killer le dossier_ajeter


ceci doit répondre à la question

Salutations

RGI



Bonjour.

J'ai des fichers "xls" qui se trouve dans un répertoire c:import

Je souhaite copier ces fichiers dans un répertoire d:Application

Dans un cadre plus général, je sais remomer et détruire un fichier avez vous
les autres commandes, il me manque:

le coupé dans un répertoire avec le coller dans un autre répertoire

Par avance merci pour votre aide








Avatar
Daniel.j
Bonjour
Une page sur la FAQ:
http://dj.joss.free.fr/faq.htm#movefile


Daniel
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm



"Richard" a écrit dans le message de
news:
Bonjour.

J'ai des fichers "xls" qui se trouve dans un répertoire c:import

Je souhaite copier ces fichiers dans un répertoire d:Application

Dans un cadre plus général, je sais remomer et détruire un fichier avez
vous
les autres commandes, il me manque:

le coupé dans un répertoire avec le coller dans un autre répertoire

Par avance merci pour votre aide