Discussion :

[nouhaaa1995]

bonjour,
je veux que lorsque je clique sur un bouton ( insérer), j’insère une photo et cliquer sur un autre bouton ( enregistrer ) pour charger l'image dans une cellule précise.
mais cela ne marche pas, je pense que j'arrive pas à récupérer le chemin de mon image pour la charger dans la cellule.
voilà le code que j'ai utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub CommandButton3_Click()
 
Dim pct As Picture, image As String
image = Application.GetOpenFilename()
Me.Image1.Picture = LoadPicture(image)
Me.Image1.Visible = True
Image1.PictureSizeMode = 1
 
End Sub
 
 
 
Private Sub CommandButton1_Click()
 
Dim derligne As Integer
Dim L As Single, T As Single, W As Single, H As Single
If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
'**********************************************************************************ajout de l'image dans cellule 10************************************************************************************************************
Set pct = ActiveSheet.Pictures.Insert(image)
pct.ShapeRange.Left = Cells(derligne, 10).Left
pct.ShapeRange.Top = Cells(derligne, 10).Top
pct.ShapeRange.Width = Cells(derligne, 10).Width
pct.ShapeRange.Height = Cells(derligne, 10).Height

[mercatog]

La variable image n'est pas reconnue dans la seconde procédure

Déclare en tête de ton module ta variable Image

Code :

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

Dim Image As String

Fais un recherche sur la portée des variables

[nouhaaa1995]

il me rend un un erreur, dans mon deuxiéme programme (du bouton enregistrer)
image : n'est pas reconnu

Code :

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

pct = ActiveSheet.Pictures.Insert(image)

[mercatog]

Et à ton avis.

Que contient la variable Image comme valeur quand tu as cette erreur.

Ton code est loin d'être réfléchi sur plusieurs aspects.

Si l'utilisateur choisit un fichier non valide par exemple

Pourquoi passer par 2 boutons alors qu'ont peut insérer une image directement

Si l'utilisateur insère plusieurs image dans la même cellule

..etc

Sinon, pour commencer, est ce que tu as regardé les tutos du site

Exemple

[nouhaaa1995]

mon programme contient d'autres données à part l'image, et qui doivent être enregistré dans une même ligne pour ne pas avoir un décalage.