Voila mon fichier excel se plante lorque j'appuie sur le bouton pour envoyer
un mail. Derriere le bouton c du vb avec :
******************************************************
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "xxxxx@xxxx", ("Demande de navette pour validation " & Now & "
" & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value &
"/" & ActiveSheet.Range("F17").Value & "/" & ActiveSheet.Range("F18").Value
& "/" & ActiveSheet.Range("F19").Value), True
'true pour un avis de reception
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub
**************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement lorsqu'un
mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb)
mon ecran se fige sur mon fichier excel avec en arrière plan et sablier
clignotant(un peu) l'avertissement outlook ou je dois répondre oui non
annuler mais simplement le cadre
Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le
contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage et
les manips ............je suis preneur
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Télécharge le programme ClickYes puis installe-le, il validera automatiquement le message de sécurité d'Outlook. Cordialement Pascal
"Michel" a écrit dans le message de news: %
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour envoyer un mail. Derriere le bouton c du vb avec : ****************************************************** Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy Set Wbk = ActiveWorkbook
SendKeys "{E}" Wbk.SendMail "", ("Demande de navette pour validation " & Now & " " & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value & "/" & ActiveSheet.Range("F17").Value & "/" & ActiveSheet.Range("F18").Value & "/" & ActiveSheet.Range("F19").Value), True 'true pour un avis de reception
Wbk.Close savechanges:úlse Set Wbk = Nothing
End Sub **************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement lorsqu'un mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb) mon ecran se fige sur mon fichier excel avec en arrière plan et sablier clignotant(un peu) l'avertissement outlook ou je dois répondre oui non annuler mais simplement le cadre Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage et les manips ............je suis preneur
Merci d'avance MM
Bonjour
Télécharge le programme ClickYes puis installe-le, il validera
automatiquement le message de sécurité d'Outlook.
Cordialement
Pascal
"Michel" <nospam-mmaxant@conegan.com> a écrit dans le message de news:
%23YmZqSQFFHA.208@TK2MSFTNGP12.phx.gbl...
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour
envoyer
un mail. Derriere le bouton c du vb avec :
******************************************************
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "xxxxx@xxxx", ("Demande de navette pour validation " & Now &
"
" & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value
&
"/" & ActiveSheet.Range("F17").Value & "/" &
ActiveSheet.Range("F18").Value
& "/" & ActiveSheet.Range("F19").Value), True
'true pour un avis de reception
Wbk.Close savechanges:úlse
Set Wbk = Nothing
End Sub
**************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement
lorsqu'un
mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb)
mon ecran se fige sur mon fichier excel avec en arrière plan et sablier
clignotant(un peu) l'avertissement outlook ou je dois répondre oui non
annuler mais simplement le cadre
Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le
contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage
et
les manips ............je suis preneur
Bonjour Télécharge le programme ClickYes puis installe-le, il validera automatiquement le message de sécurité d'Outlook. Cordialement Pascal
"Michel" a écrit dans le message de news: %
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour envoyer un mail. Derriere le bouton c du vb avec : ****************************************************** Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy Set Wbk = ActiveWorkbook
SendKeys "{E}" Wbk.SendMail "", ("Demande de navette pour validation " & Now & " " & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value & "/" & ActiveSheet.Range("F17").Value & "/" & ActiveSheet.Range("F18").Value & "/" & ActiveSheet.Range("F19").Value), True 'true pour un avis de reception
Wbk.Close savechanges:úlse Set Wbk = Nothing
End Sub **************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement lorsqu'un mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb) mon ecran se fige sur mon fichier excel avec en arrière plan et sablier clignotant(un peu) l'avertissement outlook ou je dois répondre oui non annuler mais simplement le cadre Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage et les manips ............je suis preneur
Merci d'avance MM
Michel
Ok merci pour ta reponse
Le pb est plus vicieux, j'ai déjà installé l'utilitaire.
Ca ne m'embête pas de répondre mais je suis obligé de faire ctrl alt suppr suivi de echap pour réactivé ma fenêtre excel. Sinon j'ai un sablier qui reste à l'écran tout le temps que je ne fais pas cette manip.
Ensuite je peux répondre, ou laisser le clickyes le faire.
Voila voila
Je pense à une instruction pour minimiser ma fenêtre mais je n'arrive pas a mette la commande docmd.minimize dans cette petite partie du code!
As-tu une idée ?
Merci d'avance
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Télécharge le programme ClickYes puis installe-le, il validera automatiquement le message de sécurité d'Outlook. Cordialement Pascal
"Michel" a écrit dans le message de news: %
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour envoyer un mail. Derriere le bouton c du vb avec : ****************************************************** Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy Set Wbk = ActiveWorkbook
SendKeys "{E}" Wbk.SendMail "", ("Demande de navette pour validation " & Now & " " & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value & "/" & ActiveSheet.Range("F17").Value & "/" & ActiveSheet.Range("F18").Value & "/" & ActiveSheet.Range("F19").Value), True 'true pour un avis de reception
Wbk.Close savechanges:úlse Set Wbk = Nothing
End Sub **************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement lorsqu'un mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb) mon ecran se fige sur mon fichier excel avec en arrière plan et sablier clignotant(un peu) l'avertissement outlook ou je dois répondre oui non annuler mais simplement le cadre Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage et les manips ............je suis preneur
Merci d'avance MM
Ok merci pour ta reponse
Le pb est plus vicieux, j'ai déjà installé l'utilitaire.
Ca ne m'embête pas de répondre mais je suis obligé de faire ctrl alt suppr
suivi de echap pour réactivé ma fenêtre excel. Sinon j'ai un sablier qui
reste à l'écran tout le temps que je ne fais pas cette manip.
Ensuite je peux répondre, ou laisser le clickyes le faire.
Voila voila
Je pense à une instruction pour minimiser ma fenêtre mais je n'arrive pas a
mette la commande docmd.minimize dans cette petite partie du code!
As-tu une idée ?
Merci d'avance
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
uAfJu2QFFHA.2180@TK2MSFTNGP10.phx.gbl...
Bonjour
Télécharge le programme ClickYes puis installe-le, il validera
automatiquement le message de sécurité d'Outlook.
Cordialement
Pascal
"Michel" <nospam-mmaxant@conegan.com> a écrit dans le message de news:
%23YmZqSQFFHA.208@TK2MSFTNGP12.phx.gbl...
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour
envoyer
un mail. Derriere le bouton c du vb avec :
******************************************************
Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy
Set Wbk = ActiveWorkbook
SendKeys "{E}"
Wbk.SendMail "xxxxx@xxxx", ("Demande de navette pour validation " & Now &
"
" & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value
&
"/" & ActiveSheet.Range("F17").Value & "/" &
ActiveSheet.Range("F18").Value
& "/" & ActiveSheet.Range("F19").Value), True
'true pour un avis de reception
Wbk.Close savechanges:úlse
Set Wbk = Nothing
End Sub
**************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement
lorsqu'un
mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans
pb)
mon ecran se fige sur mon fichier excel avec en arrière plan et sablier
clignotant(un peu) l'avertissement outlook ou je dois répondre oui non
annuler mais simplement le cadre
Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre
le
contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage
et
les manips ............je suis preneur
Le pb est plus vicieux, j'ai déjà installé l'utilitaire.
Ca ne m'embête pas de répondre mais je suis obligé de faire ctrl alt suppr suivi de echap pour réactivé ma fenêtre excel. Sinon j'ai un sablier qui reste à l'écran tout le temps que je ne fais pas cette manip.
Ensuite je peux répondre, ou laisser le clickyes le faire.
Voila voila
Je pense à une instruction pour minimiser ma fenêtre mais je n'arrive pas a mette la commande docmd.minimize dans cette petite partie du code!
As-tu une idée ?
Merci d'avance
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Télécharge le programme ClickYes puis installe-le, il validera automatiquement le message de sécurité d'Outlook. Cordialement Pascal
"Michel" a écrit dans le message de news: %
Salut a tous
Voila mon fichier excel se plante lorque j'appuie sur le bouton pour envoyer un mail. Derriere le bouton c du vb avec : ****************************************************** Private Sub CommandButton1_Click()
Dim Wbk As Workbook
ThisWorkbook.Sheets("STEFW").Copy Set Wbk = ActiveWorkbook
SendKeys "{E}" Wbk.SendMail "", ("Demande de navette pour validation " & Now & " " & ActiveSheet.Range("F15").Value & "/" & ActiveSheet.Range("F16").Value & "/" & ActiveSheet.Range("F17").Value & "/" & ActiveSheet.Range("F18").Value & "/" & ActiveSheet.Range("F19").Value), True 'true pour un avis de reception
Wbk.Close savechanges:úlse Set Wbk = Nothing
End Sub **************************************************
La securité de outlook 2003 veut que l'on affiche un avertissement lorsqu'un mail est envoyé en automatique
A l'ouverture du fichier et au premier lancement (après ca marche sans pb) mon ecran se fige sur mon fichier excel avec en arrière plan et sablier clignotant(un peu) l'avertissement outlook ou je dois répondre oui non annuler mais simplement le cadre Je fais ctrl echap ou ctrl alt supp puis echap et la je vois apparaitre le contenu du cadre et je peux enfin répondre!!!!
Etonnant non
Si qqun à une idée une parade ou autre pour éviter le simuli de plantage et les manips ............je suis preneur
