Bonjour à tous,
Je ne suis pas très fort dans VBA, mais j'ai trouvé sur le net un bout de code qui permet aux utilisateurs de remplir un tableau excel avec ce dont ils ont besoin, et en cliquant sur le bouton "envoyer" que j'ai ajouté, je reçois leur commande sur ma boite. Ca fonctionne parfaitement.
Ceci dit, quand on clique sur le bouton envoyer, meme si ca marche, il ne se passe rien et l'utilisateur pourrait croire que ca n'a pas fonctionné et cliquer 10 fois dessus et ensuite moi je reçois 10 fois la commande (lol).
Je souhaiterais ajouter une msgbox qui dit "Merci !" et qu'ensuite le bouton devienne grisé afin que l'on ne puisse pas re-cliquer dessus une seconde fois.
Voici mon code ci-dessous, est-ce que quelqu'un peut m'aider
Milles mercis !
Sub SendEmail()
'
' SendEmail Macro
'
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "
xxx.xxx@xxx.ch"
.CC = "
xxxxxx.xxxxxx@xxx.ch"
.Subject = " Commande de matériel"
.Body = Range("F7").Value & vbCrLf & vbCrLf _
& Range("F9").Value & vbCrLf & vbCrLf _
& Range("F11").Value & vbCrLf & vbCrLf _
& Range("F13").Value & vbCrLf & vbCrLf _
& Range("F15").Value & vbCrLf & vbCrLf _
& Range("F17").Value & vbCrLf & vbCrLf _
& Range("F19").Value & vbCrLf & vbCrLf _
& Range("F21").Value & vbCrLf & vbCrLf _
& Range("F23").Value & vbCrLf & vbCrLf _
& Range("F25").Value & vbCrLf & vbCrLf _
& Range("F27").Value & vbCrLf & vbCrLf _
& Range("F29").Value & vbCrLf & vbCrLf _
& Range("F31").Value & vbCrLf & vbCrLf _
& Range("F33").Value & vbCrLf & vbCrLf _
& Range("F35").Value & vbCrLf & vbCrLf _
& Range("F37").Value & vbCrLf & vbCrLf _
& Range("F39").Value & vbCrLf & vbCrLf _
& Range("F41").Value
.send
End With
End Sub