nrdz83
XLDnaute Impliqué
Bonjour à tous
je cherche à faire un formulaire de personnel avec l'ajout d'une image. Pour cela j'ai un champ image et un bouton Inserer qui me permet de charger l'image dans mon userform.
Code du bouton inserer:
Ce que je n'arrive pas à faire c'est de saisir l'adresse de cette photo dans ma feuille "BD_Personne"
j'ai commencé avec ce code
j'ai un eerreur au niveau de l'image.
Comment dois je modifier mon code ?
Par aavnce merci à tous
amitiés
je cherche à faire un formulaire de personnel avec l'ajout d'une image. Pour cela j'ai un champ image et un bouton Inserer qui me permet de charger l'image dans mon userform.
Code du bouton inserer:
Code:
Private Sub BTN_Inserer_Click()
Dim Photo As Variant
Photo = Application.GetOpenFilename("Fichiersbmp/gif/jpg/tiff,*.bmp;*.gif;*.jpg;*.jpeg;*.tiff")
If Photo = False Then Exit Sub 'pour le cas où l'utilisateur clique sur annuler
IMG_Personne.Picture = LoadPicture(Photo)
BTN_Inserer.Caption = "Modifier"
BTN_Supp.Visible = True 'affiche le bouton éfface image
End Sub
Ce que je n'arrive pas à faire c'est de saisir l'adresse de cette photo dans ma feuille "BD_Personne"
j'ai commencé avec ce code
Code:
Private Sub BTN_Valider_Click()
Dim derlig As Long
With Sheets("BD_Personnel")
'On teste la saisie du nom ..
If Me.Text_Nom.Text = "" Then
MsgBox "vous devez saisir un nom!"
Me.Text_Nom.SetFocus
Exit Sub
End If
'On teste la saisie du prénom ..
If Me.Text_Prenom.Text = "" Then
MsgBox "vous devez saisir un prénom!"
Me.Text_Prenom.SetFocus
Exit Sub
End If
derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Cells(derlig, 1).Value = UCase(Text_Nom) 'ucase permet de mettre en majuscule
.Cells(derlig, 2).Value = Application.Proper(Text_Prenom) 'permet de mettre la première lettre en majuscule
.Cells(derlig, 3).Value = ComboBox_Grade
.Cells(derlig, 4).Value = Text_Matricule
.Cells(derlig, 5).Value = Text_Adresse
.Cells(derlig, 6).Value = Format(Text_Codepostal, "00000") 'format code postal
.Cells(derlig, 7).Value = UCase(Text_Ville)
.Cells(derlig, 8).Value = Format(Me.Text_Téléphone, "0#"" ""##"" ""##"" ""##"" ""##")
.Cells(derlig, 9).Value = IMG_Personne
End With
End Sub
j'ai un eerreur au niveau de l'image.
Comment dois je modifier mon code ?
Par aavnce merci à tous
amitiés