Discussion :

[emazes]

Bonjour,

J'ai un petit problème :

J'ai fait un formulaire de saisi ou je demande à l'utilisateur d'aller chercher un fichier (Powerpoint), cela fonctionne bien j'importe le chemin avec le nom du fichier.

Apres j'affiche dans une liste toutes les données du formulaire en laissant la possibilité à l'utilisateur de cliquer sur le chemin et le nom du fichier pour l'ouvrir directement.
Et la ca ne marche plus.

J'ai essayer de creer ce chemin+nom en lien Hypertexte.
si j'édite a nouveau le chemin, j'efface une lette et la réecrit puis valide, a ce moment la le lien fonctionne !

Quelqu'un a t il une methode simple pour aller chercher et donner la possibilité d'ouvrir un fichier ?

merci d'avance

[Yotho]

regarde si tu n'as pas un problème de raffraichissement !!!

[shwin]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim var
var = Shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE C:\WINDOWS\Bureau\test.ppt", 1)

[emazes]

Merci pour vos réponses !

Yotho : Non ce n'est pas un problème de rafraîchissement (je viens d'essayer carrément de sortir en relancer l'appli)

shwin : Ta méthode fonctionne bien mais sais tu comment lancer powerpoint en diaporama directement ?
et le danger de ce système est que l'executable peut ne pas se trouver dans le meme répertoire (pour moi il etait dans OFFICE10... )

Sinon existe-t-il des objet VB pour manipuler des fichier powerpoint ?

++

[shwin]

crée toi un ficheir .pps et essayer douvrir!

[norac]

tu enregistres le ppt en pps au lieu de ppt et il se lance automatiquement

[shwin]

il se lance automatiquement oui, mais avec un shell, si tu fais juste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var = shell("tonfichier.pps",1)

cela ne marche pas et si tu le lance a partir de powerpoint.exe, ca ne lance pas en diaporama

[emazes]

lol

En fait ce sont des fichiers auquel je fais référence, mais qui ne seront pas créés pas moi ... Donc ils seront seulement en PPT ...

merci quand même...

[Faw]

Une idée toute bête : Et si tu mettait le Focus sur une autre zone de ton formulaire quand ton programme quitte le diaporama. Je crois que l'événement associé est " Sur Entrée".

[FRED.G]

J'ai essayer de creer ce chemin+nom en lien Hypertexte.
si j'édite a nouveau le chemin, j'efface une lette et la réecrit puis valide, a ce moment la le lien fonctionne !

Quelqu'un a t il une methode simple pour aller chercher et donner la possibilité d'ouvrir un fichier ?

Effectivement il existe des méthodes plus simples... Shell en fait partie mais il y a aussi automation.

Cependant une question : quand tu ouvres ton fichier grâce au lien hypertext, s'ouvre-t-il en diaporama ?

[emazes]

Aussi bizarre que cela puisse le paraître, OUI.

Pour l'instant je fais donc comme suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub txtFichier_Click()
    Dim var
    Dim str
    str = "C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE " _
            & Me.txtFichier.Value
    var = Shell(str, 1)
End Sub

Mais le fichier ne s'ouvre pas en diaporama, mais c'est pas trop grave...

Comment fonctionne Automationpar rapport au Shell

[M@ToU]

Et tu peux pas passer un argument à PowerPoint pour qu'il le lance en diaporama comme ca ? (vu k'en gros tu le lances en ligne de commande...)

[emazes]

Oui mais quel argument :

Personnellement je ne sais pas

merci ++

[FRED.G]

Comment fonctionne Automationpar rapport au Shell

Automation permet de lancer et de piloter PowerPoint via le code vba d'access...
Mais avant de regarder du côté d'automation, j'aurais bien aimé étudier les 2 autres possibilités :

Fonction shell : la question est de savoir si on peut passer un argument au démarrage...

Lien hypertext : ça c'est très facile à mettre en place mais il faudrait être sûr que ça s'ouvre toujours en mode diapo...

