Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan, ainsi
l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce jointe
d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan, ainsi
l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce jointe
d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan, ainsi
l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce jointe
d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par OE,
en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura aidé,
tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23ge1LFIHHHA.924@TK2MSFTNGP02.phx.gbl...
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça va
vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uxuefELHHHA.4712@TK2MSFTNGP04.phx.gbl...
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23ge1LFIHHHA.924@TK2MSFTNGP02.phx.gbl...
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uxuefELHHHA.4712@TK2MSFTNGP04.phx.gbl...
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23ge1LFIHHHA.924@TK2MSFTNGP02.phx.gbl...
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" a écrit dans le message de news:
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" a écrit dans le message de news:
e%c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OChk9EPHHHA.1276@TK2MSFTNGP04.phx.gbl...
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
e%23rtVBPHHHA.3540@TK2MSFTNGP02.phx.gbl...
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uxuefELHHHA.4712@TK2MSFTNGP04.phx.gbl...
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23ge1LFIHHHA.924@TK2MSFTNGP02.phx.gbl...
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" a écrit dans le message de news:
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" a écrit dans le message de news:
e%c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" a écrit dans le message de news:
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" a écrit dans le message de news:
e%c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
OChk9EPHHHA.1276@TK2MSFTNGP04.phx.gbl...
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
e%23rtVBPHHHA.3540@TK2MSFTNGP02.phx.gbl...
c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uxuefELHHHA.4712@TK2MSFTNGP04.phx.gbl...
re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23ge1LFIHHHA.924@TK2MSFTNGP02.phx.gbl...
Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
%23wkT6GDHHHA.3676@TK2MSFTNGP03.phx.gbl...
bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23GEal$%23GHHA.4116@TK2MSFTNGP05.phx.gbl...
Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot
Pourtant JPS connaît celle-là ...
Maudite boisson...ça crée des trous dans la mémoire ...;-))
'---------------------
Dim fichier As String
fichier = "Environ("USERPROFILE") + "BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe " & fichier, vbNormalFocus)
'---------------------
"jps" a écrit dans le message de news:
bravo EliotNaiss ; j'ai failli te souffler d'utiliser SendKeys une fois
ton
fichier .txt ouvert mais je vois que tu es un adepte de ce SendKeys qui,
comme la langue, peut être la pire et la meilleure des choses...
merci pour le feedback
jps
"EliotNaiss" a écrit dans le message de news:
e%c pas grave jps
j'ai creusé et trouvé cela :
Private Sub cmdVoirFichier_Click()
Application.ScreenUpdating = False
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
AppActivate Shell("Notepad.exe", vbNormalFocus)
Application.ScreenUpdating = False
SendKeys "%F" & "o" & TheFile & "{ENTER}"
End Sub
ca marche ! mais dommage que "Application.ScreenUpdating = False" ne
masque pas réellement toutes les actions de Sendkeys (m'enfin cela va
vite, alors ..)
Cordialement
Eliot
"jps" a écrit dans le message de news:re EliotNaiss
je sais ce qu'il faut écrire en VBA pour ouvrir Bloc Notes mais ensuite
je ne vois pas comment on peut ouvrir le fichier .txt
je passe la main à plus fort que moi
jps
"EliotNaiss" a écrit dans le message de news:
%Bonjour jps ( merci pour la faute d'orthographe ...)
j'ai ajouté la ligne d'attente, ca marche ! sauf que je suis obligé de
créer une macro spécifique :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation Télégramme de convocation"
Msg = "Bonjour, je vous fais parvenir une ébauche de TG de
convocation"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
Application.OnTime Now + TimeValue("00:00:03"), "KeysEnvoiMel"
End Sub
'
Sub KeysEnvoiMel()
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Un chose en plus, je voudrais ouvrir le fichier txt en question.
J'ai essayé plusieurs facons de lancer notepad et le fichier (TheFile),
mais je bloque !
AS-tu une soluce ?
Merci
Eliot
"jps" a écrit dans le message de news:
%bonjour EliotNaiss
peut-être faut-il mettre une temporisation avant de lancer le
Sendkeys,
toujours un peu problématique (NDLR : c'est bizarre comme des fois ça
va vite quand on ne le veut pas et vice versa)
Application.OnTime Now + TimeValue("00:00:03")
et puis, tant que nous y sommes et sans savoir si ma réponse t'aura
aidé, tu peux d'ores et déjà corriger :
"Bonjour, je vous faiS parvenir mon document"
jps
"EliotNaiss" a écrit dans le message de news:
%23GEal$%Bonjour à tous, sous excel 2000, je désire envoyer un fichier txt par
OE, en VBA.
J'utilise le code :
Private Sub cmdEnvoiEmail_Click()
Dim Dest, Sujt, Msg As String
Dim TheFile As String
TheFile = Environ("USERPROFILE") +
"BureauSuiviStageSuiviStages1.txt"
Dest = Sheets("Systeme").Range("F2")
Sujt = "Préparation convocation"
Msg = "Bonjour, je vous fait parvenir mon document"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
End Sub
Voici mon problème : OE est bien ouvert, mais placé au premier plan,
ainsi l'instruction de Sendkeys n'est pas exécutée, donc pas de pièce
jointe d'inserrée dans le message.
Aurais-je raté qqchose ??
Merci du coup de main.
Cordialement.
Eliot