OVH Cloud OVH Cloud

Copie de fichiers avec VB

11 réponses
Avatar
Papy Jean
Bonjour !

J'ai lu dans l'aide de VB qu'on pouvait copier un fichier F1 du répertoire
R1
dans le répertoire R2, en utilisant l'instruction CopyFile

Suivant l'exemple, j'ai écrit
....
Dim R1 as String, R2 as String, F1 as String
....
FileSystemObject.CopyFile R1+F1, R2+F1, True
....

Mais j'ai une erreur à l'exécution.
J'ai dû oublier quelque chose ?
Je suis sûr des valeurs R1, R2 et F1, parce que je les utilise ailleurs dans
la macro

Merci anticipé pour votre aide
Salutations
Papy Jean

10 réponses

1 2
Avatar
Philippe.R
Bonjour Papy Jean,
Sans avoir testé :
FileSystemObject.CopyFile R1&F1, R2&F1, True
fonctionne t il mieux ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Papy Jean" a écrit dans le message de
news:bs6654$vne$
Bonjour !

J'ai lu dans l'aide de VB qu'on pouvait copier un fichier F1 du répertoire
R1
dans le répertoire R2, en utilisant l'instruction CopyFile

Suivant l'exemple, j'ai écrit
....
Dim R1 as String, R2 as String, F1 as String
....
FileSystemObject.CopyFile R1+F1, R2+F1, True
....

Mais j'ai une erreur à l'exécution.
J'ai dû oublier quelque chose ?
Je suis sûr des valeurs R1, R2 et F1, parce que je les utilise ailleurs dans
la macro

Merci anticipé pour votre aide
Salutations
Papy Jean




Avatar
Papy Jean
Bonjour Philippe
Merci de m'aider
J'ai essayé. il y a toujours de mande de débogage
A +

"Philippe.R" a écrit dans le message de
news:
Bonjour Papy Jean,
Sans avoir testé :
FileSystemObject.CopyFile R1&F1, R2&F1, True
fonctionne t il mieux ?
--


Avatar
Philippe.R
Re,
Pour faire avancer le schilimili... ;o))
Que raconte l'aide sur le débogage ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Papy Jean" a écrit dans le message de
news:bs67rd$78p$
Bonjour Philippe
Merci de m'aider
J'ai essayé. il y a toujours de mande de débogage
A +

"Philippe.R" a écrit dans le message de
news:
Bonjour Papy Jean,
Sans avoir testé :
FileSystemObject.CopyFile R1&F1, R2&F1, True
fonctionne t il mieux ?
--






Avatar
Pierre CFI [mvp]
bonjour
la réf pour FileSystemObject. est bien présente ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Philippe.R" a écrit dans le message de news:
Re,
Pour faire avancer le schilimili... ;o))
Que raconte l'aide sur le débogage ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Papy Jean" a écrit dans le message de
news:bs67rd$78p$
Bonjour Philippe
Merci de m'aider
J'ai essayé. il y a toujours de mande de débogage
A +

"Philippe.R" a écrit dans le message de
news:
Bonjour Papy Jean,
Sans avoir testé :
FileSystemObject.CopyFile R1&F1, R2&F1, True
fonctionne t il mieux ?
--










Avatar
Papy Jean
Re-bonjour !
Non, justement !
Bien que je me doute qu'il faille faire qqch, je n'ai aucune idée de ce
qu'il faut mettre
car je suis là dans un domaine que j'ignore complèment.
Merci


"Pierre CFI [mvp]" a écrit dans le message de
news:OVN%
bonjour
la réf pour FileSystemObject. est bien présente ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B



Avatar
Pierre CFI [mvp]
dans l'editeur vba outils/références coche Microsoft Scripting Runtime

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Papy Jean" a écrit dans le message de news: bs6abs$9fl$
Re-bonjour !
Non, justement !
Bien que je me doute qu'il faille faire qqch, je n'ai aucune idée de ce
qu'il faut mettre
car je suis là dans un domaine que j'ignore complèment.
Merci


"Pierre CFI [mvp]" a écrit dans le message de
news:OVN%
bonjour
la réf pour FileSystemObject. est bien présente ?

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B







Avatar
Papy Jean
Re-bonjour !

J'ai coché Microsoft Scripting Runtime
(ça manquait: je viens de changer de Micro, d'Excel et de Windows XP)

Le bug persiste. Le message de débogage dit
erreur 424
Objet requis

Merci de votre aide
Avatar
Daniel.M
Salut Papy Jean,

Sub mmm()
Dim FSO As Object
Set FSO = CreateObject("Scripting.Filesystemobject")
FSO.copyfile R1&F1, R2&F2 True
Set FSO = Nothing
End Sub

Salutations,

Daniel M.

"Papy Jean" wrote in message
news:bs6hob$v36$
Re-bonjour !

J'ai coché Microsoft Scripting Runtime
(ça manquait: je viens de changer de Micro, d'Excel et de Windows XP)

Le bug persiste. Le message de débogage dit
erreur 424
Objet requis

Merci de votre aide




Avatar
Daniel.M
Manque une virgule:
FSO.copyfile R1&F1, R2&F2, True
Avatar
Papy Jean
Meilleurs voeux à tous et bonnes fêtes

Papy Jean
1 2