[VBa-E] question(s) sur l'objet OLE "image Bitmap"!

**ouskel'n'or** · 28/07/2006, 11h41

Autre problème sur Excel 5 : Es-tu certain qu'il supporte les noms de répertoires ou de fichiers contenant des espaces, les noms de répertoires ou de fichiers comportant + de Huit caractères ?
Fais le test en mettant ton code y compris ta ligne rouge

**gootsu** · 28/07/2006, 11h47

Il est possible que ce ne soit qu'une histoire de changement de syntaxe entre

Code :
ActiveSheet.OLEObjects.Add "Paint.picture", "C:\Documents and _
Settings\gootsu\Mes documents\Mes images\test.bmp", False, False
'ou bien
ActiveSheet.OLEObjects.Add ("Paint.picture", "C:\Documents and _
Settings\gootsu\Mes documents\Mes images\test.bmp", False, False)

Pour certaines méthodes, le type de l'argument est ignoré. Peut-être en est-il ainsi sur Excel5.
Si tu peux tester ça...

non ni l'une ni l'autre!

**gootsu** · 28/07/2006, 11h49

Envoyé par ouskel'n'or

Autre problème sur Excel 5 : Es-tu certain qu'il supporte les noms de répertoires ou de fichiers contenant des espaces, les noms de répertoires ou de fichiers comportant + de Huit caractères ?
Fais le test en mettant ton code y compris ta ligne rouge

pas bête! je vais y jeter un coup d'oeil!!

**gootsu** · 28/07/2006, 11h55

le problème c'est que dans l'aide ils me disent :

ClassType Argument de type Variant facultatif. Vous devez spécifier soit l'argument ClassType, soit l'argument FileName. Chaîne qui contient l'identificateur de programmation pour que l'objet soit créé. Si l'argument ClassType est spécifié, les arguments FileName et Link sont ignorés.

FileName Argument de type Variant facultatif. Vous devez spécifier soit l'argument ClassType, soit l'argument FileName. Chaîne qui indique le fichier à utiliser pour créer l'objet OLE.

**ouskel'n'or** · 28/07/2006, 12h01

Alors quant à choisir, ignore l'argument "ClassType:=" et mets le chemin et le nom du fichier. Mais je si ça ne fonctionne pas, essaie en ignorant le type de l'argument ( Filename:= ) et sépare tes arguments par une virgule, avec ou sans paranthèses
A TOUT HASARD ! N'ayant pas Excel 5, nous ne pouvons que supputer

Compte tenu du fait que ClassType est facultatif, je pense que la syntaxe est bien
Filename:=NomDuFichier
Par contre, les parenthèses ???

**gootsu** · 28/07/2006, 12h02

Code :

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

1
2
3
        DialogSheets("Contrôle").Activate
        ActiveSheet.OLEObjects.Add Filename:="P:\CKxx.bmp", _
                           Link:=False, DisplayAsIcon:=False

ce qu'il me fait : voir image jointe

quand je lance l'image au lieu d'ouvrir paint il m'ouvre ce gestionnaire (voir pff2)

**gootsu** · 28/07/2006, 12h04

Code :

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

1
2
3
        DialogSheets("Contrôle").Activate
        ActiveSheet.OLEObjects.Add ClassType:="Paint.picture", Link:=False, _
                          DisplayAsIcon:=False

ça! sa fonctionne! le problème c'est que c'est une page vierge et j'aurai aimé qu'elle ne le soit pas!!

**SfJ5Rpw8** · 28/07/2006, 12h11

Envoyé par jmfmarques

Ami gootsu,

Une autre idée :

Quand tu crées ton objet OLE, tu devrais normalement pouvoir choisir d'ouvrir un fichier image de ton choix, puis de lier ton objet OLE à ce fichier.

Si tu as (et je pense que oui s'agissant d'un objet OLE) cette option là, utilise-la donc. Les modifications apportées seront enregistrées dans le ficher et retrouvées depuis ce ficheir à l'utilsation suivante.

Essaye et mets-y tout ton coeur.

Bon j'ai essayé l'idée à l'aveugle (

...) et encore une fois c'est une bonne idée..

