Discussion :

[dp_favresa]

Bonjour,

Je désire insérer une image dans une cellule Excel, j'utilise

Code :

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

ActiveSheet.Pictures.Insert(Image)

dans une macro. Je teste ceci, ça fonctionne bien.

J'enregistre les fichiers dans un auto-extractible ZIP et teste la
distribution (bien entendu dans un autre répertoire que celui
d'origine). Résultat :

Erreur 1004
Impossible de lire la propriété Insert de la classe Pictures

Et le plus drôle est que j'ai maintenant aussi ce message dans
le fichier d'origine.

Que faut-il faire pour corriger ça ???

Merci d'avance pour une idée.
Salutations. dp

[ouskel'n'or]

Et le plus drôle est que j'ai maintenant aussi ce message dans
le fichier d'origine.

Où as-tu ce message sur le poste sur leque tu as développé ton appli ou sur le post où le zip a été développé ?
La question bête : Ton image a-t-elle été incluse dans le zip ? Son adresse est-elle la bonne ? (ça fait deux questions bêtes... je sais )

A+

[dp_favresa]

Bonjour,

L'appli a été développé sur mon poste (Win XP) dans "mes documents",
l'extraction a été faite aussi sur 2 autres PC (Win 2000 sur l'un, Win XP
sur l'autre). Les images sont dans le ZIP, dans le même répertoire
que l'appli.
Ci-dessous un extrait du code :

Code :

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

1
2
3
4
5
 
    Image = Application.ActiveWorkbook.Path & "\Image" & Nimage & ".jpg"
    Select Case TypeTR
        Case "1  ", "2  ", "3  ",.........
            InsertionImage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Public RangImg(10) As String * 3
    Public MemPos As Integer
    Public Image As String * 11
    Public Pos1 As String * 1
    Public Pos2 As String * 1
    Public HB As Integer
Sub InsertionImage()
    Range(RangImg(MemPos)).Select
    ActiveSheet.Pictures.Insert(Image).Select
End Sub

Le 1er extrait est une macro dans un form.

Merci pour ton aide.

[ouskel'n'or]

Dans la variable "image", indiques-tu le chemin ?
Ton fichier image est-il bien développé après unzip ?

A tout hasard...

[dp_favresa]

Le problème venait bien de la variable "image", je me suis loupé dans
une correction.

Code :

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

Dim Image as String * 11

C'est un peu court pour contenir le chemin + le nom de l'image.

Merci et cordiales salutations.
dp