activer un compteur jour+1 sur un pps

**crazyone** · 20/05/2008, 11h29

bonjour a tous

je voudrais inclure un compteur qui ce genere de +1 chaque jours
dans un pps mais je ne sais pas du tout comment faire
j'ai essayer avec un lien excels mais ca ne fonctione pas

merci de m'aider

Invité · 20/05/2008, 14h15

Bonjour

On va essayer de faire quelque chose avec tes informations

Dans un module standard, il faut déclarer les constantes suivantes

Code :

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

1
2
Public Const cstDte As Date = #5/19/2008#
Public Const cstCompteur As Long = 0

Ce qui va nous donner la date de départ (car tu veux un incrément par jour) et l'initialisation du compteur.

Ensuite dans ce même module on va créer la routine suivante :

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
Public Sub JourSuivant()
 
    Dim lngCompteur As Long
    ' ===== on test si le compteur est à 0 =====
    If DateDiff("d", Date, cstDte) = 0 Then
        ' on est au premier jour
        lngCompteur = 0
    Else
        lngCompteur = cstCompteur + DateDiff("d", cstDte, Date)
    End If
 
 
    Dim shp As Shape
 
    ' on détruit la zone de texte qui visualise le compteur
    On Error Resume Next
    ActivePresentation.Slides(1).Shapes("Compteur").Delete
    ' on crée une zone de texte
    Set shp = ActivePresentation.Slides(1).Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 25)
    With shp
        .Name = "Compteur"
        .TextFrame.TextRange.Text = lngCompteur
    End With
End Sub

Explications :

On test si le jour en cours est le jours de départ, si oui on met le compteur à 0, si non, on ajoute au compteur la différence entre les deux dates (car tu veux +1 par jour).

Ensuite on va détruire la zone de texte qui se nomme Compteur (le On Error est pour la première fois).

Dans cette zone, on écrit le compteur.

pour lancer cette procédure tu peux utiliser ce qu'il y a dans cette discussion http://www.developpez.net/forums/sho...d.php?t=530003 au 4 ème message.

Est-ce que cela semble convenir ?

Starec

**crazyone** · 20/05/2008, 16h01

merci de ta reponse rapide

le probleme est que je suis tres novice et je ne sait pas du tout a quoi je dois ratacher le code que tu m' a donner.

je voudrais vraiment n'utiliser que powerpoint ?
dois-je mettre une textbox dans le silde?

merci encore.

Invité · 20/05/2008, 17h13

Bonjour

Cela ne va pas être évident si tu es novice.

Quelles sont tes connaissances en VBA ?

Détail un peu plus le but de la manœuvre (à quoi cela sert, et comment tu veux le voir), pour voir si les membres peuvent te trouver une solution plus simple.

Starec

**crazyone** · 21/05/2008, 11h45

Bonjour,

Le but de ma manœuvre est simple.
Je dois afficher un compteur dans le texte d’un slide et dans lequel sera stocké un nombre de jour sans incident.
Au départ, je comptais partir en faisant un copier-coller spécial d’une cellule Excel sous Power Point afin d’avoir la possibilité de remettre à jour ce compteur si un incident se produisait.
Cela fonctionne à peu prêt et quand j’ouvre Power Point il me demande si je veux mettre à jour ou non. Serait-il possible d’automatiser cette validation ? Comment créer un compteur qui s’incrémente de 1 automatiquement tout les jours (et sans ouvrir le fichier Excel en question) ?

De plus, je fais tourner mes Power Point en boucle en créant un pps.
Une fois ceci-fait il ne se remet plus à jour sauf si je le recrée. Est-il possible de mettre à jour des données dans un pps sans le recréer ?? Si oui comment ??

Enfin, une question qui n’a rien à voir, est-il possible d’avoir un compteur qui s’incrémente dans un fichier Excel à chaque impression. L’objectif étant qu’à chaque fois qu’on imprime un document (et seulement à l’impression) son identifiant soit incrémenté de 1.

Si je n’ai pas été très clair n’hésitez pas à me demander des précisions.
Merci beaucoup pour votre aide.

Invité · 22/05/2008, 06h25

Bonjour

Je commence à cerner ton problème, mais celui-ci est vaste.

Envoyé par crazyone

Je dois afficher un compteur dans le texte d’un slide et dans lequel sera stocké un nombre de jour sans incident.
Au départ, je comptais partir en faisant un copier-coller spécial d’une cellule Excel sous Power Point afin d’avoir la possibilité de remettre à jour ce compteur si un incident se produisait.
Cela fonctionne à peu prêt et quand j’ouvre Power Point il me demande si je veux mettre à jour ou non. Serait-il possible d’automatiser cette validation ? Comment créer un compteur qui s’incrémente de 1 automatiquement tout les jours (et sans ouvrir le fichier Excel en question) ?
De plus, je fais tourner mes Power Point en boucle en créant un pps.
Une fois ceci-fait il ne se remet plus à jour sauf si je le recrée. Est-il possible de mettre à jour des données dans un pps sans le recréer ?? Si oui comment ??

La solution que je vois c'est à partir du principe de destruction et de création d'une zone, c'est de récupérer l'information dans Excel, mais plus long en traitement.

Enfin, une question qui n’a rien à voir, est-il possible d’avoir un compteur qui s’incrémente dans un fichier Excel à chaque impression. L’objectif étant qu’à chaque fois qu’on imprime un document (et seulement à l’impression) son identifiant soit incrémenté de 1.

Cela doit être possible, mais quel document le fichier PPT ?

En résumant , c'est traiter par automation le transfert de données entre Excel et PPT dans les deux sens.

Tu trouveras de nombreux exemples de passage de données entre Excel et les autres application Office, comme ici : http://powerpoint.developpez.com/faq...excelLuDansPPT
Cela te permet d'interroger un fichier Excel et de récupérer l'information, et avec le principe de destruction et de création, d'avoir une mise à jour (sans message).

OK ?

Starec