Discussion :

[MrLafa]

Bonjour à tous,

Après de nombreuses recherches je me résous à solliciter votre aide...

En effet, je développe actuellement dans le cadre de mon travail un petit programme pour une gestion informatique de différents événements

Pour ce faire, j'ai réalisé un UserForm où l'utilisateur y remplira différent champs et y insérer une ou plusieurs images, avant que ces infos soit envoyés sur une feuille dans l'attende d'être traitées.

Je rencontre actuellement deux problèmes :

1 - Pour l'insertion de l'image sur le UserForm

A l'appui sur un bouton, l'explorateur de fichier s'ouvre, je sélectionne mon image pour l’insérer dans un cadre image.

Hors actuellement, l'explorateur s'ouvre, je sélectionne mon image, et je valide, alors l'explorateur se ré-ouvre, je suis obligé de sélectionne à nouveaux mon image pour qu'elle soit enfin insérée.

Voici le code utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    If Application.GetOpenFilename = False Then Exit Sub
    On Error GoTo ERR_001
    Image14.Picture = LoadPicture(Application.GetOpenFilename)
    Exit Sub
 
ERR_001:
  MsgBox "le fichier n'est sans doute pas une image ?"
  Image14.Picture = LoadPicture("")
  Application.GetOpenFilename = False
  Resume Next

2 - J'aimerai ensuite, lors de l'appui sur un bouton, que mes données soit enregistrées dans une base de données.
Aucun problème avec les données texte, par contre impossible d'envoyer les images vers cette base.
J'ai essayé de nombreux code trouvés ici et là mais rien n'y fait...
Jusqu’à présent deux résultats, il ne se passe rien ou bien c'est une série de chiffres qui sont collée à l'endroit voulu.

Je débute tout juste dans le VBA, ce programme est un défi pour moi et me tiens à cœur, je prendrais donc tout conseil avec grand plaisir.
Je tiens également à comprendre ce que j’insère dans mon code, n’hésitez donc pas à m’assommer d'explication

Merci d'avance pour votre aide
Je joindrai au besoin mon fichier de travail.

[unparia]

Bonjour

J'aurais à ta place le réflexe immédiat de ne mettre que ceci au clic d'un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.GetOpenFilename = False

en oubliant et supprimant, donc, toutes les autres lignes de mon code.
Fais-le, s'il te plait. Cela t'ouvrira un peu les yeux.

[MrLafa]

Merci pour ta réponse,

En effet, j'appelais deux fois GetOpenFilename

Mes divers essais entraînent de nouvelles erreur d'exécution, j'ai donc changé de stratégie et est remplacé le code par celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
On Error Resume Next
 
Image14.Picture = LoadPicture(Application.GetOpenFilename)
If Image8.Picture = flase Then MsgBox "Insérer une fichier valide"
 
On Error GoTo 0

Pourrais tu m'en dire tout de même plus que je puisse comprendre ce qui cloche?

[Marc-L]

Bonjour !

Faute d'orthographe en ligne n°4 ‼     Avant MsgBox et après Picture …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[MrLafa]

hum faute de frappe à la recopie...

[unparia]

Pourrais tu m'en dire tout de même plus que je puisse comprendre ce qui cloche?

Volontiers.
Ouvre ton aide VBA à la rubrique Picture, propriété
Et dis-nous ou tu as vu qu'elle pouvait recevoir une booléenne comme valeur ?
(tu dois l'avoir vu, n'est-ce-pas, puisque tu l'écris dans ton code sans sourciller ...)
Reviens ensuite de manière plus appliquée, s'il te plait.