Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access FileCopy

FileCopy

2 réponses
Avatar
fth
Re Bonjour,

ce post est une suite mais concerne une autre fonction, je me permet donc de
le lancer dans un autre fil.

le probleme:
copier un fichier d'un repertoire vers un autre;
je trouve sur le site de Raymond ( qu'on ne présente plus, ça serait
grotesque!) la fonction suivante:
Private Sub Commande0_Click()
MsgBox SCR.FileCopy("c:\essais\azaza.doc", "c:\essais\azaza1.doc", True)
End Subdans mon cas, ça donne:Dim Old97AppliPath As String Dim
New2003AppliPath As StringOld97AppliPath = [applname] 'applname est le path
complet et le nom de fichier.mdb New2003AppliPath = "d:\MigAppli\" &
Mid([applname], 4)MsgBox SCR.FileCopy("Old97AppliPath", "New2003AppliPath",
True)Seulement voila, ça génère une erreur "object required"fichtre!qu'ai je
fait , mon dieu mon dieu!D'avance merciNB: et un super merci à Eric Et Jessy
qui m'ont déjà bcp aidé
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Jessy Sempere [MVP]
Bonjour

Il doit te manquer la référence de l'objet SCR

Sinon, FileCopy existe sous Access (en tous cas sous 2000)

Il te suffit de faire :
FileCopy strSource, strDestination

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"fth" a écrit dans le message news:

Re Bonjour,

ce post est une suite mais concerne une autre fonction, je me permet donc
de

le lancer dans un autre fil.

le probleme:
copier un fichier d'un repertoire vers un autre;
je trouve sur le site de Raymond ( qu'on ne présente plus, ça serait
grotesque!) la fonction suivante:
Private Sub Commande0_Click()
MsgBox SCR.FileCopy("c:essaisazaza.doc", "c:essaisazaza1.doc",
True)

End Subdans mon cas, ça donne:Dim Old97AppliPath As String Dim
New2003AppliPath As StringOld97AppliPath = [applname] 'applname est le
path

complet et le nom de fichier.mdb New2003AppliPath = "d:MigAppli" &
Mid([applname], 4)MsgBox SCR.FileCopy("Old97AppliPath",
"New2003AppliPath",

True)Seulement voila, ça génère une erreur "object required"fichtre!qu'ai
je

fait , mon dieu mon dieu!D'avance merciNB: et un super merci à Eric Et
Jessy

qui m'ont déjà bcp aidé




Avatar
Eric
re,
Je viens de te poster une proc pour ton traitement
A tester.
J'utilise d'ailleurs FileCopy mais sans passer par scripting running (SCR)

Syntaxe :
FileCopy "LecheminOrigineLeFichierOrigine.ext",
"LecheminDestiLeFichierdesti.ext"

Re Bonjour,

ce post est une suite mais concerne une autre fonction, je me permet donc de
le lancer dans un autre fil.

le probleme:
copier un fichier d'un repertoire vers un autre;
je trouve sur le site de Raymond ( qu'on ne présente plus, ça serait
grotesque!) la fonction suivante:
Private Sub Commande0_Click()
MsgBox SCR.FileCopy("c:essaisazaza.doc", "c:essaisazaza1.doc", True)
End Subdans mon cas, ça donne:Dim Old97AppliPath As String Dim
New2003AppliPath As StringOld97AppliPath = [applname] 'applname est le path
complet et le nom de fichier.mdb New2003AppliPath = "d:MigAppli" &
Mid([applname], 4)MsgBox SCR.FileCopy("Old97AppliPath", "New2003AppliPath",
True)Seulement voila, ça génère une erreur "object required"fichtre!qu'ai je
fait , mon dieu mon dieu!D'avance merciNB: et un super merci à Eric Et Jessy
qui m'ont déjà bcp aidé




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr