A voir également:
- Compteur sur l'ouverture d'un fichier PPT
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Comment réduire la taille d'un fichier - Guide
2 réponses
Ha merci beaucoup Michel,
j'ai juste des notions de VBA, car j'imagine que ce userform est à mettre sous VBA, mais je vais tâcher de l'adapter au mieux d'excel à PPT. En tout cas, merci beaucoup pour l'information,ça risque de beaucoup m'aider.
Bon weekend
Tartine
j'ai juste des notions de VBA, car j'imagine que ce userform est à mettre sous VBA, mais je vais tâcher de l'adapter au mieux d'excel à PPT. En tout cas, merci beaucoup pour l'information,ça risque de beaucoup m'aider.
Bon weekend
Tartine
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
22 août 2008 à 10:00
22 août 2008 à 10:00
Salut Tartine,
Une solution pourrait utiliser la base de registre avec un userform à placer dans un coin ou autre
et pour remettre à zéro:
ces 2 procédures tirées d'Excel (xl2K): donc peut-être des adaptations à effectuer pour ppt
Michel
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
Michel