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)
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
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 Private Sub CommandButton1_Click() Unload Me End Sub Private Sub MyCalendar_DateClick(ByVal DateClicked As Date) MsgBox DateClicked End Sub
Voila et merci pour vos précieuses explications.
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
Bonne journée
Partager