Insertion image d'un commandbutton dans une feuille fiche

bonjour

voici mon code pour insertion de l'image sur mon commandbutton

Private Sub CommandButton3_Click()
Dim a
a = Application.GetOpenFilename("Fichier jpg;gif;bmp;tif,*.jpg ;*.tif;*.gif;*.jpg")
If a <> False Then CommandButton3.Picture = LoadPicture(a)
End Sub 

ensuite cette image après validation de l'userform elle doit s’intègre dans ma fiche et le chemin du fichier dans mon tableau en colonne aw

ci-joints mon code

Option Explicit

Private Sub CommandButton2_Click() 'Bouton VALIDER
Dim NewLig As Long
Dim laconcat As String

 'ELEMENT ENREGISTRE DANS LE TABLEAU PRESENTATION RECAP
  With Sheets("02-Présentation Recap")

        NewLig = Application.Max(10, .Range("A" & Rows.Count).End(xlUp).Row + 1)
        .Range("A" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

      laconcat = ComboBox4.Value & " _ " & TextBoxfiche.Text & " _ " & TextBoxannée.Text & " " & ComboBox5.Value
   .Range("B" & NewLig).Value = laconcat
   .Range("C" & NewLig).Value = TextBoxobjet
    .Range("D" & NewLig).Value = ComboBox1

     End With

    'ELEMENT ENREGISTRE DANS LE TABLEAU  RECAP
    With Sheets("00-Recap")

        NewLig = Application.Max(10, .Range("A" & Rows.Count).End(xlUp).Row + 1)
        .Range("A" & NewLig).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1

        .Range("C" & NewLig).Value = TextBoxobjet
        .Range("Y" & NewLig).Value = ComboBox4
        .Range("Z" & NewLig).Value = TextBoxfiche
        .Range("AA" & NewLig).Value = CDate(TextBoxdate)
        .Range("AB" & NewLig).Value = TextBoximputation
        .Range("AC" & NewLig).Value = TextBoxlocalisation
        .Range("AD" & NewLig).Value = ComboBox1
        .Range("D" & NewLig).Value = ComboBox1
        .Range("AE" & NewLig).Value = TextBoxannée
        .Range("AF" & NewLig).Value = CheckBox1
        .Range("AG" & NewLig).Value = CheckBox2
        .Range("AH" & NewLig).Value = CheckBox3
        .Range("AI" & NewLig).Value = TextBoxconstat
        .Range("AJ" & NewLig).Value = TextBoxrisque

        .Range("AK" & NewLig).Value = TextBoxorigine
        .Range("AL" & NewLig).Value = CheckBox4
        .Range("AM" & NewLig).Value = CheckBox5
        .Range("AN" & NewLig).Value = CheckBox6

        .Range("AO" & NewLig).Value = TextBoxtravaux
        .Range("AP" & NewLig).Value = CheckBox7
        .Range("AQ" & NewLig).Value = CheckBox8
        .Range("AR" & NewLig).Value = CheckBox9

        .Range("AS" & NewLig).Value = TextBoxobservation

        .Range("AT" & NewLig).Value = TextBoxconstructeur
        .Range("AU" & NewLig).Value = TextBoxdureevie1
        .Range("AV" & NewLig).Value = TextBoxdureevie2

   laconcat = ComboBox4.Value & " _ " & TextBoxfiche.Text & " _ " & TextBoxannée.Text & " " & ComboBox5.Value
   .Range("B" & NewLig).Value = laconcat

    End With
   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("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

        End With
            Application.ScreenUpdating = True
    Unload UserForm1
End Sub

mais cela me place une série de chiffre

pouvez vous m'aider

ci joints mon fichiers

Bonjour,

Tout fonctionne normalement ...

Je viens de tester ton code de ta UserForm3 avec plus d'une dizaine d'images ...

Tout roule ...

a oui sa fonctionne

mais ce qui ne fonctione pas

c est quand je rajoute

pour mon tableau

.Range("Aw" & NewLig).Value = CommandButton3.Picture.text 

cela ne me mais pas le chemin du fichier

et dans ma fiche

.Range("H20") = CommandButton3.Picture

Cela me place que des chiffres

encore merci de ton aides

James007 a écrit :

Bonjour,

Tout fonctionne normalement ...

Je viens de tester ton code de ta UserForm3 avec plus d'une dizaine d'images ...

Tout roule ...

a oui sa fonctionne

mais ce qui ne fonctione pas

c est quand je rajoute

pour mon tableau

.Range("Aw" & NewLig).Value = CommandButton3.Picture.text 

cela ne me mais pas le chemin du fichier

et dans ma fiche

.Range("H20") = CommandButton3.Picture

Cela me place que des chiffres

encore merci de ton aides

Re,

En ce qui concerne le chemin ... tu peux le stocker dans une variable ... pour pouvoir le ré-utiliser ...

par exemple ... à tester :

chemin = Left$(a, InStrRev(a, "\"))

En espèrant que cela t'aide

James007 a écrit :

Re,

En ce qui concerne le chemin ... tu peux le stocker dans une variable ... pour pouvoir le ré-utiliser ...

par exemple ... à tester :

chemin = Left$(a, InStrRev(a, "\"))

En espèrant que cela t'aide

cela ne marche pas je comprend pas

j 'ai declare les variables pourtant

dim chemin as long

Bonjour,

Il faudrait tester

Dim chemin As String

En espèrant que cela t'aide