begin process at 2012 02 04 14:39:02
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > SNAPSHOT CATIA TO WORD

SNAPSHOT CATIA TO WORD


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :catia, word, printscreen, impressionecran Niveau :Initié Date de création :03/04/2007 Date de mise à jour :05/04/2007 13:50:24 Vu :10 773
Auteur : Wanours

Ecrire un message privé
Commentaire sur cette source (30)
Ajouter un commentaire et/ou une note

 Description

Ce code est une macro pour CATIA qui crée une impression d'écran uniquement de la pièce ou du produit affiché, sans l'arbre, ni la boussole, et sur fond blanc.
Ensuite, l'image est envoyée sur le fichier Word préalablement ouvert.

Rajoutez un bouton dans CATIA pour lancer cette macro. Vous verrez, c'est très pratique!

Source

  • Sub CATMain()
  • '****************************************************************************************************
  • 'Pour permettre l'utilisation de cette Macro, activez la librairie word dans l'éditeur VB de Catia
  • 'Outils->Reference->Microsoft Word 11.0 Object Librairy
  • 'il faut aussi créer le raccourci clavier pour afficher la boussole avec F8
  • 'Crée par : Wanours (Version 2, mise à jour du 5 avril 2007)
  • '****************************************************************************************************
  • On Error GoTo OupsGOublieWord
  • Call ShowHideTreeAndCompass
  • Dim MyViewer As Viewer
  • Set MyViewer = CATIA.ActiveWindow.ActiveViewer
  • Dim ADR As String
  • ADR = "C:\PrintScreen.bmp"
  • '-----Memorise le BackGround d'origine
  • Dim color(2)
  • Dim MyViewer_deb
  • Set MyViewer_deb = MyViewer
  • MyViewer_deb.GetBackgroundColor color
  • '-----Passe en fond blanc
  • MyViewer_deb.PutBackgroundColor Array(1, 1, 1)
  • '-----Capture d'image
  • MyViewer.CaptureToFile catCaptureFormatBMP, ADR
  • '-----Retour au fond d'écran d'origine
  • MyViewer_deb.PutBackgroundColor (color)
  • '-----On réaffiche Boussole et Arbre
  • Call ShowHideTreeAndCompass
  • '-----Insertion dans word
  • Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True
  • Kill (ADR) 'Efface le fichier temporaire
  • Exit Sub
  • '-----Action en cas d'abscence de fichier Word préalablement ouvert
  • OupsGOublieWord:
  • A = MsgBox("Vous devez ouvrir un fichier word avant de lancer la macro!", 16, "Aucun fichier word Ouvert")
  • Kill (ADR)
  • End Sub
  • '-----Sub pour cacher/afficher la boussole et l'arbre de spécification------
  • Sub ShowHideTreeAndCompass()
  • 'Cache la boussole (raccourci à configurer!)
  • SendKeys "{F8}"
  • Call Pause(0.1)
  • 'cache l'arbre
  • SendKeys "{F3}"
  • Call Pause(0.1)
  • End Sub
  • '------Sub de temporisation générique----------------------------------------
  • Sub Pause(Temps As Long)
  • Dim Start As Long
  • Dim Check As Long
  • Dim Tempslim As Long
  • Start = Timer
  • Tempslim = Timer + Temps
  • Do Until Check >= Tempslim
  • Check = Timer
  • DoEvents
  • Loop
  • End Sub 
Sub CATMain()
'****************************************************************************************************
'Pour permettre l'utilisation de cette Macro, activez la librairie word dans l'éditeur VB de Catia
'Outils->Reference->Microsoft Word 11.0 Object Librairy
'il faut aussi créer le raccourci clavier pour afficher la boussole avec F8
'Crée par : Wanours (Version 2, mise à jour du 5 avril 2007)
'****************************************************************************************************

On Error GoTo OupsGOublieWord

Call ShowHideTreeAndCompass

Dim MyViewer As Viewer
Set MyViewer = CATIA.ActiveWindow.ActiveViewer
Dim ADR As String

ADR = "C:\PrintScreen.bmp"

'-----Memorise le BackGround d'origine
    Dim color(2)
    Dim MyViewer_deb
    Set MyViewer_deb = MyViewer
    MyViewer_deb.GetBackgroundColor color

'-----Passe en fond blanc
    MyViewer_deb.PutBackgroundColor Array(1, 1, 1)

'-----Capture d'image
    MyViewer.CaptureToFile catCaptureFormatBMP, ADR

