Re:=> DEMO ADO Export Excel > Access ValNum/Date/Null
Bonsoir Steph, Michel
Ah oui je corrobore tout à fait les propos de mon ami Michel, sur ce coup là tu me fais même un peu peur Steph, car il est quand même important d'avoir quelques bases en programmation lorsque l'on déploie des applications s'appuyant sur ADO... (ActiveX Data Object)
Ta dernière question, non pas de par le fait qu'elle fait penser que tu ne cherches pas vraiment par toi même et que tu attends une réponse toute faite, laisse surtout présager de grosses lacunes dans tes connaissances...
Car là, ta question, c'est tout de même le tout premier exercice que l'on s'applique à faire en Programation, une Simple Message Box renvoyant des Variables et des Strings...
Je comprends bien que ton patron où tes collègues attendent une application associative Excel/VBA/Access, mais il devrait avoir certainement peur si ils savaient qu'en fait tu ne maîtrises pas beaucoup les codes que tu emploies...
Je te conseille de t'acheter un bouquin sur le VB / VBA pour te donner certaines bases car il ne suffit pas de copier/coller des bouts de code sans en comprendre ne fusse que la moitié...
Mais comme on n'est pas des mauvais bougres sur XLD, ni Michel non plus dont la patience n'a d'équivalent que ses compétances, alors pour une message Box avec une String de ton choix c'est ceci :
Sub MaPremiereMsgBoxDynamic()
Dim MyString As String
Dim MyDate As String
Dim MyName As String
Dim MyOS As String
MyName = Application.UserName
MyString = 'Bonjour, ' & MyName & ' Nous sommes le'
MyDate = Format(Date, 'DDDD DD MMMM YYYY')
MyOS = Application.OperatingSystem
MyXl = Application.Version
MsgBox MyString & vbCrLf & MyDate & vbCrLf & 'vous travaillez sous ' & MyOS & ' Excel N° ' & MyXl
End Sub
Bonne Soirée et Bonnes Fêtes
[ol]@+Thierry[/ol]
PS no color dans une MsgBox Standard