Concernant la méthode Lien hypertext, il faudrait que tu expliques mieux ce que tu as fait pour l'instant :

J'ai fait un formulaire de saisi ou je demande à l'utilisateur d'aller chercher un fichier (Powerpoint), cela fonctionne bien j'importe le chemin avec le nom du fichier.

Apres j'affiche dans une liste toutes les données du formulaire en laissant la possibilité à l'utilisateur de cliquer sur le chemin et le nom du fichier pour l'ouvrir directement.
Et la ca ne marche plus.

J'ai essayer de creer ce chemin+nom en lien Hypertexte.
si j'édite a nouveau le chemin, j'efface une lette et la réecrit puis valide, a ce moment la le lien fonctionne

là je n'arrive pas bien à me représenter ce que tu as fait Peux-tu être plus clair ou plus explicite ?

[emazes]

FRED.G merci de ta réponse.

Je vais essayer d'expliquer un peu mieux (mais c pas si simple à écrire )
Au départ j'ai un formulaire ou je demande à l'utilisateur diverses informations, dont un fichier.
Quand il valide ce formulaire une liste est mise à jour, Ou il peut cliquer sur le lien du fichier.
Mais quand je clique juste aprés la validation du formulaire rien ne se passe => je vien de m'apercevoir qu'il ouvre en fait une barre d'outils WEB !!.

Si j'édite a nouveau le formulaire et modifie le chemin du fichier en supprimant une lettre et en la réecrivant (ou simplement en modifiant directement dans la table) le fichier s'ouvre bien et en diaporama.

Dans ce cas j'utilise un champs hypertexte pour le nom (+chemin) du fichier (j'ai aussi essayer un champs memo ou string + une zone de texte mise en hypertexte).

J'espère que c'est un peu plus clair pour toi et merci du temps que tu passes dessus.
Au pire je resterais sur la solution du Shell et je n'ai pas l'impression que je puisse ouvrir mes fichier en diaporama ...

Salutations

[FRED.G]

Pour la méthode du lien hypertext, je te propose la chose suivante :

1) Dans ta liste de fichiers, crée une colonne indiquant le chemin complet du fichier incluant son et son extension. (Mais pas avec des données type Hypertext, juste des données String)
2) Tu peux masquer cette colonne si tu veux, du moment que sais y faire référence par le code...
3) Sur l'événement doubl clic de ta liste tu place le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Me!NomDeTaListe
If not (IsNull(.Value)) then FollowHyperlink .Value
End with

Si la colonne contenant l'adresse des fichier n'est pas la colonne liée de ta liste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Me!NomDeTaListe
If not (IsNull(.Column(NuméroDeLaColonne))) then FollowHyperlink .Column(NuméroDeLaColonne)
End with

Pour la fonction shell, je te laisse chercher si un argument existe...

[emazes]

Merci beaucoup j'ai de quoi resoudre mon problème avec plusieurs solutions .
Je n'ai plus qu'a choisir.
Je posterais un complément si j'approfondie la fonction Shell

Merci encore

bonne journée

[shwin]

jai trouver comment le lancer automatiquement en diaporama

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim var
var = Shell("C:\Program Files\Microsoft Office\Office\POWERPNT.EXE C:\WINDOWS\Bureau\PPT2004.ppt", vbNormalFocus)
AppActivate var
SendKeys "{f10}"
SendKeys "{d}"
SendKeys "{s}"

[emazes]

Bonjour.

Merci pour ton message, je viens juste de le voir, désolé pour la réponse tardive.

Aussi bizarre que ca puisse le paraître je n'arrive pas faire marcher ta méthode.
il ouvre bien powerpoint (pas en diaporama)

et de temps en temps il bloque sur AppActivate avec le message d'erreur :
Erreur d'execution '5'
Argument ou appel de procédur incorrect

Faut-il installer des références complémentaire ?
J'ai essayer Microsoft PowerPoint 10.0 Object Library ... mais sans succés.