begin process at 2010 02 09 23:28:42
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

OLE, DDE, Automation

 > OUVERTURE D'UN FICHIER PPT DEPENDANT D'UN ENREGISTRAMENT SOUS ACCESS (SANS OLE)

OUVERTURE D'UN FICHIER PPT DEPENDANT D'UN ENREGISTRAMENT SOUS ACCESS (SANS OLE)


 Information sur la source

Note :
Aucune note
Catégorie :OLE, DDE, Automation Niveau :Débutant Date de création :19/02/2002 Date de mise à jour :19/02/2002 16:47:11 Vu :10 062
Auteur : JeremyYa

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

 Description

Quand on veut lier un nombre important de fichiers Powerpoint à des enregistrements dans un formulaire Access, l'utilisation
d'objet dépendant OLE devient fastidieuse.
Il faut, pour utiliser le code comme procédure évenementielle d'un bouton de commande, avoir défini un champ "Chemin",
ou un champ "Nom_du_fichier" puis un champ "Chemin" défini dans une requête comme égal à C:\...\...\[Nom_du_Fichier].  
Les lignes en vert ne sont pas des commentaires mais font bien partie du code; désolé, c'est mal passé!!!

Source

  • Private Sub Commande243_Click()
  • Dim pptobj As Object
  • Dim holder As Long, present As Object
  • Dim NomFichier As String
  • NomFichier = Me!Chemin
  • MsgBox "N'oubliez pas de refermer PowerPoint après la lecture du document"
  • holder = Shell("c:\Program Files\Microsoft Office\Office\Powerpnt.exe")
  • Set pptobj = CreateObject("PowerPoint.Application")
  • Set present = pptobj.Presentations.Open(Me!Chemin)
  • End Sub 
Private Sub Commande243_Click()

Dim pptobj As Object
Dim holder As Long, present As Object
Dim NomFichier As String
NomFichier = Me!Chemin

MsgBox "N'oubliez pas de refermer PowerPoint après la lecture du document"

holder = Shell("c:\Program Files\Microsoft Office\Office\Powerpnt.exe")


Set pptobj = CreateObject("PowerPoint.Application")
Set present = pptobj.Presentations.Open(Me!Chemin)

End Sub

 Conclusion

En théorie ça marche, si des gens sont intéressés, j'ai des codes similaires pour Word et Excel.  


 Sources du même auteur

OUVRIR N'IMPORTE QUEL FICHIER PAR RECONNAISSANCE DE SON EXTE...
Toutes les sources de JeremyYa

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) EXCELDOTNET : PROGRAMMER EXCEL EN DOTNET SANS VBA NI VSTO par Patrice99
Source avec Zip Source avec une capture AJOUTEZ VOTRE COMPLÉMENT À VISUAL BASIC 6 SANS ÊTRE CONTRAIN... par VBsearch
Source avec Zip PILOTER ACROBAT READER DEPUIS EXCEL ET VBA par jpduf
Source avec Zip Source avec une capture INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE) par Renfield
Source avec Zip Source avec une capture CYBER COUNTER V2 par makaveli244
Toutes les sources de la catégorie OLE, DDE, Automation

Commentaires et avis

Commentaire de Viviane le 18/03/2002 21:24:06

Je suis très interressée par le code concernant Excell.
J'ai besoin de lier un ou plusieurs fichiers Excell (Comme piéces jointes) à chaque enregistrement Access.
J'ai essayé avec un richtext et un champ OLE.
De plus je ne sais pas quel type de champs déclarer sous Access pour les charger (binaire, memo ??)

Merci 1000 fois pour votre aide !

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Archos 5 (250 Go)
Entre 440€ et 440€

Visiter le guide achat

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
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,312 sec (4)

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)