Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copie de fichier à partir d'une liste

1 réponse
Avatar
Curt
Bonjour à tous,
J'ai une base dans laquelle j'ai les chemins de mes fichiers dans
[Matable][MesFichiers] (chemin complet du style D:\Dossier1\Fichier1.xls)
Nota: Les chemins sont différents les uns des autres.

La requête qui extrait mes données s'appelle MaRequete
L'idée est de pouvoir copier le(s) fichier(s) issu(s) par MaRequete dans le
dossier "D:\MonDossierTemporaire"

Si quelqu'un a une idée ou a déjà réalisé cette manip, je suis preneur.
Bonne journée.
Curt

1 réponse

Avatar
Fabien
Curt wrote:
Bonjour à tous,
J'ai une base dans laquelle j'ai les chemins de mes fichiers dans
[Matable][MesFichiers] (chemin complet du style D:Dossier1Fichier1.xls)
Nota: Les chemins sont différents les uns des autres.

La requête qui extrait mes données s'appelle MaRequete
L'idée est de pouvoir copier le(s) fichier(s) issu(s) par MaRequete dans le
dossier "D:MonDossierTemporaire"

Si quelqu'un a une idée ou a déjà réalisé cette manip, je suis preneur.
Bonne journée.
Curt





Bonjour,
Avec un
Dim Rst as Dao.recordset
Set Rst = Currentdb.openrecordset("MaRequete")

While not rst.eof
'Pour copier
Docmd.filecopy rst("NomFichier") "D:Mondossiertemporaire"
'Pour déplacer
Docmd.Name rst("NomFichier") "D:Mondossiertemporaire"
Rst.movenext
Wend
Rst.close
Set Rst = Nothing
@+