pour le test ...
au préalable prépare avec MSPaint une image bipMap...

Rajoute une "boite de dialogue microsoft Excel 5" avec un clic droit sur les onglets excel du bas...

puis dans cette boite tu insere l'objet Image en gardant le lien au fichier , menu Insertion /Objet / Onglet creer 0 partir du fichier en prenant bien soin de cocher la case Lier au fichier..
tiens en passant la même chose par le code d'insertion dans la boite de dialogue

Code :

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

1
2
3
4
 
sheets("Dialogue1").OLEObjects.Add(Filename:= _
        "D:\Donnees\monImage.bmp", Link:=True, _
        DisplayAsIcon:=False).Select

ensuite crée une procédure (dans un module..)

Code :

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

1
2
3
 Sub MacroEdition()
  Selection.Verb
End Sub

affecte cette macro à ton objet OLE image..

et voila ... si tu exécute la boite de dialogue .. lorsque tu clique sur l'image.. MSPaint s'ouvre... tu peu faire tes modificaitons ... puis à la sortie de MSPaint .. tu sauve.. et ton fichier image est mis à jour..

**ouskel'n'or** · 28/07/2006, 12h12

Désolé mais sans Excel5...
As-tu accès à la collection d'objet ShapeRange ?

**SfJ5Rpw8** · 28/07/2006, 12h16

Envoyé par ouskel'n'or

Désolé mais sans Excel5...
As-tu accès à la collection d'objet ShapeRange ?

c'est pas excel5 ousk' .. c'est une boite de dialogue Excel 5 .. rajoute une feuille à ton classeur mais au lieu de choisir feuille de calcul sélectionne "boite de dialogue Excel 5.."

**ouskel'n'or** · 28/07/2006, 12h24

Ok, merci bbil. En fait, comme j'avais le code sous Word, j'étais resté sous word. Je verrai ça avec Excel mais... plus tard.
Bon app

**gootsu** · 28/07/2006, 12h31

bbil:
Je te jure que c'est ce que j'ai fait depuis le début et ça na marche pas!
quoi que je crois que la seul chose que j'ai pas faite c'est de mettre link à true avec filename!!

attend je vais faire comme ça! parce que je viens d'y arriver mais pas toute à fait de cette manière!

c'est à dire :
j'ai mis l'extention de l'image par defaut que je souhaite à (*.dib)
ensuite j'ai tapez le code suivant :

Code :

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

1
2
3
        DialogSheets("Contrôle").Activate
        ActiveSheet.OLEObjects.Add Filename:="P:\gootsu.dib", Link:=False, _
                        DisplayAsIcon:=False

et j'ai ajouter la macro :

Code :

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

Selection.Verb verb:=xlOpen

et le tour et jouer comme ça, sa marche!

mais je prefèrerais au format Bitmap donc je vais tester ton link:=true et

**gootsu** · 28/07/2006, 12h51

bbil

tu va me prendre pour un fou!

mais chez moi ça ouvre "Nero photoSnap viewer"

et avant d'etre lancer il me met un message d'erreur?

peut etre que c'est une histoire de "logiciel par defaut"

Bonne app

**gootsu** · 28/07/2006, 12h58

j'ai effectivement "nero viewer" pour les images bmp!
j'ai changer et j'ai mis "paint" maintenant il m'ouvre paint mais toujours le message d'erreur!

**gootsu** · 28/07/2006, 15h38

je n'ai plus le message d'erreur mais il me reste un problème dans la methode de bbil, contrairement à la mienne, dans l'object OLE il y a un logo et non le dessin!! de plus je veux enegistrer le dessin obtenu dans excel et non dans paint et dans les configurations actuel il me demande d'enregistrer quand je ferme paint!

Voila ma triste vie (lol)

A plus, je reste à votre écoute!

**ouskel'n'or** · 28/07/2006, 15h54

Désolé,

Envoyé par bbil

c'est une boite de dialogue Excel 5 .. rajoute une feuille à ton classeur mais au lieu de choisir feuille de calcul sélectionne "boite de dialogue Excel 5.."

J'ai pas (vba97)