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
A cette heure-ci, Michel doit être encore dans les bras de Morphée :) Essaye cette modif de sa proc :
'--------------------------------------------- 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 '---------------------------------------------
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis Je rencontre un petit problème suite à mes tests avec ta proc Soit : 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
'**************** Si je réponds Non, ça fonctionne très bien !! '**************** Si je réponds Oui, la proc ne passe sur le End If après exit sub '**************** Puis saute au dernier End If avant End Sub de la Proc sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger Merci encore de ton aide
Bonjour,
A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Essaye cette modif de sa proc :
'---------------------------------------------
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
'---------------------------------------------
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis
Je rencontre un petit problème suite à mes tests avec ta proc
Soit :
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
'**************** Si je réponds Non, ça fonctionne très bien !!
'**************** Si je réponds Oui, la proc ne passe sur le End If
après exit sub
'**************** Puis saute au dernier End If avant End Sub de la Proc
sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger
Merci encore de ton aide
A cette heure-ci, Michel doit être encore dans les bras de Morphée :) Essaye cette modif de sa proc :
'--------------------------------------------- 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 '---------------------------------------------
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis Je rencontre un petit problème suite à mes tests avec ta proc Soit : 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
'**************** Si je réponds Non, ça fonctionne très bien !! '**************** Si je réponds Oui, la proc ne passe sur le End If après exit sub '**************** Puis saute au dernier End If avant End Sub de la Proc sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger Merci encore de ton aide
MichDenis
| A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Et dans les bras de Michelle, c'est possible ? Comment transformer la procédure pour cela ? ;-)))
| A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Et dans les bras de Michelle, c'est possible ?
Comment transformer la procédure pour cela ?
;-)))
| A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Et dans les bras de Michelle, c'est possible ? Comment transformer la procédure pour cela ? ;-)))
Péhemme
A cette heure-ci, je ne sais pas ce que fait Michel, mais Denis, lui, dort encore. :-)) Michel
"FS" a écrit dans le message de news:%
Bonjour,
A cette heure-ci, Michel doit être encore dans les bras de Morphée :) Essaye cette modif de sa proc :
'--------------------------------------------- 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 '---------------------------------------------
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis Je rencontre un petit problème suite à mes tests avec ta proc Soit : 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
'**************** Si je réponds Non, ça fonctionne très bien !! '**************** Si je réponds Oui, la proc ne passe sur le End If après exit sub '**************** Puis saute au dernier End If avant End Sub de la Proc sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger Merci encore de ton aide
A cette heure-ci, je ne sais pas ce que fait Michel, mais Denis, lui, dort
encore.
:-))
Michel
"FS" <fs@news.group> a écrit dans le message de
news:%23HttKZgLKHA.1340@TK2MSFTNGP05.phx.gbl...
Bonjour,
A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Essaye cette modif de sa proc :
'---------------------------------------------
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
'---------------------------------------------
FS
--
Frédéric SIGONNEAU
Modules et modèles pour Excel :
http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis
Je rencontre un petit problème suite à mes tests avec ta proc
Soit :
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
'**************** Si je réponds Non, ça fonctionne très bien !!
'**************** Si je réponds Oui, la proc ne passe sur le End If
après exit sub
'**************** Puis saute au dernier End If avant End Sub de la Proc
sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger
Merci encore de ton aide
A cette heure-ci, je ne sais pas ce que fait Michel, mais Denis, lui, dort encore. :-)) Michel
"FS" a écrit dans le message de news:%
Bonjour,
A cette heure-ci, Michel doit être encore dans les bras de Morphée :) Essaye cette modif de sa proc :
'--------------------------------------------- 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 '---------------------------------------------
FS -- Frédéric SIGONNEAU Modules et modèles pour Excel : http://frederic.sigonneau.free.fr/
JPMonnier a écrit :
Bonjour MichelDenis Je rencontre un petit problème suite à mes tests avec ta proc Soit : 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
'**************** Si je réponds Non, ça fonctionne très bien !! '**************** Si je réponds Oui, la proc ne passe sur le End If après exit sub '**************** Puis saute au dernier End If avant End Sub de la Proc sans tenir compte du Else
!!!!!
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
Ou est l'erreur, je n'arrive pas à corriger Merci encore de ton aide
Péhemme
Bien ! Denis est levé, je retourne couper mes lavandes... :-) Michel
"MichDenis" a écrit dans le message de news:
| A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Et dans les bras de Michelle, c'est possible ? Comment transformer la procédure pour cela ? ;-)))
Bien !
Denis est levé, je retourne couper mes lavandes...
:-)
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:eS9UQohLKHA.4168@TK2MSFTNGP05.phx.gbl...
| A cette heure-ci, Michel doit être encore dans les bras de Morphée :)
Et dans les bras de Michelle, c'est possible ?
Comment transformer la procédure pour cela ?
;-)))
