Discussion :

[Jean-Luc80]

Bonjour
J'ai un problème pour copier un fichier d'un répertoire à un autre
Voici le code utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function sauv2()
Dim Msg As String
Dim Rep
Dim DgDef
Dim oFSO As Scripting.FileSystemObject
Dim source As String, destination As String
source = "C:\access\etiqdata.mdb"
destination = "H:\BasesAccess\"
 
Const BM_OKSEUL = 0
Const BM_OUINONANNULER = 3
Const BM_OUINON = 4
Const BM_OKANNULER = 1
Const BM_STOP = 16
Const BM_INTER = 32
Const BM_INF = 64
Const BM_AVERT = 48
Const IDOUI = 6, IDNON = 7, IDANNUL = 2, IDOK = 1
 
    If Forms![Sauvegarde]![OptionSauvegarde].Value = 3 Then
              Msg = "Allumez et branchez le disque dur externe"
            DgDef = BM_OKANNULER + BM_INF
        Rep = MsgBox(Msg, DgDef, "Etiquettes")
              If Rep = IDOK Then
    Forms!Sauvegarde!DATESAUV = Now()
    Forms!Sauvegarde!HEURESAUV = Now()
                 oFSO.CopyFile source, destination, True
                 Else
                  Exit Function
              End If
              End If

A l'exécution j'ai un message d'erreur 91 variable objet non définie
Au débogage ça pointe sur la ligne copyfile ....etc ...
Quelqu'un peut'il m'aider car je ne vois pas où il y a une erreur
J'ai bien insérer microsoft scripting runtime dans les références
D'avance Merci

[LedZeppII]

Bonsoir,

l'objet oFSO n'a pas été créé. Il manque cette ligne

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFSO = New Scripting.FileSystemObject

à mettre juste avant la première ligne utilisant l'objet oFSO.

A+

[Dolphy35]

Salut,

plus simple, regarde du côté de l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileCopy "Source", "Destination"

Dolphy

[Jean-Luc80]

Bonjour
Merci à LedZeppII , j'avais omis de créer l'objet avec la commande Set !!
Maintenant ça marche

Merci aussi à Dolphy35 mais chez moi l'instruction FileCopy "Source", "Destination"
ne fonctionne pas , ne serait-ce pas une instruction nouvelle sous Access2007 ( j'utilise la version 2003 ) ?
Bonne journée

[Dolphy35]

Merci aussi à Dolphy35 mais chez moi l'instruction FileCopy "Source", "Destination"
ne fonctionne pas , ne serait-ce pas une instruction nouvelle sous Access2007 ( j'utilise la version 2003 ) ?
Bonne journée

Non cette instruction est disponible sous Access 2003, je l'utilise fréquemment.

Dolphy

[LedZeppII]

Bonjour,

L'inconvénient de FileCopy est que la copie est refusée lorsque le fichier source est ouvert.

A+