Discussion :

[the_tiger85]

Bonjour à tous,
Je veux uploader un fichier dans Access. J'ai utilisé le tuto :
http://access.developpez.com/faq/?pa...#AffBoitDialog

Dans la base, on ne peut mettre que les chemins des fichiers présent sur un serveur pour pouvoir les télécharger.
Dans ce cas, il faut alors demander à l'utilisateur d'uploader ces fichiers ( et donc ajout dans la base du fichier uploadé).

J'ai donc pris le code du tuto mais j'ai une erreur au niveau de : "RepParDefaut = CurrentDb.Name" dans "Configuration de la boîte de dialogue", il me dis qu'il y a une erreur d'éxécution '91' => Variable objet ou variable de bloc With non définie.
Voici mon code (j'ai mis la ligne d'erreur en gras-rouge) :

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
'Configuration de la boîte de dialogue 
  With StructFile 
    .lStructSize = Len(StructFile) 'Initialisation de la grosseur de la structure 
    .hwndOwner = Handle 'Identification du handle de la fenêtre 
    .lpstrFilter = sFiltre 'Application du filtre 
    .lpstrFile = String$(254, vbNullChar) 'Initialisation du fichier '0' x 254 
    .nMaxFile = 254 'Taille maximale du fichier 
    .lpstrFileTitle = String$(254, vbNullChar) 'Initialisation du nom du fichier '0' x 254 
    .nMaxFileTitle = 254  'Taille maximale du nom du fichier 
    .lpstrTitle = Titre 'Titre de la boîte de dialogue 
    .flags = OFN_HIDEREADONLY  'Option de la boite de dialogue 
    If ((IsNull(RepParDefaut)) Or (RepParDefaut = "")) Then 
        RepParDefaut = CurrentDb.Name    
        PathStripPath (RepParDefaut) 
        .lpstrInitialDir = Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Mid$(RepParDefaut, 1,  _ 
InStr(1, RepParDefaut, vbNullChar) - 1))) 
        Else: .lpstrInitialDir = RepParDefaut 
    End If 
  End With 
    
If (GetOpenFileName(StructFile)) Then 'Si un fichier est sélectionné 
    Select Case TypeRetour 
      Case 1: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFile, InStr(1, StructFile.lpstrFile, vbNullChar)-1)) 
      Case 2: OuvrirUnFichier = Trim$(Left(StructFile.lpstrFileTitle, InStr(1,  StructFile.lpstrFileTitle, vbNullChar)-1)) 
    End Select 
  End If

En espérant que quelqu'un puisse m'aider !!

[the_tiger85]

Bonjour,
On m'as dit que l'erreur proviendrais peut-être de l'antivirus mais ce n'est pas ça.
Quelqu'un aurais une idée ?
@+