XL 2010 VBA : envoyer les résultats d'un formulaire dans une base de données

Rouxni · 26 Juillet 2019

Bonjour,

Je dois créer un outil pour vérifier l'état des véhicules de manutention de mon entreprise.
Pour cela j'ai crée un formulaire UserForm et je rencontre quelques difficultés...

1) Je n'arrive pas à faire insérer une image dans mon formulaire malgré les multiples tentatives grâce aux aides des forums

son emplacement est Y:\Outil Chariot\image.jpg

2) Je n'arrives pas non plus à renvoyer une fois que le formulaire est rempli, les données dans une base de données annexe et c'est peut être la partie la plus importante...

Si quelqu'un peut m'aider ce serait top. Je vous joint mon fichier pour que vous puissiez voir plus précisément ce que j'attends

Calvus · 27 Juillet 2019

Bonsoir Rouxni, le forum

J'ai allégé ton code, disons sacrément...

Voici ce qu'il reste de ton code :

VB:

Private Sub CommandButton1_Click()
Dim i%, derligne%

derligne = Cells(Rows.Count, 1).End(xlUp)(2).Row
Cells(derligne, 1) = Now
Cells(derligne, 2) = Nom.Value
Cells(derligne, 3) = Num_Parc.Value
Cells(derligne, 4) = Heure.Value

For i = 1 To 19
    If Me("CheckBox" & i) Then Cells(derligne, i + 5) = "Coché"
Next i
En Sub

Pour l'image :

Code:

Private Sub UserForm_Initialize()
Dim Mon_Image As String
Mon_Image = "Y:\Outil Chariot\image.jpg"
Image1.Picture = LoadPicture(Mon_Image)
End Sub

Pour sortir :

Code:

Private Sub CommandButton2_Click()
Unload Me
End Sub

J'ai rapidement aligné tes Checkbox, mais tu peux arranger cela plus consciencieusement.
J'ai également inséré une colonne pour les dates, puisque celle-ci n'existait pas.

Et je te conseille de réorganiser l'ordre de ceux-ci, sur le userform, de façon à avoir des noms qui se suivent. ce sera plus lisible qu'actuellement..

A+

Rouxni · 29 Juillet 2019

Bonjour,

Je vous remercie, c'est top !

Encore une petit problème, puisque le formulaire ne s'ouvre pas.. Lorsque je clique sur Afficher le formulaire, il me signale un erreur et m'emmène en débogage.

Calvus · 29 Juillet 2019

Bonjour,

Ça ça veut dire que le chemin "Y:\Outil Chariot\image.jpg" n'existe pas.

Mais c'est le chemin que tu as donné..

Il faut donc modifier ce chemin et mettre un chemin et une image valides.

A+

Rouxni · 29 Juillet 2019

Merci j'ai réussi à mettre mon image.

J'ai finalisé la mise en page du document.
Il me reste deux trois choses à corriger dont je n'ai pas les connaissances pour le faire :

1) Comment renvoyer la zone de texte "commentaire" dans la base de données ?
2) J'aimerai mettre deux autres images pour améliorer le visu du document. En reprenant le même code VBA que pour la première, cela ne fonctionne pas.

Private Sub Image2_Click()
Dim Mon_Image2 As String
Mon_Image2 = "Y:\Outil Chariot\Image2.jpg"
Image2.Picture = LoadPicture(Mon_Image2)
End Sub

3) Dernièrement et surement la plus importante : J'aimerai que le bouton "Afficher le formulaire" soit placé sur une feuille à part de la base de données (Exemple : le bouton est placé sur la feuille "formulaire" mais lorsque l'ont clique sur enregistrer les données vont dans la feuille "Base de données"

Si vous pouvez de nouveau m'aider, ce serait génial !

XL 2010 VBA : envoyer les résultats d'un formulaire dans une base de données

Rouxni

XLDnaute Nouveau

Pièces jointes

Calvus

XLDnaute Barbatruc

Pièces jointes

Rouxni

XLDnaute Nouveau

Calvus

XLDnaute Barbatruc

Rouxni

XLDnaute Nouveau

Pièces jointes

Discussions similaires