Microsoft 365 Code VBA

thierry33670

XLDnaute Nouveau
Bonjour,
je voie beaucoup de post a ce sujet mais aucun ne correspond a ce que je recherche.
je m'explique, j'ai créer un userform avec plusieurs information dont une qui insère une image dans l'userform.
ce que je n'arrive pas a faire c'est insérer dans mon tableau l'image afficher dans l'userform.
voici mon code VBA j'insère le chemin mais pas l'image et je veux le contraire.
merci pour votre aide.
'***************************************
'Procédure permettant d'ajouter un nouvelle enregistrement
'dans la base de données

Private Sub btnAjout_Click()

Sheets("Liste_clients").Activate
Range("B6").Select
Selection.End(xlDown).Select 'on se positionne sur la dernière ligne non vide
Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
ActiveCell = txtNom.Value
ActiveCell.Offset(0, 1).Value = txtPrénom
ActiveCell.Offset(0, 2).Value = cboProspect
ActiveCell.Offset(0, 3).Value = txtAdresse
ActiveCell.Offset(0, 4).Value = txtCPVille
ActiveCell.Offset(0, 5).Value = txtMobile
ActiveCell.Offset(0, 6).Value = txtEmail
ActiveCell.Offset(0, 7).Value = cboTypebien
ActiveCell.Offset(0, 8).Value = cboHabitation
ActiveCell.Offset(0, 9).Value = txtHabitable
ActiveCell.Offset(0, 10).Value = txtTerrain
ActiveCell.Offset(0, 11).Value = txtPrixvente
ActiveCell.Offset(0, 12).Value = txtAdresse2
ActiveCell.Offset(0, 13).Value = txtDemande
ActiveCell.Offset(0, 14).Value = txtBien
ActiveCell.Offset(0, 16).Value = Chemin




MsgBox "Votre client a bien été ajouter à votre base de données", vbOKOnly + vbInformation, "CONFIRMATION"


End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG