Bonjour,
Je souhaiterai faire un copier d'une valeur entrée dans une inputbox pour la coller dans une zone de texte.
Merci
Bonjour,
Je souhaiterai faire un copier d'une valeur entrée dans une inputbox pour la coller dans une zone de texte.
Merci
Salut
Tu programmes avec quel éditeur, VBA (...), VB6 et antérieur, VB.net ou VBScript HTA
Comment savoir si l'on utilise VBA ou VB6 ?
VBA Access
VBA Excel
VBA Word
VBA Outlook
VBA PowerPoint
VB.Net (VB Express, VB 2003 et supérieur)
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → Ma page perso sur DVP ← ← 👈
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144 Sub CG_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "c-girault@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub CD_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "c-dumas@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub CB_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "c-bureau@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub VM_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "v-mollier@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub YB_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "y-branchu@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub Technique_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "support@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub Sub Commercial_CLick varEntreprise = inputbox("Renseigner le nom du client, le numéro de téléphone et le motif") if varEntreprise <> "" then Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.to = "devis@profiltech.local" MonMessage.Subject = "Appels téléphoniques" ' Le corps du message est divisé en 2 lignes : Corps = "Bonjour," ' Chr(13) & Chr(10) = Touche ENTER Corps = Corps & Chr(13) & Chr(10) Corps = Corps & "Vous avez reçu 1 nouvel appel téléphonique. Merci de le consulter." & Chr(10) & Chr(10) MonMessage.body = Corps & varEntreprise MonMessage.send Set MonOutlook = Nothing else exit sub end if End Sub
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager