Outil de réservation (filtre dynamique, envoi mail, test planning)

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Fraancis
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 21 février 2018
Version d'Excel : 2010 FR

Message par Fraancis » 27 février 2018, 14:33

Re,

Avancée de l'outil :
- Ajout des DatePicker (plus qu'à faire la vérification entre les 2 dates) ===> le plus dur ::(

- Ajout de l'envoi du mail : OK (néamoins demande la validation de l'envoi par la boite mail de l'émetteur avant d'envoyer, dans l'idéal, cela ne devrait pas)
Avatar du membre
LouReeD
Passionné d'Excel
Passionné d'Excel
Messages : 5'442
Appréciations reçues : 209
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Téléchargements : Mes applications
Contact :

Message par LouReeD » 27 février 2018, 19:24

Bonsoir,

avait vous essayer quelque chose du genre :
Application.DisplayAlerte = False
Mais à ce moment là ce serait peut être la messagerie qu'il faudrait "cibler".

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
_______________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
Fraancis
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 21 février 2018
Version d'Excel : 2010 FR

Message par Fraancis » 28 février 2018, 12:05

Effectivement, c'est le " .DisplayAlerts = False " qu'il me faut. J'ai essayé de le placer dans mon code (dans le With End With, en dehors), cependant soit il fonctionne mais il m'affiche une erreur dans le débogeur, soit il ne fonctionne pas et il m'affiche une erreur dans le débogeur.

Une idée pour le placer exactement ?
' ENVOI DE L'EMAIL DE RESERVATION

    Dim oBjMail
    'Dim Nom_Fichier As String
   
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
    
    With oBjMail
        .To = "adressemail@mailfr" '  le destinataire
        '.CC = "" ' en copie
        .Subject = "Réservation d'un poste"          ' l'objet du mail
        .body = "Bonjour ! Une personne a réservé un poste !" 'le corps du mail ..son contenu"
        .send
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
    Unload Formulaire
End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message