Insertion automatique Image

K

kjin

XLDnaute Barbatruc

• 3 Août 2010

• #2

Re : Insertion automatique Image

Bonsoir,
A adapter
A+
kjin

 

Pièces jointes

• Topick29.zip

  44.1 KB · Affichages: 111

Vote positif 0 Vote négatif

T

Topik29

Guest

• 4 Août 2010

• #3

Re : Insertion automatique Image

Bonjour Kjin, et merci pour ta réponse. J'ai essayé ton fichier et correspond à ce que je souhaite. Par contre, lorsque j'intègre les macros dans mon fichier de départ, un message d'erreur apparaît : Erreur d'exécution '1004' - Impossible de lire la propriété OLEObjetcs de la classe Worksheet"

A+
Topik

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Août 2010

• #4

Re : Insertion automatique Image

Bonjour,
Fais passer ton fichier allégé
Note que l'image est un contrôle activeX issu de la boîte à outils contrôles et non formulaire
A+
kjin

 

Vote positif 0 Vote négatif

T

Topik29

Guest

• 4 Août 2010

• #5

Re : Insertion automatique Image

Je n'arrive pas à t'envoyer mieux que le fichier que j'avais envoyé initialement. La macro bloque à la troisième ligne du code ci-dessous. Je pense donc que le problème se situe au niveau de la macro "Image1". D'ailleurs lorsque, dans l'onglet "Synthèse", je copie cette dernière, elle n'apparaît pas de la même manière que dans ton fichier. De ton côté, "Image1" apparaît dans la liste entre Général et Woksheet alors que chez moi, elle apparaît dans la liste de droite et elle se nomme "Image1_Click.

Je ne sais pas si je suis compréhensible...

Sub InsereImg(NomCom As String, NomImg As String)
With Sheets("Synthèse")
Set Img = .OLEObjects("Image1") C'EST ICI QUE CA BLOQUE
With Img.Object
.Picture = LoadPicture()
If NomImg = "" Or NomImg = "" Then Exit Sub
.Picture = LoadPicture _
(ActiveWorkbook.Path & "\" & NomCom & "\" & NomImg & ".jpg") ' à adapter
End With
End With

End Sub

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Août 2010

• #6

Re : Insertion automatique Image

Re,

Topik29 à dit:

Je n'arrive pas à t'envoyer mieux que le fichier que j'avais envoyé initialement...

Cliquez pour agrandir...

Si justement, juste pour vérifier l'adaptation
A+
kjin

 

Vote positif 0 Vote négatif

T

Topik29

Guest

• 4 Août 2010

• #7

Re : Insertion automatique Image

OK, voici ci-joint le fichier que j'avais envoyé initialement, dans lequel j'ai ajouté la macro de ton fichier.

Topik.

 

Pièces jointes

• 2010 08 03_Fiche Bâtiment_Exceldownload.zip

  47.3 KB · Affichages: 74

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 4 Août 2010

• #8

Re : Insertion automatique Image

Re,
Comme je te l'ai dis au #4, remplace ton image par une image de la boîte à outils contrôles ! (l'icône outils dans la barre de menu VBA)
A+
kjin

 

Vote positif 0 Vote négatif

T

Topik29

Guest

• 4 Août 2010

• #9

Re : Insertion automatique Image

Je n'ai apparemment pas accès à outils contrôle sur vba. Mais j'ai trouvé un didacticiel qui m'a permis d'arriver à mes fin en passant par le mode création, donc super!!!! je te remercie de ton aide.

Il ne me reste plus qu'a trouvé le moyen d'adapter la taille de la photo à la case excel....

Merci Kjin

Topik

 

Vote positif 0 Vote négatif

T

Topik29

Guest

• 4 Août 2010

• #10

Re : Insertion automatique Image

Par contre, en manipulant un peu plus le fichier, je m'aperçoit d'un bug. Dés que je passe en aperçu avant impression, l'image se déplace sur la page. Est-ce que ça te fait la même chose.

 

Vote positif 0 Vote négatif