OUVRIR N'IMPORTE QUEL FICHIER PAR RECONNAISSANCE DE SON EXTENSION
NitRic_
Messages postés13Date d'inscriptionvendredi 29 juin 2001StatutMembreDernière intervention20 mars 2002
-
19 févr. 2002 à 17:42
jatojaouhar
Messages postés2Date d'inscriptionlundi 7 juin 2010StatutMembreDernière intervention11 juillet 2010
-
9 mars 2011 à 00:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
jatojaouhar
Messages postés2Date d'inscriptionlundi 7 juin 2010StatutMembreDernière intervention11 juillet 2010 9 mars 2011 à 00:05
salut .Pour ouvrir de la base de données il ne veut pas
Private Sub Command7_Click()
Set pptobj = CreateObject("PowerPoint.Application")
pptobj.WindowState = ppWindowNormal
pptobj.Presentations.open ("c:\tp1.ppt")
pptobj.Visible = True
End Sub
cs_Crang
Messages postés1Date d'inscriptiondimanche 6 janvier 2002StatutMembreDernière intervention20 février 2002 20 févr. 2002 à 17:59
Salut. Tu peux peut être utiliser le composent "Microsoft Scripting Runtime".
A+
JeremyYa
Messages postés2Date d'inscriptionmardi 19 février 2002StatutMembreDernière intervention20 février 2002 20 févr. 2002 à 09:00
OK désolé BillyBoy ...wafwaf aussi...
cs_Pekinio
Messages postés161Date d'inscriptionmercredi 11 avril 2001StatutMembreDernière intervention10 mars 2002 19 févr. 2002 à 18:30
alors dégage, c'est bien compris ? :))
NitRic_
Messages postés13Date d'inscriptionvendredi 29 juin 2001StatutMembreDernière intervention20 mars 2002 19 févr. 2002 à 17:42
Heille!!! C'est dans le forum que l'on pose les questions pas ici.
9 mars 2011 à 00:05
Private Sub Command7_Click()
Set pptobj = CreateObject("PowerPoint.Application")
pptobj.WindowState = ppWindowNormal
pptobj.Presentations.open ("c:\tp1.ppt")
pptobj.Visible = True
End Sub
20 févr. 2002 à 17:59
A+
20 févr. 2002 à 09:00
19 févr. 2002 à 18:30
19 févr. 2002 à 17:42