insertion image jpg dans nouvelle feuille et imprim

[jtitin]

amis(es) du soir bonsoir.

j'affiche dans un userform des images en fonction d'un filtre.
une partie du code pour afficher l'image dans l'userform est le suivant:

chemin = "C:\\\\\images\"
nom = Me.Label5.Caption
image = chemin & nom & ".jpg"
If Not Dir(image) = "" Then
Me.Image1.Picture = LoadPicture(image)
Else
Me.Image1.Picture = LoadPicture("C:\\\\\images\image defaut.jpg")
End If

partant de là je cherche à faire, par un clik sur l'image de l'userform, ajouter une nouvelle feuille dans le classeur et insérer cette image pour ensuite imprimer cette feuille au format paysage


Merci pour votre aide

 

[jtitin]

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir forum

Personne pour me mètre sur le bon chemin ????

SVP Merci

 

[jtitin]

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir à toutes et tous.

j'ai farfouiller dans tous le forum et toujours pas de réponse.
personne n'a une idée SVP

merci

 

[MichelXld]

Re : insertion image jpg dans nouvelle feuille et imprim

bonsoir

J'espere que ces infos pourront t'aider

Option Explicit
 
Dim CheminFichier As String
 
Private Sub UserForm_Initialize()
    CheminFichier = "C:\monImage.gif"
    Me.Image1.Picture = LoadPicture(CheminFichier)
End Sub

'Evenement Click sur image
Private Sub Image1_Click()
    Dim Ws As Worksheet
 
    'Ajout feuille ( à la fin du classeur)
    Set Ws = ThisWorkbook.Worksheets.Add _
        (After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
 
    'insertion image
    Ws.Pictures.Insert(CheminFichier).Select
 
    'mise en page "paysage"
    Ws.PageSetup.Orientation = xlLandscape
    'Impression
    Ws.PrintOut
End Sub

Bonne soirée
MichelXld

 

[jtitin]

Re : insertion image jpg dans nouvelle feuille et imprim

re bonsoir.

je dois avoir garder les lunettes de soleil...
cela fait une journée passée la dessus!!!
et voila j'ai trouvé.
Utiliser l'enregistreur de Macro c'est bien utile
pour éclaicir tout cela.

voila le résultat:

Dim chemin As String
Dim image As String
Dim nom As String

chemin = "C:\\\\\images\"
nom = Me.Label5.Caption
image = chemin & nom & ".jpg"
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = ("new")
Sheets("new").Select
Range("A1").Select
ActiveSheet.Pictures.Insert(image).Select