Bonjour,

Je bosse avec Powerpoint version 2016 et mon code principal est sur un SlideLayout(template de ppt).
J'ai sur ce slide des Textbox qui, après un événement bouton "clic", sont enregistrées sur un fichier texte. Je réutilise ensuite ces informations sur excel pour faire des statistiques.

Lorsque je projette ce slide, je suis invité a rentrer des informations via des textbox sur ce slide et j'ai choisis d'aider l'utilisateur pour le choix d'une date .
Pour la date, j'ai décidé d'appeler un UserForm avec dedans un controle MonthView et un Bouton(close)
Nom : Image.jpg
Affichages : 59
Taille : 30,3 Ko
Lorsque je lande la présentation, je clic bien sur le bouton qui ouvre le UserForm, je choisis ma date et je ferme le UserForm mais je ne sais pas et n'arrive pas a récupérer cette variable dans le SlideLayoute principal.

Je ne comprends pas comment récuperer le "Dateclicked" dans le UserForm sur le fichier principal et par exemple remplir un textbox ou un label avec cette valeur.
Ah oui aussi j'ai testé si cela fonctionne avec une MsgBox dans le UserForm et j'ai bien la date.

Voici le code pour le UserForm Calendar
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
 
Unload Me
 
End Sub
 
Private Sub MyCalendar_DateClick(ByVal DateClicked As Date)
 
MsgBox DateClicked
 
End Sub
et le code présent dans le Layout (template)

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
 
Public TbR1 As String
Public TbR2 As String
Public TbR3 As String
Public TbR4 As String
Public TbR5 As String
Public TbR6 As String
Public TbR7 As String
Public TbR8 As String
Public TbR9 As String
Public TbR10 As String
Public TbR11 As String
Public TbR12 As String
Public date_du_jour As Date
Public NomFichier As String
'Public DateClicked As Date
 
 
Private Sub CommandButton1_Click()
 
Calendar.Show False
 
End Sub
 
Sub Envoi1_Click()
 
  TbR1 = ""
  TbR2 = ""
  TbR3 = ""
  TbR4 = ""
  TbR5 = ""
  TbR6 = ""
  TbR7 = ""
  TbR8 = ""
  TbR9 = ""
  TbR10 = ""
  TbR11 = ""
  TbR12 = ""
 
 
'TbR1 = "" item
TbR2 = TextBoxType.Value 'Type
TbR3 = TextBoxPiece.Value 'Piece
TbR4 = TextBoxCompagnie.Value 'Compagnie responsabilité
TbR5 = TextBoxQui.Value 'who?
TbR6 = Format(Now, "dd/mm/yyyy") 'date du jour
TbR7 = UserForm.DateClicked.Value ' Date de fermeture du problème
TbR8 = TextBoxPriorite.Value 'Priorité
TbR9 = TextBoxStatus.Value 'Status
TbR10 = TextBoxAction.Value 'Action
'TbR11 = ThisWorkbook.Name ' nom du fichier et lien Hypertexte
TbR12 = TextBoxCommentaire.Value 'Commentaire
 
 
 
Open "ACTIONPLAN.txt" For Append As #1 ' Ouvre le fichier en écriture.
Print #1, TbR1; ";"; TbR2; ";"; TbR3; ";"; TbR4; ";"; TbR5; ";"; TbR6; ";"; TbR7; ";"; TbR8; ";"; TbR9; ";"; TbR10; ";"; TbR11; ";"; TbR12 ' Écrit le texte dans le fichier.
 
 
 
        TextBoxType.Value = "" 'Type
        TextBoxPiece.Value = "" 'Piece
        TextBoxCompagnie.Value = "" 'Compagnie responsabilité
        TextBoxQui.Value = ""  'who?
        'date_du_jour = ""  'date du jour
        TextBoxCloseDate.Value = "" ' Date de fermeture du problème
        TextBoxPriorite.Value = ""  'Priorité
        TextBoxStatus.Value = "" 'Status
        TextBoxAction.Value = "" 'Action
        NomFichier = "" ' nom du fichier et lien Hypertexte
        TextBoxCommentaire.Value = "" 'Commentaire
 
 
 
 'SlideShowWindows().View.Next
 'SlideShow.View.Next
 SlideShowWindows(Index:=1).View.Next
Close #1 ' Ferme le fichier.
 
End Sub 'date d'aujourdhui
Voila et merci pour vos précieuses explications.

Bonne journée