'-----Retour au fond d'écran d'origine
    MyViewer_deb.PutBackgroundColor (color) 

'-----On réaffiche Boussole et Arbre
    Call ShowHideTreeAndCompass 

'-----Insertion dans word
    Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True
    Kill (ADR) 'Efface le fichier temporaire

Exit Sub

'-----Action en cas d'abscence de fichier Word préalablement ouvert
OupsGOublieWord:
A = MsgBox("Vous devez ouvrir un fichier word avant de lancer la macro!", 16, "Aucun fichier word Ouvert")
Kill (ADR)
End Sub


'-----Sub pour cacher/afficher la boussole et l'arbre de spécification------
Sub ShowHideTreeAndCompass()
'Cache la boussole (raccourci à configurer!)
SendKeys "{F8}"
Call Pause(0.1)
'cache l'arbre
SendKeys "{F3}"
Call Pause(0.1)
End Sub


'------Sub de temporisation générique----------------------------------------
Sub Pause(Temps As Long)

Dim Start As Long
Dim Check As Long
Dim Tempslim As Long

Start = Timer
Tempslim = Timer + Temps

Do Until Check >= Tempslim
   Check = Timer
   DoEvents
Loop

End Sub

 Conclusion

Cette mise à jour offre de nouvelles fonctionnalités.

-> Elle fonctionne avec n'importe quelle couleur du fond d'écran d'origine

-> Elle ne bug plus quand un fichier word n'est pas déjà lancé à l'avance. (un message apparaît simplement pour dire à l'utilisateur que ça ne marche qu'avec un


 Historique

03 avril 2007 11:02:44 :
Lisibilité du code
05 avril 2007 13:50:24 :
Grâce au contrôle des erreurs, plus de bug si Word n'est pas lancé, et c'était pas pratique de devoir avoir forcement le fond d'écran standard pour que ça marche

 Sources de la même categorie

Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Source avec Zip Source .NET (Dotnet) PENSE BÊTE par alpha5
Toutes les sources de la catégorie Divers

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip UTILISER LES PROPRIÉTÉS PERSO D'UN DOCUMENT COMME PARAMETRES... par bigfish_le vrai
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip WORD : OUVERTURE (AVEC OU SANS PASSWORD) ET PROPRIÉTÉES D'UN... par DJMoustique

Commentaires et avis

Commentaire de Drikce06 le 03/04/2007 14:31:43

Salut, pourquoi tu n'ouvres pas toi une appliaction word depuis la macro?

Commentaire de Drikce06 le 03/04/2007 14:33:39

On ne sait même pas à quoi ceci correspond:
Tu colles dans word serte, mais "selection", c'est quoi qui est sélectionné?
Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True

Commentaire de zavier666 le 03/04/2007 17:23:32

Les sources concernant Catia sont rares donc merci!

A ce sujet, j'en ai posté quelques unes sur API @ la Loupe, rubrique Catia V5
http://xav.prog.power.free.fr

slts!
-------------------------------------------------
Toujours plus de VB6 et d'API => API @ la Loupe
http://xav.prog.power.free.fr

Commentaire de Wanours le 04/04/2007 16:05:12

En fait, dans mon travail, il m'est utile de pouvoir faire des impressions écrans rapidement de ce qui s'affiche dans Catia pour l'intégrer à un rapport par exemple.

Donc, il ne me sert à rien d'ouvrir un nouveau fichier word puisque je lance la macro que quand je bosse sur un rapport.

Mon objectif n'était pas de pouvoir créer une macro qui permet de faire une bibliothèque de printscreen dans word, mais d'insérer des images extraites de Catia dans mon document word.

Et je colle dans word à l'endroit ou se trouve le curseur, d'où le "selection", le fichier image stocké temporairement à l'adresse "ADR", sans lien avec le fichier "linkToFile:=false"

Commentaire de 3dflix le 31/10/2007 13:33:49

Merci pour ton code.

Je m'en suis inspiré pour ecrire cela dans un module sous vba excel:

Sub SnapCatia()

Set CATIA = CreateObject("CATIA.Application")
Set MyViewer = CATIA.ActiveWindow.ActiveViewer

'-----Capture d'image
    MyViewer.CaptureToFile catCaptureFormatJPEG, "G:\PrintScreen.jpg"

End Sub

Cela devrait permetre d'effectuer la capture directement depuis excel.
Or la capture en JPG est illisible.
C'est tu pourquoi?

(A savoir cette methode fonction pour toute les fonction mais pas pour la capture.)

Commentaire de Wanours le 31/10/2007 16:26:02

Bonjour 3DFLIX...

Euh, c'est une bonne question...

Ca fait 6 mois que j'ai posé ce code, et je me souviens plus trop comment il marche.
En plus, je suis pas un caïd du VBA Excel. Mais je me demandes si ça pose pas un problème d'utiliser "ActiveWindow" alors que tu lance le snapshot depuis Excel.

Logiquement, lorsque tu lance depuis Excel, y'a plus de fenètre active dans CATIA non?

J'ai jamais lancé de code depuis un autre soft. Le snapShot, je le lançais depuis CATIA
Essai de voir en pas à pas pour savoir s'il a bien "seté" le bon truc dans MyWiewer. (si c'est pas déjà fait)

