lire fichier ds repertoire courant

[Leeloo]

Bonjour,

Petit résumé sur mon pb...

L'autre fois, je cherchais à ouvrir, depuis ma macro, des applications powerpoint en cliquant sur les boutons de commande correspondants.

Grâce à une aide précieuse, j'ai pu réaliser ce que je voulais en faisant
Dim f
f = Shell("POWERPNT.EXE""W:\nom complet du chemin pour accéder au fichier à ouvrir....\fichier.ppt""", 1)

L'inconvénient que j'ai découvert à cette méthode, c'est évidemment qu'en mettant ma macro sur CD, celle ci ,ne marche pas chez tout le monde...

J'aimerais savoir si l'un d'entre vous connait un moyen pour demander à ma macro d'ouvrir mes fichiers powerpoint en lui demandant de lire automatiquement dans le répertoire courant.. (je ne sais pas si je suis très claire, désolée...)

Voilà, je vous remercie d'avance pour ceux qui sauront me donner un coup de main...
A+

 

[Pascal]

Salut Leeloo,

Je ne sais pas si c'est ce que tu veux, mais tu peux aller chercher le répetoire par défaut qui se trouve dans les options d'Excel(Outils/options puis onglet "Général".
Ca donnerait donc :

dossier = Application.DefaultFilePath
f = Shell("POWERPNT.EXE " + dossier + "\fichier.ppt", 1)

Bon courage,

Pascal

 

[Leeloo]

merci Pascal pour ton aide, j'étudie cette pensée (je sais cette blague est nulle........) et je te tiens au courant...

 

[Leeloo]

oui à priori, ça fonctionne bien, merci bcp!