OVH Cloud OVH Cloud

Commande Copy sous VBA

6 réponses
Avatar
Jean Marie VIGNEAUD
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous access
97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie

6 réponses

Avatar
Antoine Labusquière
Y'a FileCopy "chemin_source, "chemin_destination"

"Jean Marie VIGNEAUD" a écrit dans le
message de news:crb5v7$779$
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous
access

97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie




Avatar
Bernard SC
"Jean Marie VIGNEAUD" a écrit dans le
message de news: crb5v7$779$
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous
access
97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie




Name (MyPath & MyNameOrig) As (MyPath & MyNewName)
(utilisée avec VBA Word, mais ça doit être pareil sous Access)

...par contre, si quelqu'un pouvait m'expliquer comment vérifier si le
fichier destination existe déjà...
parce que
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.filexists(MyPath & MyNewName) Then ... ne marche pas

Bernard
Bonne année 2005

Avatar
Antoine Labusquière
Ha tiens, je n'avais pas remarqué à qui je répondais...
Meilleurs voeux pour cette année :)


"Antoine Labusquière" a écrit dans le
message de news:crb61b$789$
Y'a FileCopy "chemin_source, "chemin_destination"

"Jean Marie VIGNEAUD" a écrit dans le
message de news:crb5v7$779$
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous
access

97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie








Avatar
Antoine Labusquière
Ta syntaxe a pour objectif de renommer un fichier, non d'en effectuer une
copie.

Pour tester l'existence d'un fichier, tu peux simplement utiliser la
fonction
if dir(chemin_fichier)<>"" then 'le fichier existe

"Bernard SC" a écrit dans le message de
news:
"Jean Marie VIGNEAUD" a écrit dans le
message de news: crb5v7$779$
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous
access
97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie




Name (MyPath & MyNameOrig) As (MyPath & MyNewName)
(utilisée avec VBA Word, mais ça doit être pareil sous Access)

...par contre, si quelqu'un pouvait m'expliquer comment vérifier si le
fichier destination existe déjà...
parce que
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.filexists(MyPath & MyNewName) Then ... ne marche pas

Bernard
Bonne année 2005





Avatar
Bernard SC
oups, c'est vrai...
pas tout à fait, cependant, car "Name" peut déplacer le fichier d'un
répertoire à l'autre.

merci pour ces précisions
Bernard


"Antoine Labusquière" a écrit dans le
message de news: crb80d$8i6$
Ta syntaxe a pour objectif de renommer un fichier, non d'en effectuer une
copie.

Pour tester l'existence d'un fichier, tu peux simplement utiliser la
fonction
if dir(chemin_fichier)<>"" then 'le fichier existe

"Bernard SC" a écrit dans le message de
news:
"Jean Marie VIGNEAUD" a écrit dans le
message de news: crb5v7$779$
Bonjour,

Existe t-il une commande VBA equivalente à la commande copy DOS sous
access
97 ?

Merci de votre aide et bonne année 2005.

Cordialement,

Jean Marie




Name (MyPath & MyNameOrig) As (MyPath & MyNewName)
(utilisée avec VBA Word, mais ça doit être pareil sous Access)

...par contre, si quelqu'un pouvait m'expliquer comment vérifier si le
fichier destination existe déjà...
parce que
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.filexists(MyPath & MyNewName) Then ... ne marche pas

Bernard
Bonne année 2005









Avatar
Antoine Labusquière
C'est un bug que name permette de déplacer un fichier ;o)


"Bernard SC" a écrit dans le message de
news:
oups, c'est vrai...
pas tout à fait, cependant, car "Name" peut déplacer le fichier d'un
répertoire à l'autre.

merci pour ces précisions
Bernard