Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici
mon code
FileCopy "C:\My Documents\DA_XLS\*.xls", "C:\My Documents\DA_XLS\DONE\".
Comme vous le constatez, cela ne fonctionne pas due à "*.xls".
Quelqu'un a une idée ??
D'avance merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
pgz
Bonjour, Tu peux essayer avec une collection 'folder' et une boucle FOr each document in folder... pgz
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
Bonjour,
Tu peux essayer avec une collection 'folder' et une boucle FOr each document
in folder...
pgz
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici
mon code
FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE".
Comme vous le constatez, cela ne fonctionne pas due à "*.xls".
Quelqu'un a une idée ??
D'avance merci.
Bonjour, Tu peux essayer avec une collection 'folder' et une boucle FOr each document in folder... pgz
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
Eric
Bonjour Ado,
Un truc comme ça te conviendrait ? (le répertoire DONE doit déjà exister)
Sub zz() Dim LeFichier As String Dim CheminDepart As String, CheminArrivee As String CheminDepart = "C:My DocumentsDA_XLS" CheminArrivee = "C:My DocumentsDA_XLSDONE" LeFichier = Dir(CheminDepart & "*.xls") Do While LeFichier <> "" FileCopy CheminDepart & LeFichier, _ CheminArrivee & LeFichier LeFichier = Dir Loop End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Ado,
Un truc comme ça te conviendrait ?
(le répertoire DONE doit déjà exister)
Sub zz()
Dim LeFichier As String
Dim CheminDepart As String, CheminArrivee As String
CheminDepart = "C:My DocumentsDA_XLS"
CheminArrivee = "C:My DocumentsDA_XLSDONE"
LeFichier = Dir(CheminDepart & "*.xls")
Do While LeFichier <> ""
FileCopy CheminDepart & LeFichier, _
CheminArrivee & LeFichier
LeFichier = Dir
Loop
End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici
mon code
FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE".
Comme vous le constatez, cela ne fonctionne pas due à "*.xls".
Quelqu'un a une idée ??
D'avance merci.
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un truc comme ça te conviendrait ? (le répertoire DONE doit déjà exister)
Sub zz() Dim LeFichier As String Dim CheminDepart As String, CheminArrivee As String CheminDepart = "C:My DocumentsDA_XLS" CheminArrivee = "C:My DocumentsDA_XLSDONE" LeFichier = Dir(CheminDepart & "*.xls") Do While LeFichier <> "" FileCopy CheminDepart & LeFichier, _ CheminArrivee & LeFichier LeFichier = Dir Loop End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Ado
Bonjour Eric,
sa fonctionne a merveille ...
Un grand merci à vous tous.
Bonne journée
Bonjour Ado,
Un truc comme ça te conviendrait ? (le répertoire DONE doit déjà exister)
Sub zz() Dim LeFichier As String Dim CheminDepart As String, CheminArrivee As String CheminDepart = "C:My DocumentsDA_XLS" CheminArrivee = "C:My DocumentsDA_XLSDONE" LeFichier = Dir(CheminDepart & "*.xls") Do While LeFichier <> "" FileCopy CheminDepart & LeFichier, _ CheminArrivee & LeFichier LeFichier = Dir Loop End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Eric,
sa fonctionne a merveille ...
Un grand merci à vous tous.
Bonne journée
Bonjour Ado,
Un truc comme ça te conviendrait ?
(le répertoire DONE doit déjà exister)
Sub zz()
Dim LeFichier As String
Dim CheminDepart As String, CheminArrivee As String
CheminDepart = "C:My DocumentsDA_XLS"
CheminArrivee = "C:My DocumentsDA_XLSDONE"
LeFichier = Dir(CheminDepart & "*.xls")
Do While LeFichier <> ""
FileCopy CheminDepart & LeFichier, _
CheminArrivee & LeFichier
LeFichier = Dir
Loop
End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici
mon code
FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE".
Comme vous le constatez, cela ne fonctionne pas due à "*.xls".
Quelqu'un a une idée ??
D'avance merci.
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Un truc comme ça te conviendrait ? (le répertoire DONE doit déjà exister)
Sub zz() Dim LeFichier As String Dim CheminDepart As String, CheminArrivee As String CheminDepart = "C:My DocumentsDA_XLS" CheminArrivee = "C:My DocumentsDA_XLSDONE" LeFichier = Dir(CheminDepart & "*.xls") Do While LeFichier <> "" FileCopy CheminDepart & LeFichier, _ CheminArrivee & LeFichier LeFichier = Dir Loop End Sub
Bonjour,
Je voudrai copier des fichiers ( *.xls ) d'un folder vers un autres, voici mon code FileCopy "C:My DocumentsDA_XLS*.xls", "C:My DocumentsDA_XLSDONE". Comme vous le constatez, cela ne fonctionne pas due à "*.xls". Quelqu'un a une idée ?? D'avance merci.
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
