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

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/07/2006, 10h41
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 ;)
28/07/2006, 10h47
gootsu

Citation:

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! :?
28/07/2006, 10h49
gootsu

Citation:

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!! ;)
28/07/2006, 10h55
gootsu

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

Citation:

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.
28/07/2006, 11h01
ouskel'n'or

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 ???

2 pièce(s) jointe(s)

Code:

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)

Code:

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!! ;)

28/07/2006, 11h11
SfJ5Rpw8
Citation:

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 ( :mouarf: ...) 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:

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:

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..

;)
28/07/2006, 11h12
ouskel'n'or

Désolé mais sans Excel5...
As-tu accès à la collection d'objet ShapeRange ?
28/07/2006, 11h16
SfJ5Rpw8

Citation:

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.."
28/07/2006, 11h24
ouskel'n'or

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
28/07/2006, 11h31
gootsu
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:

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:

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 :resolu:
28/07/2006, 11h51
gootsu

2 pièce(s) jointe(s)

bbil ;) tu va me prendre pour un fou! :lol:

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
28/07/2006, 11h58
gootsu

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!
28/07/2006, 14h38
gootsu

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) :lol:

A plus, je reste à votre écoute!;)
28/07/2006, 14h54
ouskel'n'or

Désolé,

Citation:

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) :cry:
28/07/2006, 15h05
SfJ5Rpw8
Comment as tu coller ton objet ole...
tu n'as pas coché l'icone afficher sous forme d'icone... le code correspondant est :
Code:

1 2 DisplayAsIcon:=False
;)
28/07/2006, 15h26
ouskel'n'or

Citation:

Envoyé par gootsu

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

....................................;)
28/07/2006, 15h26
gootsu

je t'assure que non! displayicone est bien a false!!

heu !! enfin je crois :roll:
28/07/2006, 15h45
SfJ5Rpw8

1 pièce(s) jointe(s)

Citation:

Envoyé par gootsu

je t'assure que non! displayicone est bien a false!!

heu !! enfin je crois :roll:

ouvre les 8O :mouarf:

Voir 40 message(s) de cette discussion en une page