Bon courage...


Commentaire de skippower le 22/08/2008 09:57:46 10/10

Bonjour,

tout d'abord merci pour ce code source, ça marche du tonnerre !?!
Je voudrais néanmoins le modifier pour faire un "Snapshot Catia to PowerPoint", car pour mon boulot je dois  régulièrement faire des présentation sur PowerPoint.
Je débute totalement en programmation VBA, mais je crois que c'est cette ligne que je dois modifier :

Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True

J'ai bon ?
Est-ce que c'est une commande spécifique à Word ? Parce que j'ai l'impression qu'il n'est fait nulle part mention d'un document Word dans ce code source.
Est-ce que quelqu'un aurait une idée ? L'équivalent de cette commande pour PowerPoint ?

Par avance merci.

Commentaire de 3dflix le 25/08/2008 04:07:48

Bonjour, pour ma part ma macro fais une capture d'ecran de catia depuis excel ou power point. Principe: on lance la macro dans excel ou power point puis ça creer une image de catia dans excel (ou power point). je pourrai te l'envoyer qu'a la fin de mes vacances (a partir du 15 septembre).

Commentaire de Wanours le 25/08/2008 09:25:13

Bonjour à Skippower et 3dflix,

Quand je le relis, j'avoue que la ligne suivante est un peu obscur.
Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True

Selection de quoi? Je sais plus. Certainement que par défaut, il prenait la selection dans word.


Je vous cache pas que j'étais plutôt novice à l'époque de ce code, et que j'avais du l'écrire en majeur partie à partir de copier coller de macro automatique.

Je te conseille donc de tenter le coup avec cette méthode.

Par contre, je suis preneur pour ton code 3dflix.

Commentaire de skippower le 25/08/2008 11:04:24

Bonjour,

Je pense avoir trouvé la ligne de code pour insérer l'image dans PowerPoint.

j'ai remplacé :
Selection.InlineShapes.AddPicture FileName:=ADR, LinkToFile:=False, SaveWithDocument:=True
Par :
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=ADR, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-181, Top:=-117, Width:=1083, Height:=776).Select

Pour trouver cette ligne de code, j'ai juste enregistré sous PowerPoint une macro pour coder la fonction "insérer une image" (je pense d'ailleurs avoir trouver un des clefs de la programmation VBA ;o) - Enregistrer puis copier/coller le bout de code).

Le problème c'est que ça ne marche pas !?!

J'obtient ce message d'erreur :

Run-time error '429':
ActiveX component can't create objet

Je me demande si ce n'est pas un problème de références. Bien entendu j'ai rajouter la librairie PowerPoint dans l'éditeur VBA...
Vous n'auriez pas une idée ?

Sinon j'ai essayé ta méthode 3DFLIX et ça marche très bien...

Mais j'aimerai quand même bien comprendre pourquoi est-ce que mon script ne marche pas !?!

Merci de votre aide.

Commentaire de Wanours le 25/08/2008 12:12:27

D'après moi, vu que tu lance la macro depuis catia, la commande "ActiveWindow" ne peut pas marcher, puisqu'elle correspond à la fenètre active de Catia, et pas de PowerPoint.

Ca veut donc dire que tu veux insérer un SnapShot de CATIA, dans la fenètre CATIA active... Forcement, ça bug.

Ce qu'il faut, c'est trouver un moyen de récuperer l'application PowerPoint dans CATIA...

Commentaire de skippower le 25/08/2008 13:13:50

