Macro sous runtime

[hugoclo]

Bonsoir,
J'ai suivi le tuto pour diffuser ma Bdd sur dif poste avec access RUNTIME .
Toutes les macros fonctionnent sauf une.

Private Sub BtnInserer_Click()
'Déclaration des variables
Dim strFichier As String
Dim oFD As FileDialog
'Paramètre 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;*.jpeg;*.bmp;*.gif", 1
        .Add "Tous", "*.*", 2
    End With
    'Renseignement du titre
    .Title = "Insérer une image"
    'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\Mes images"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperç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 control importation
        'Retourne un erreur si pas fichier image.
        Me.ImgPhoto.Picture = .SelectedItems(1)
        'Vide du cadre image.
        Me.ImgPhoto.Picture = ""
        'Extraction du nom du 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 & "\images" & strFichier
        'Chargement dans control du chemin de l'image (sous dossier base).
        Me.Photo = CurrentProject.Path & "\images" & strFichier
        'Rafraîchit le Formulaire.
        Me.Refresh
    End If
End With
Exit Sub
fini:
    Select Case Err
        Case 2220
            MsgBox "L'importation du fichier ne c'est pas effectué normalement.", _
                vbCritical, "Erreur fichier Image"
        Case Else
            MsgBox Err.Number & Chr(13) & Err.Description
    End Select
 
End Sub

Est ce que le probleme vient du code?

[Philippe JOCHMANS]

Bonjour

Deux choses :

• Mets une gestion d'erreur, pour connaitre le motif de l'erreur, sans cela le runtime ne permet pas d'afficher l'erreur.
• Quelle est la version du runtime d'Access ?

Starec

[hugoclo]

Merci pour la réponse,
J'utilise runtime 2007.
C'est quoi une gestion d'erreur

[Philippe JOCHMANS]

Bonjour

Va lire cet article de Silkyroad La gestion des erreurs dans Excel, la partie III est commune avec Access.

Starec

[hugoclo]

En erreur j'ai une msg box visual basic avec d'ecris : Erreur de compilation.
Projet ou bibliotheque introvable. Et il me surligne ENVIRON

'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\Mes images"

Et si je supprime la ligne il me fait la meme erreur sur .MID

[hugoclo]

Autre précision, j'ai installé office 2007 sur une autre machine, j'y ai mis mas BDD et cela m'a fait le meme probleme.

[Philippe JOCHMANS]

Re

Je n'ai pas Access 2007, mais sur l'éditeur VBE, va voir dans Outils / Référence s'il n y a pas des références manquantes, si c'est le cas décoches les, compiles et réessayes (sur le poste avec 2007, et non sur un poste avec uniquement le Runtime).

Starec

[hugoclo]

ça fonctionne Merci,
Meme avec runtime