Bonjour,
Je suis en train de créer une base de donnée pour gérer des petits films. Ceux-ci sont placés dans un dossier avec la base de donnée mais pèle-mêle. Comme il peut être nécessaire d'en emporter juste un ou deux sur un autre ordinateur, je voudrais un bouton permettant a l'utilisateur de choisir le répertoire de copie et d'y copier le fichier en question. J'ai réaliser ce code:
Il fonctionne sans me donner d'erreur contrairement a mes essais précédents SAUF qu'il ne me copie rien du tout!!
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
32
33
34 Private Sub ipad_Click() Dim strlinkcopy As String Dim var_CheminFichierb As String Dim var_NomFichierb As String var_CheminFichierb = strlinkcopy var_NomFichierb = Dir(var_CheminFichierb) 'recupere le nom du fichier strlinkcopy = SelectFolder("Sélectionnez un répertoire :", Me.hwnd) & var_NomFichierb Dim Msg As String Dim Rep Dim DgDef Dim oFSO As Scripting.FileSystemObject Dim source As String, destination As String Set oFSO = New Scripting.FileSystemObject source = Me.lien destination = strlinkcopy 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 oFSO.CopyFile source, destination, True MsgBox "Fichier copié" End Sub
J'ai donc une erreur quelque part mais j'ai beau cherché et regardé les tutoriels, je ne vois pas ce qui cloche.
Si vous aviez une idée, ça m'aiderais vraiment beaucoup.
Merci par avance.
Partager