Ouvrir n'importe quel fichier par reconnaissance de son extension

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 426 fois - Téléchargée 49 fois

Contenu du snippet

Je recherche un code du style de celui déposé jadis par Darty et qui merde avec VB6.
Il me servira à créer un seul bouton de commande, dans un formulaire ACCESS, permettant d'ouvrir plusieurs sortes de fichiers (Word,
Excel, PowerPoint) sans OLE et uniquement en se basant sur l'extension.
Si vous avez des infos ou une autre idée pour réaliser la même chose, merci de me les faire parvenir.

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
lundi 7 juin 2010
Statut
Membre
Dernière intervention
11 juillet 2010

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
Messages postés
1
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
20 février 2002

Salut. Tu peux peut être utiliser le composent "Microsoft Scripting Runtime".
A+
Messages postés
2
Date d'inscription
mardi 19 février 2002
Statut
Membre
Dernière intervention
20 février 2002

OK désolé BillyBoy ...wafwaf aussi...
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002

alors dégage, c'est bien compris ? :))
Messages postés
13
Date d'inscription
vendredi 29 juin 2001
Statut
Membre
Dernière intervention
20 mars 2002

Heille!!! C'est dans le forum que l'on pose les questions pas ici.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.