Discussion :

[simouss]

Bonjour à tous,

je diffuse un document en pps sur un serveur intranet et je souhaiterai connaître le nombre de lecteurs.
J'ai trouvé comment insérer un compteur sur une page web mais pas sur un pps, or c'est ce que je voudrais car après avoir cliqué sur le lien (situé sur la page web) cela ouvre le diaporama dans une page web... alors que je souhaite garder l'affichage diaporama (plein écran)!!

Je cherche mais ne trouve pas de solution; si vous avez quelque chose qui peut fonctionner, je suis preneur!!
ps: je ne maîtrise pas du tout le vba et autre php donc si je dois passer par là, pas de soucis mais allez y doucement, merci...

Merci d'avance!
simouss

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Je n'ai aucune connaissance en Intranet, donc

Comme c'est par un intermédiaire (Intranet) que tu veux compter, je te conseille de voir si on ne peut mettre un compteur sur le lien qui lance le téléchargement ou la visu sur celui-ci.

Je ne pense pas que tu trouveras la réponse ici, mais sur la partie PHP ou Web du forum, c'est plus leur domaine.

Philippe

[simouss]

Bonjour philippe,

merci pour la réponse...
je vais voir si qqun a une réponse sur les sujets web et php!

bonne fin de journée

simouss

[ouisansdoute]

Bonjour,

Il y a quelques temps, pour tracer les interventions sur un fichier excel, j'avais mis une macro qui s'exécutait à chaque ouverture de mon fichier et alimentait un fichier txt avec le nom de l'utilisateur et l'heure d'ouverture.
Ca doit être possible avec une macro sur le diaporama qui s'exécute à l'ouverture du fichier.
C'est un peu vague mais si tu veux que je recherche dis le moi.

[Senji]

salut,

j'avais lu ça quelque part ( vu qu'on a une *$@## de secrétaire lol) et la solution était d'adapter ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
 
Une solution pourrait utiliser la base de registre avec un userform à placer dans un coin ou autre
 
 
 
Option Explicit
 
Sub auto_Open()
Dim visit
 
 
     ' Lit la valeur dans la base de registre
     visit = GetSetting(appname:="demo", section:="visiteurs", key:="Nombre")
 
     ' Si aucune valeur n'est présente dans la base de registre ...
     If visit = "" Then
          'on affecte la valeur 1 à la variable visit (première visite)
          visit = 1
      Else
        ' sinon, on incrémente le Nbre de visites
    visit = visit + 1
    End If
     ' Ecrit la nouvelle valeur visit dans la base de registre
     SaveSetting appname:="demo", section:="visiteurs", key:="Nombre", setting:=visit
 
    ' indique le nombre de visites dans userform "visites" avec label "compteur"
    With visites
    .compteur.Caption = visit
    .Show
    End With
 
End Sub
 
 
 
et pour remettre à zéro:
 
Sub Raz()
     ' Effacement de la clé dans la base de registre
     On Error Resume Next
     DeleteSetting "demo"
End Sub
 
 
 
 
ces 2 procédures tirées d'Excel (xl2K): donc peut-être des adaptations à effectuer pour ppt

je ne sais plus sur quel site mais j'avais gardé le code dans une de mes clés usb.

bye