Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce jointe, je
puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0 Then
MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces jointe
if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dans le mail ?
Comment ça va être possible puisqu'il s'agit dess mails qu'il reçoit
?
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce
jointe, je puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0
Then MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As
Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces
jointe if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dans le mail ?
Comment ça va être possible puisqu'il s'agit dess mails qu'il reçoit
?
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce
jointe, je puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0
Then MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As
Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces
jointe if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dans le mail ?
Comment ça va être possible puisqu'il s'agit dess mails qu'il reçoit
?
Bonjour à tous,
Première apparition sur cette liste. J'ai lu avec interêt les
échanges de Circé, Jacque93 et berthelagrandepathe au sujet des
pièces jointes. J'ai bien réussi à faire apparaitre le dossier OLK
qui s'appelle OLK92 en suivant les directives de Jacques. Mais
lorsque je reçois une pièce jointe elle n'apparait pas dans ce
dossier! Mon problème est bien qu'à la reception d'une pièce
jointe, je puisse
aller la chercher automatiquement par un script VBA sans
intervention. Où aller chercher la pièce jointe???
Merci à tous,
Michel Voirain
En VBA ? dans le mail alors !
regarde cet exemple :
Sub FichiersJoints()
'Map toolbar button to this macro
' création OLIVIER CATTTEAU 2005
On Error Resume Next
Dim myOlApp As New Outlook.Application
If Application.ActiveInspector Is Nothing Then GetSelectedItems
If Application.ActiveInspector.CurrentItem.Attachments.Count = 0
Then MsgBox "Pas de fichiers joints"
GoTo fin
End If
'parcours des fichiers attachés
################################################################################
Dim objAtt As Attachment, objAtts As Attachments, PAS_EDI As
Boolean
Set objCurrentMessage = ActiveInspector.CurrentItem
Set objAtts = objCurrentMessage.Attachments
'#################################Traitement des fichiers joints
###################################################
For Each objAtt In objAtts
'c est la que tu mets le nouveau nom et /ou les conditions
repertoire = "c:temp"
Fichier = objAtt.FileName 'donne le meme nom que la pieces
jointe if ucase(right(objAtt.FileName,3))="XLS" then
objAtt.SaveAsFile repertoire & Fichier
end if
Next objAtt
''' Clean up everything.
On Error Resume Next
fin:
'ouvre le repertoire
cmdshell = "explorer " & repertoire
Shell cmdshell, vbMaximizedFocus
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook :http://faq.outlook.free.fr/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
