Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nospam@neuf.fr
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Exce l
après envoie du message
Un idée ??
Merci
--
Cordialement
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Exce l
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Exce l
après envoie du message
Un idée ??
Merci
--
Cordialement
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
O9C0PTlKKHA.1492@TK2MSFTNGP03.phx.gbl...
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
jpmonnier-nospam@neuf.fr
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:e1NVdOlKKHA.4168@TK2MSFTNGP05.phx.gbl...
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
O9C0PTlKKHA.1492@TK2MSFTNGP03.phx.gbl...
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
jpmonnier-nospam@neuf.fr
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:e1NVdOlKKHA.4168@TK2MSFTNGP05.phx.gbl...
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Tu reçois un message te demandant si tu veux expédier ton courriel ou non
ce message vient avec la méthode utilisée.
Consulte ce site : http://www.rondebruin.nl/tips.htm
Tu as de nombreux exemples, et si tu désires ne pas avoir
ce retour de message d'Excel, tu peux utiliser CDO. Le
site fait le tour de la question.
"JPMonnier" a écrit dans le message de groupe
de discussion :
uk8aI$
Merci beaucoup, mais je n'ai toujours pas la main sur mon appli qui
clignote
dans la barre des tâches !!
--
Cordialement
"MichDenis" a écrit dans le message de
news:Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
Tu reçois un message te demandant si tu veux expédier ton courriel ou non
ce message vient avec la méthode utilisée.
Consulte ce site : http://www.rondebruin.nl/tips.htm
Tu as de nombreux exemples, et si tu désires ne pas avoir
ce retour de message d'Excel, tu peux utiliser CDO. Le
site fait le tour de la question.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
uk8aI$lKKHA.4432@TK2MSFTNGP02.phx.gbl...
Merci beaucoup, mais je n'ai toujours pas la main sur mon appli qui
clignote
dans la barre des tâches !!
--
Cordialement
jpmonnier-nospam@neuf.fr
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OzVVvzlKKHA.1248@TK2MSFTNGP04.phx.gbl...
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
O9C0PTlKKHA.1492@TK2MSFTNGP03.phx.gbl...
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
jpmonnier-nospam@neuf.fr
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:e1NVdOlKKHA.4168@TK2MSFTNGP05.phx.gbl...
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
Tu reçois un message te demandant si tu veux expédier ton courriel ou non
ce message vient avec la méthode utilisée.
Consulte ce site : http://www.rondebruin.nl/tips.htm
Tu as de nombreux exemples, et si tu désires ne pas avoir
ce retour de message d'Excel, tu peux utiliser CDO. Le
site fait le tour de la question.
"JPMonnier" a écrit dans le message de groupe
de discussion :
uk8aI$
Merci beaucoup, mais je n'ai toujours pas la main sur mon appli qui
clignote
dans la barre des tâches !!
--
Cordialement
"MichDenis" a écrit dans le message de
news:Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de groupe
de discussion :
O9C0PTlKKHA.1492@TK2MSFTNGP03.phx.gbl...
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
jpmonnier-nospam@neuf.fr
"Mgr T. Banni" <banni@lacurie.va> a écrit dans le message de
news:e1NVdOlKKHA.4168@TK2MSFTNGP05.phx.gbl...
je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" <jpmonnier-no-spam@neuf.fr> a écrit dans le message de news:
OLLZS5kKKHA.4376@TK2MSFTNGP03.phx.gbl...
Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"LSteph" <gmlsteph@gmail.com> a écrit dans le message de
news:9a4a3d7c-f3f7-431b-9f63-c7f71a6f385d@n2g2000vba.googlegroups.com...
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" <jpmonnier-no-s...@neuf.fr> wrote:
Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement
jpmonnier-nos...@neuf.fr
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
Essaie ceci :
'---------------------------------------------
Sub Sauve()
Dim Fname As String, MonRep As String
Dim Wk As Workbook
Application.ScreenUpdating = False
Set Wk = ThisWorkbook
MonRep = Environ("HOMEPATH") & "Desktop"
Fname = InputBox("Nom que doit avoir le fichier expédié?")
If Fname = "" Then
MsgBox "opération annulée"
Exit Sub
Else
If LCase(Right(Fname, 4)) <> ".xls" Then
Fname = Fname & ".xls"
End If
End If
If Dir(MonRep & Fname) <> "" Then
If MsgBox("Un fichier sous ce nom dans ce répertoire" & vbCrLf & _
"existe déjà. Désirez-vous l'écraser ?", vbCritical + _
vbYesNo, "Attention") = vbNo Then
MsgBox "Opération annulée. Recommencez !"
Exit Sub
End If
Else
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs Filename:=MonRep & Fname
ActiveWorkbook.SendMail "Adresse destinataire", "Voilà le fameux
fichier"
ActiveWorkbook.Close False
'Si tu veux supprimer le fichier qui vient d'être créé,
'sans possibilité de récupération dans la poubelle
Kill MonRep & Fname
Wk.Activate
'Wk.Save
MsgBox "votre message à été envoyé à Laurent"
End If
End Sub
'---------------------------------------------
"JPMonnier" a écrit dans le message de groupe
de discussion :
Je ne vois pas d'erreur dans ma syntaxe MsgBox "....."
puis quand j'ai cliqué sur l'icône excel qui clignote, mon Msgbox
s'affiche
correctement
!!
--
Cordialement
"Mgr T. Banni" a écrit dans le message de
news:je pense que la syntaxe de la MsgBox n'est pas bonne...
dans VBE, si on tape MsgBox, il est indiqué ensuite ce qui doit être
écrit
; il suffit de suivre le guide qui ne tendra pas une cébille à l'inverse
de mes collaborateurs
Mgr T.B.
"JPMonnier" a écrit dans le message de news:Merci LStep et Mgr T. Banni
et merci
Voici ma proc
Sub Sauve()
Application.ScreenUpdating = False
fname = InputBox("Entrer votre nom") & ".xls"
Sheets("coord").Activate
Sheets("COORD").Select
Sheets("COORD").Copy
Monrep = "C:Users" & Application.UserName & "Desktop"
ChDrive "c:"
ChDir Monrep
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.SendMail Recipients:="adresse email valide"
ActiveWorkbook.Close
Windows.Application.Workbooks("Saisie renseignements
perso.xls").Activate
Sheets("menu").Activate
'jusqu'ici pas de souci
'en revanche mon msgbox n'apparait pas
'je suis obligéde cliquer sur l'icone Microsoft Excel de la barre des
taches pour que la proc se poursuive
MsgBox "votre message à été envoyé à Laurent"
ActiveWorkbook.Save
Application.Quit
End Sub
--
Cordialement
"LSteph" a écrit dans le message de
news:
Bonjour,
Lorsque j'envoie le Classeur Actif par sendmail, une fois l'zenvoi
effectué, j'ai toujours le même Claseur Actif!
....
Cordialement.
--
lSteph
On 31 août, 14:43, "JPMonnier" wrote:Bonjour,
J'envoie un fichier joint par Send Mail, c'est ok
Par contre je ne sais pas comment reprendre la main sur mon Workbook
Excel
après envoie du message
Un idée ??
Merci
--
Cordialement