Discussion :

[ETL68350]

Bonjour,

J'ai utilisé la publication de Morgan BILLY pour l'intégration d'images dans les fomrulaires continus.
J'ai un petit problème lors de l'exécution de l'application au moment de choisir et valider le fichier image que j'intègre dans le formulaire.
Le message " 52 Nom ou numéro de fichier incorrect" apparaît.
j'ai vérifié le code vba et je ne vois pas de quoi cela peut provenir

voici mon code

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
Private Sub Commande39_Click()
' déclaration des variables
Dim StrFichier As String
Dim OFD As FileDialog
' Paramètre de la fenêtre ouvrir
Set OFD = Application.FileDialog(msoFileDialogOpen)
With OFD
    'Ajoute les filtres pour fichiers images et tous
    With .Filters
        .Clear
        .Add "Fichiers images", "*.JPG;*.JEPG;*.BMP;*.GIF", 1
        .Add "Tous", "*.*", 2
    End With
    'Renseignement du titre
    .Title = "Insérer une image"
    'Ouvre l'explorateur fichier
    .InitialFileName = "D:\Documents\NOUVEAU PROJET ACCESS 2007 GESTION PLAN\Dossier images"
    'Interdit la multisélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici aperçu)
    .InitialView = msoFileDialogViewPreview
    'Permet de personnaliser le bouton
    .ButtonName = "Insérer"
    'Affiche la fenêtre
    If .Show Then
        On Error GoTo fini 'gestion erreur pour contrôle importation
        'Retourne une erreur si pas fichier image
        Me.Image36.Picture = .SelectedItems(1)
        'Vide cadre image
        Me.Image36.Picture = ""
        'Extraction du nom de fichier à copier.
        StrFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        'Copie du fichier sélectionné vers le sous dossier de la base.
        FileCopy .SelectedItems(1), CurrentProject.Path & "D:\Documents\NOUVEAU PROJET ACCESS 2007 GESTION PLAN\Dossier images" & StrFichier
        'chargement dans control du chemin de l'image (sous dossier base).
        Me.photos = CurrentProject.Path & "D:\Documents\NOUVEAU PROJET ACCESS 2007 GESTION PLAN\Dossier images" & StrFichier
        'Rafraichit le formulaire
        Me.Refresh
 
    End If
    End With
    Exit Sub

Pouvez-m'aider pour trouver le problème

[Tofalu]

Votre chemin :

CurrentProject.Path & "D:\Documents\NOUVEAU PROJET ACCESS 2007 GESTION PLAN\Dossier images"

est incorrect puisque currentproject.path est déjà un chemin valide