Bonjour à tous,


J'ai un form dans lequel je souhaite qu'un user puisse uploader un fichier vers le serveur tout en renseignant le chemin d'accès (sur serveur) à ce fichier dans la base. Pour ce faire j'ai déjà récupéré les chemins source et le nom de fichier source...

Tout fonctionne sauf là:

J'ai le code suivant dans mon module UploadPDF:

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
35
36
37
38
39
40
41
42
43
Option Compare Database
 
Public Function m_file_copy(SrcFile As String, DstFile As String)
 
Const c_Len = 32000
 
Dim SrcNum As Integer, DstNum As Integer, f_len As Long, f_end As Long, I As Long
Dim X As String * c_Len
 
SrcNum = FreeFile()
Open SrcFile For Binary Access Read As #SrcNum Len = c_Len
DstNum = FreeFile()
Open DstFile For Binary Access Write As #DstNum Len = c_Len
 
f_len = LOF(SrcNum)
For I = 1 To (f_len \ c_Len)
Get #SrcNum, , X
Put #DstNum, , X
Next I
 
f_len = (f_len Mod c_Len)
If f_end > 0 Then
    Get #SrcNum, , X
    Put #DstNum, , X
End If
 
Close #SrcNum
Close #DstNum
 
End Function
 
Function Start()
 
Dim Source As String
 
 
Source = CheminPDF
Destination = "L:\Mondossier\Monsousdossier\Documentations\" & " & NomFichierPDF & """
 
Call m_file_copy(Source, Destination)
 
 
End Function
J'ai cependant une erreur Type d'argument ByRef incompatible sur Destination dans le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Call m_file_copy(Source, Destination)

A mon avis j'ai un bug dans ma syntaxe à
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Destination = "L:\Mondossier\Monsousdossier\Documentations\" & " & NomFichierPDF & """
Merci pour votre aide.

Bon WE

A+