Type d'argument ByRef incompatible dans un module
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:
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:
Call m_file_copy(Source, Destination)
A mon avis j'ai un bug dans ma syntaxe à
Code:
Destination = "L:\Mondossier\Monsousdossier\Documentations\" & " & NomFichierPDF & """
Merci pour votre aide.
Bon WE
A+