J'ai posé la question sur le forum "catiav5forum.de"
(http://www.catiav5forum.de/wbb3/wbb/index.php?page=Thread&postID=18862#post18862)
Un membre de ce forum m'a donné la solution : il faut créer auparavant un objet PowerPoint.Application.

Voilà ce que ça donne :

Set oPPT = CreateObject("PowerPoint.Application")
oPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture FileName:=ADR, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-181, Top:=-117, Width:=1083, Height:=776

Il ne me reste plus qu'à faire un peu de ménage...

Merci pour votre aide.

Commentaire de Wanours le 25/08/2008 13:44:22

Effectivement, ça devrait marcher, par contre, je pense qu'a chaque lancement de ta macro, ça va ouvrir une nouvelle instance de PowerPoint.

Enfin, je pense...

A moins que ça soit bien fait et qu'il aille chercher le PowerPoint existant.

Pourras-tu me confirmer que ça marche comme tu veux?

Merci

Commentaire de skippower le 26/08/2008 16:54:14

Non en fait ça ne lance pas de nouvelle instance de PowerPoint à chaque fois, ça marche comme pour Word...
Je vais maintenant essayer de redimensionner les images depuis la macro (je voudrais appliquer un facteur d'échelle), mais j'ai pas encore eut le temps de creuser la question...

Sinon Wanours est-ce que tu pourrais m'expliquer le principe de la "sub de temporisation générique" ? Parce que je ne comprends pas bien à quoi ça sert ni comment ça marche...

Merci par avance

Commentaire de Wanours le 26/08/2008 19:07:13

Oula...

En fait, quand je relis le code, je trouve vraiment ça moche ;-)

En fait, pour cacher (ou afficher) la boussole et l'arbre, j'avais rien trouver d'autres comme bidouille que de simuler un appui sur les touches F8 et F5 avec la commande SendKeys. (voir "ShowHideTreeAndCompass")(je sais, c'est moche, mais j'étais pressé ;-))

Le problème, c'est que quand on lançait les deux SendKeys à la suite, CATIA perdait les pédale et la boussole ou l'arbre se cachait/s'affichait une fois sur deux, donc pas top.

Du coup, j'ai mis une tempo entre les SendKeys pour laisser traaannnnquilement CATIA retrouver ses petits.

Et donc, la tempo ("Pause"), c'est assez simple.

La variable en entrée "Temps", c'est le temps en seconde que la pause doit durer.

La variable Start, et ben... et ben elle n'est que le résultat de bidouillage et de version multiple et ne sert strictement à rien. (désolé:-o)

Avant la boucle "Do", on stock une valeur "Tempslim" qui est en fait la valeur du Timer jusqu'à laquelle on souhaite attendre.

Pour info, Timer est une objet qui est une espèce de chronomètre qui compte le temps en permanence.

Donc, en gros, je lui dis de regler le reveil jusqu'à Tempslim

Je fais une boucle ou il ne se passe rien (c'est vraiment moche), jusqu'à ce que l'horloge ai atteint Tempslim.

Après ça, on quitte la routine, le "Temps" souhaité de la pause s'est désormais écoulé.

Voilà, j'espère que j'ai été clair

Commentaire de skippower le 27/08/2008 09:35:43

C'est très clair, merci.
Juste une dernière question : ça correspond à quoi la commande "DoEvents" ?

Commentaire de Wanours le 27/08/2008 09:44:34

Ben... c'est une bonne question.

La fonction "Pause" n'est qu'un copier/coller d'un truc que j'avais trouvé sur le net.

DoEvents est, je crois, une commande qui est surtout là pour que la boucle ne soit pas vide.

Si tu trouve plus d'info à ce sujet, je suis preneur.

Commentaire de skippower le 27/08/2008 09:55:43

Voilà ce que donne l'aide en ligne :

Arrête momentanément l'exécution afin que le système d'exploitation puisse traiter d'autres événements.

Syntaxe

DoEvents( )

Remarques

La fonction DoEvents renvoie une valeur de type Integer représentant le nombre de feuilles ouvertes dans les versions autonomes de Visual Basic (Visual Basic Édition professionnelle, par exemple). DoEvents renvoie un zéro dans toutes les autres applications.

DoEvents passe la main au système d'exploitation jusqu'à ce que ce dernier ait terminé de traiter les événements de sa file d'attente et que tous les codes de la file d'attente SendKeys aient été transmis.

La fonction DoEvents est particulièrement indiquée pour les opérations simples que l'utilisateur veut annuler juste après les avoir lancées, comme par exemple la recherche d'un fichier. Pour les opérations nécessitant une exécution plus longue, l'opérateur pourra plus aisément rendre la main au processeur s'il a recours à un contrôle Timer ou à un composant EXE ActiveX. Dans ce cas, la tâche s'effectue de manière complètement indépendante, hors de votre application, le système d'exploitation gérant à la fois le multitâche et le partage du temps.

Attention   Lorsque vous rendez la main de manière temporaire à votre processeur dans une procédure d'événement, veillez à ce que la procédure ne soit pas exécutée à nouveau par une autre portion de votre programme, avant que le résultat du premier appel ne soit renvoyé ; cette situation peut avoir des conséquences inattendues. En outre, n'utilisez pas DoEvents s'il existe un risque d'interaction imprévisible entre d'autres applications et votre procédure pendant que l'exécution est suspendue.

Commentaire de nikos69003 le 18/11/2008 12:50:50

Pourriez-vous mettre la totalité du code pour la macro version power point.

Commentaire de skippower le 18/11/2008 16:36:13

Voici la macro modifié pour Powerpoint (je n'ai pas eu le temps de trouver la fonction qui permet de redimensionner les images depuis la macro) :

Sub CATMain()

'****************************************************************************************************
'Pour permettre l'utilisation de cette Macro, activez la librairie word dans l'éditeur VB de Catia
'Outils->Reference->Microsoft PowerPoint 9.0 Object Librairy
'il faut aussi créer le raccourci clavier pour afficher la boussole avec F8
'Crée par : Wanours (Version 2, mise à jour du 5 avril 2007)
'Modifiée par : S. Morey, le 22 aout 2008
'Modifications : snapshot en JPEG au lieu de BMP + insertion dans PowerPoint au lieu de Word
'****************************************************************************************************

On Error GoTo OupsGOubliePowerPoint

Call ShowHideTreeAndCompass

Dim MyViewer As Viewer
Set MyViewer = CATIA.ActiveWindow.ActiveViewer

Dim ADR As String
ADR = "C:\Temp\PrintScreen.jpg"

'-----Memorise le BackGround d'origine
Dim color(2)
Dim MyViewer_deb
Set MyViewer_deb = MyViewer
MyViewer_deb.GetBackgroundColor color

'-----Passe en fond blanc
MyViewer_deb.PutBackgroundColor Array(1, 1, 1)

'-----Capture d'image
MyViewer.CaptureToFile catCaptureFormatJPEG, ADR

'-----Retour au fond d'écran d'origine
MyViewer_deb.PutBackgroundColor (color)

'-----On réaffiche Boussole et Arbre
Call ShowHideTreeAndCompass

'-----Insertion dans PowerPoint
Set oPPT = CreateObject("PowerPoint.Application")
oPPT.ActiveWindow.Selection.SlideRange.Shapes.AddPicture FileName:=ADR, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=50, Top:=100
Kill (ADR) 'Efface le fichier temporaire

Exit Sub

'-----Action en cas d'abscence de fichier PowerPoint préalablement ouvert
OupsGOubliePowerPoint:
A = MsgBox("Vous devez ouvrir un fichier PowerPoint avant de lancer la macro !", 16, "Aucun fichier PowerPoint ouvert")
Kill (ADR)

End Sub


'-----Sub pour cacher/afficher la boussole et l'arbre de spécification------
Sub ShowHideTreeAndCompass()

'Cache la boussole (raccourci à configurer!)
SendKeys "{F8}"
Call Pause(0.1)

'cache l'arbre
SendKeys "{F3}"
Call Pause(0.1)

End Sub


'------Sub de temporisation générique----------------------------------------
Sub Pause(Temps As Long)

Dim Check As Long
Dim Tempslim As Long

Tempslim = Timer + Temps

Do Until Check >= Tempslim
Check = Timer
DoEvents
Loop

End Sub

Commentaire de nikos69003 le 21/11/2008 13:51:07

Marche pas: ça me met le message d'erreur "Vous devez ouvrir un fichier PowerPoint avant de lancer la macro !".
Evidemment, j'ai déjà ouvert un power point.

Commentaire de Wanours le 23/11/2008 11:16:27

Bonjour Nikos69003,

Ce serait bien que tu debug en pas à pas (F8) pour qu'on sache ou ça bug.

Parce que vu la gestion d'erreur sommaire que j'avais mis en place, c'est pas parce que le code part en erreur dans le flag  OupsGOubliePowerPoint, que c'est forcemenet du au fait que tu as oublié powerpoint

Si ça bug à la ligne Set oPPT = CreateObject("PowerPoint.Application"), tente de remplacer cette ligne par Set oPPT = GetObject(, "PowerPoint.Application")

(Attention, j'ai pas fait d'erreur, il y a bien une virgule à mettre dans la parenthèse.)

Théoriquement, CreateObject lance une nouvelle instance de powerpoint alors que GetObject va chercher le powerpoint déjà ouvert.

Commentaire de nikos69003 le 24/11/2008 09:21:01

ça bug à Kill (ADR)
'-----Action en cas d'abscence de fichier PowerPoint préalablement ouvert
OupsGOubliePowerPoint:
A = MsgBox("Vous devez ouvrir un fichier PowerPoint avant de lancer la macro !", 16, "Aucun fichier PowerPoint ouvert")
Kill (ADR)

Commentaire de nikos69003 le 24/11/2008 09:43:53

Petite info en plus:
le fichier PrintScreen.jpg est bien créé dans C:\Temp avec fond blanc, mais la boussole et l'arbre ne sont pas cachés.

Commentaire de Wanours le 24/11/2008 14:56:40

Euh...?? t'es sur???
Je vois pas pourquoi il t'afficherait "Vous devez ouvrir un fichier PowerPoint avant de lancer la macro !" si ça bug sur la ligne qui suit l'appel du message.

Commentaire de nikos69003 le 28/11/2008 09:10:48

Cela peut-il venir de ma version de ppt (2002)?

Commentaire de nikos69003 le 28/11/2008 09:30:57

Bon je confirme, l'image est bien créée correctement dans le répertoire temporaire, mais c'est à l'insertion dans ppt que ça foire.
Quelqu'un a-t-il une solution?

Commentaire de Wanours le 28/11/2008 14:20:49

Tu pourrais copier coller ton code, et surtout, me dire exactement sur quel ligne le programme passe en erreur?
(je pense pas que ça viennent de la version de powerpoint)

Commentaire de nikos69003 le 01/12/2008 10:00:58

Le code est quelque poste au-dessus.

Commentaire de nikos69003 le 05/12/2008 10:05:15

Ca marche.
En fait, il fallait rajouter la référence Microsoft Office 10.0 Object Librairy.
La référence Microsoft PowerPoint 10.0 Object Librairy ne sert à rien dans mon cas.
Par contre les images sont mal dimensionnées, mal centrées et elle se superpose les une sur les autres.
Quelqu'un a-t-il une solution?

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

WORD [ par dom ] Comment récuperer le contenu d'un champ de formulaire access97 pour le placer dans un modèle de document word97. enregistrer un document word [ par Christian ] Bonjour à tous, et bravo pour la qualité de ce site sur VB "En Français".Depuis quelques jours je me prend la tête pour enregistrer un document Word à Lancer une macro au démarrage d'un fichier Word [ par Super Franck ] Comment lancer automatiquement une macro au démarrage d'un fichier Word word [ par mich2000 ] QUELLE EST LA COMMANDE EN VBPOUR CREER UN NOUVEAU FICHIER WORD ?mich2000 VBA - WORD [ par Blanche ] Je désire faire une pause lors de l'exécution de la macro afin de permettre à l'utilisation de faire des corrections dans le document. Donc, une paus Récupération des résultats d'une requête dans Word [ par Clement ] est-il possible de récupérer les données d'une requête faites à partir d'une page ASP et de les insérer dans un fichier word ou texte (mais dans mon c Mise à jour d'une formulaire créé en VBA/WORD [ par Blanche ] J'ai créé un formulaire en VBA contenant les informations fixes qui apparaissent dans toutes mes documents Word. Ce que je voudrais faire, c'est donn VBA : Automation d'Access vers Word [ par JS ] Je suis à la recherche d'un code source en VBA pour Access faisant la chose suivante : 1. Lancer Word2. Charger un document type3. Remplacer des mots Conversion Word -> HTML [ par Thermosam ] Il me faudrait les sources d'un programme qui à partir d'un fichier Word génère un fichier correspondant en HTML (avec tous les TAGS). tableau word [ par jeje ] je voudrais remplir des tableaux qui sont sur un document word avec des info provenant d'une requète access.je ne sais pas comment identifier ces tabl


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Water in the Beginning of the Grand Canyon
Photo Tourist Taking a Photograph of Mountains in Yosemite 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,671 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)