Insertion image dans fiche
b
bonjour
mon image ne s'integre pas dans ma fiche que je cree voir mon code
pouvez vous m'aider
Application.ScreenUpdating = False
'On crée les onglets
'on copie le modèle en dernier
Worksheets("03-TRAME").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
With ActiveSheet
.Name = Worksheets("00-RECAP").Range("B" & NewLig) 'je renome
'Je remplit mon modèle comme je veut...
.Range("K1") = ActiveSheet.Name
.Range("B3") = TextBoxobjet
.Range("A6") = TextBoxfiche
.Range("B6") = TextBoxdate
.Range("C6") = TextBoximputation
.Range("D6") = TextBoxlocalisation
.Range("E6") = ComboBox1
.Range("F6") = TextBoxannée
.Range("G6") = ComboBox4
.Range("A9") = TextBoxconstat
.Range("E11") = CheckBox1
.Range("E12") = CheckBox2
.Range("E13") = CheckBox3
.Range("A16") = TextBoxrisque
.Range("A21") = TextBoxorigine
.Range("E23") = CheckBox4
.Range("E24") = CheckBox5
.Range("E25") = CheckBox6
.Range("A28") = TextBoxtravaux
.Range("E31") = CheckBox7
.Range("E32") = CheckBox8
.Range("E33") = CheckBox9
.Range("A36") = TextBoxobservation
.Range("H15") = TextBoxconstructeur
.Range("K17") = TextBoxdureevie1
.Range("K18") = TextBoxdureevie2
MsgBox "choisir l'image que vous voulez"
'insert image en h20 en active x
Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg")
.Range("H20") = Photo
Gauche = Range("H20").Left
Sommet = Range("H20").Top
Largeur = Range("H20:L20").Width
Hauteur = Range("H20:L38").Height
If Photo <> False Then
.Name.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur
End If
End With
Application.ScreenUpdating = True
Unload UserForm1
End Subb
bonjour
mon image ne s'integre pas dans ma fiche que je cree voir mon code
pouvez vous m'aider
Application.ScreenUpdating = False 'On crée les onglets 'on copie le modèle en dernier Worksheets("03-TRAME").Copy After:=Worksheets(ThisWorkbook.Sheets.Count) With ActiveSheet .Name = Worksheets("00-RECAP").Range("B" & NewLig) 'je renome 'Je remplit mon modèle comme je veut... .Range("K1") = ActiveSheet.Name .Range("B3") = TextBoxobjet .Range("A6") = TextBoxfiche .Range("B6") = TextBoxdate .Range("C6") = TextBoximputation .Range("D6") = TextBoxlocalisation .Range("E6") = ComboBox1 .Range("F6") = TextBoxannée .Range("G6") = ComboBox4 .Range("A9") = TextBoxconstat .Range("E11") = CheckBox1 .Range("E12") = CheckBox2 .Range("E13") = CheckBox3 .Range("A16") = TextBoxrisque .Range("A21") = TextBoxorigine .Range("E23") = CheckBox4 .Range("E24") = CheckBox5 .Range("E25") = CheckBox6 .Range("A28") = TextBoxtravaux .Range("E31") = CheckBox7 .Range("E32") = CheckBox8 .Range("E33") = CheckBox9 .Range("A36") = TextBoxobservation .Range("H15") = TextBoxconstructeur .Range("K17") = TextBoxdureevie1 .Range("K18") = TextBoxdureevie2 MsgBox "choisir l'image que vous voulez" 'insert image en h20 en active x Photo = Application.GetOpenFilename("Images JPEG (*.jpg), *.jpg") .Range("H20") = Photo Gauche = Range("H20").Left Sommet = Range("H20").Top Largeur = Range("H20:L20").Width Hauteur = Range("H20:L38").Height If Photo <> False Then .Name.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur End If End With Application.ScreenUpdating = True Unload UserForm1 End Sub
bonjour y a til quelqu'un pour m'aider