Discussion :

[marcelstan]

Bonjour à tous

Voilà j'ai crée un formulaire graphique et je souhaite l'importer vers powerpoint pour faire une présentation mais je n'arrive pas.
J'ai écris un code qui selon moi n'est pas complète ment bidon mais il beug.
Pourriez-vous m'aider à resoudre ce problème?

Code Vba acces :

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

1
2
3
4
5
6
7
8
 
Sub copie()
 DoCmd.OpenForm "F_évolutions_familles"
 DoCmd.RunCommand acCmdCopy
 Set ppSlide1 = Pres.Slides.Add(1, ppLayoutLargeObject) ' le bug est là il marque objet requis y dois un truc que je loupe 
 ppSlide1.Shapes.Paste
 
End Sub

[jimbolion]

marcelstan bonjour,

Regarde cet article Microsoft : Je pense que tu as omis de référencer la bibliothèque d'objet PowerPoint.

http://support.microsoft.com/kb/139880/fr

JimBoLion

[Invité]

Bonjour

De plus dire il beug ne fera pas avancer la résolution du problème.

Y a t'il un message d'erreur ? Le résultat n'est pas celui attendu ?

Philippe

[marcelstan]

Bonjour philippe
le bug au niveau de la ligne que j'ai signalé est : Erreur execution '424': Objet requis

[jimbolion]

marcelstan bonsoir,

As tu jeter un oeil sur ma réponse ?

Car je pense ne pas être loin de la vérité

JimBoLion

[marcelstan]

Salut JimBolion

Je pense aussi que la réponse n'est pas loin de ce que tu as écris mais il y'a toujours un truc qui coince

Code Vba Access :

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

1
2
3
4
5
6
7
8
9
10
11
 Sub copie()
 Dim ppt As Object, pres As Powerpoint.Presentation, ppSlide1 As Powerpoint.Slide
 
 'ppt.DeleteFile ppSlide1
 'Set ppt = Nothing
 
 DoCmd.OpenForm "F_évolutions_familles"
 DoCmd.RunCommand acCmdCopy
 Set ppSlide1 = pres.Slides.Add(1, ppLayoutLargeObject) 'L'erreur elle est là (erreur d'éxécution 91)
 ppSlide1.Shapes.Paste
End Sub

Si tu peux m'aider à le resoudre ce serai sympa

[jimbolion]

marcelstan

Tu peux regarder cet exemple que j'ai adapté et qui fonctionne parfaitement !

http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

JimBoLion

[marcelstan]

Salut jimbolion
J'ai lu le doc que tu m'as envoyé il est très bien mais y'a une chose qu'il ya pas de dessus. Dans ton document on ouvre une table et on fait défilé le contenu sur powerpoint.

Code VBA access :

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

1
2
3
4
5
6
7
8
9
   Dim db As Database, rs As Recordset
    Dim ppObj As PowerPoint.Application
    Dim ppPres As PowerPoint.Presentation
 
    On Error GoTo err_cmdOLEPowerPoint
 
    ' Open up a recordset on the Employees table.
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Employees", dbOpenDynaset)

Ma question elle est peut-etre toute bête mais je ne la trouve. C'est comment fouvrir le formulaire

Code Vba access :

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

1
2
3
 ' Ouvrir le formulaire création.
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Frm_creation", dbOpenDynaset)

Mais je ne pense pas que cela marche avec des formulaires et encore moins avec des formulaire graphique ouvert en mode graphique parceque le code

Code code Vba :

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

1
2
3
4
5
6
7
8
9
Sub copie()
   Dim ppt As Object, pres As PowerPoint.Presentation, ppSlide1 As PowerPoint.Slide, pptLayout As CustomLayout
   DoCmd.OpenForm "F_évo_Critères", acFormPivotChart
   'DoCmd.OpenForm "NomFormulaire"
   DoCmd.RunCommand acCmdCopy ' A CE NIVEAU J'AI UNE ERREUR ACCESS L'option copie d'un graphique Access n'est pas possible
   Set pptLayout = ActivePresentation.Slides(1).CustomLayout
   Set ppSlide1 = ActivePresentation.Slides.AddSlide(5, pptLayout)
   ppSlide1.Shapes.Paste
End Sub

[jimbolion]

marcelstan,

Alors j'ai pas nécessairement compris ce que tu souhaites faire ?

Récupérer le formulaire à l'écran et l'envoyer sur Powerpoint ? Je ne suis pas sûr que cela soit possible mais n'ayant jamais pratiqué la chose, je vais creuser un peu et voir ce qu'il est possible de faire ! Sans garantie cependant donc à bientôt

JimBolion

[marcelstan]

Récupérer le formulaire à l'écran et l'envoyer sur Powerpoint ? Je ne suis pas sûr que cela soit possible mais n'ayant jamais pratiqué la chose, je vais creuser un peu et voir ce qu'il est possible de faire ! Sans garantie cependant donc à bientôt

C'est bien ce que je souhaite faire recuperer le formulaire en mode graphique croisé dynamique à l'écran et l'envoyer sur powerpoint.

[Invité]

Bonjour

Peut-être une idée en cherchant si on peut créer une image d'un formulaire (fenêtre active) peut-être en passant par des API, et donc ensuite la copier.

C'est juste une idée au passage.

Philippe

[jimbolion]

Philippe,

Merci, je vais en effet essayer d'explorer différentes pistes ! Le plus dur à trouver c'est le temps

JimboLion

[marcelstan]

Bonjour à vous

Je ne sais pas ce qu'est les API. Peux tu philippe me passer un lien qui parle de sa??

[jimbolion]

marcelstan,


Un coup d’œil sur ce lien :

http://fr.wikipedia.org/wiki/Interface_de_programmation

JimBoLion