Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 11 05:54:08

LE NOUVEAU GOJIRA, C'EST POUR LUNDI. par coq

SHAREPOINT : NOUVEL ARTICLE SUR LA MISE EN PLACE DES SCOPES DANS MOSS SEARCHS par ROMELARD Fabrice

HELLO CS par julz

MSDN/TECHNET/MICROSOFT DAYS TOUR 2008 à LILLE LES 13 ET 14 OCTOBRE ! par redo

MVC PRATIQUE #07 - UN PROJET CONCRET ET LE TRANSFERT DES OBJETS AVEC LES MODELBINDERS par Rui

RE : MANIPULATION DATETIME par BrokenArrow29

RE : BESOIN D'AIDE par H_idir

RE : ECRITURE SECTEUR DISQUE EN VB NET par Galain

RE : INSTRUCTION DANS VBA par Harlem971

RE : VB6 - SETFOCUS ET FORMES MODALES par Kristof_Koder

+ de logiciels à télécharger

1 259 619 membres
53 nouveaux aujourd'hui
14 408 membres club

Trouver une ressource

Trouvez une ressource parmi 38 820 codes, 1 185 586 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

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 : 9 251

Auteur : JeremyYa

Ecrire un message privé

Note :
Aucune note

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

INTERCEPTER DES APPELS DE METHODE (SURCHARGE DE VTABLE) par Renfield

CYBER COUNTER V2 par makaveli244

OUVRIR DES DOCUMENTS DANS LA MÊME INSTANCE DE L'APPLICATION ... par ShareVB

CONTRÔLE PCANYWHERE par Douns

LIEN DDE EN VB2005 par claudetom

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 !