> Tous les forums > Forum Bureautique
 Export Excel mail dans un dossierSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Guildam
  Posté le 04/12/2013 @ 14:19 
Aller en bas de la page 
Nouvel astucien

Bonjour,

Dans le cadre de mon travail, je reçois tous les jours un certains nombre de reporting excel par mail.

J'aurais aimé savoir s'il y avait un moyen automatique de tranférer les excel reçu par mail directement dans un répertoire réseau (pour baser dessus des requetes Access).

D'avance merci pour votre retour

Publicité
jpr73
 Posté le 04/12/2013 à 21:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Ci-après une macro trouvé sur le web que j'ai adapté et testé.

Macro de Axel C. Lenz

Public Sub saveXLStoDisk(itm As Outlook.MailItem)
Dim dateFormat 'Dateiname mit Datum.
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
dateFormat = Format(Now, "dd_mm_yyyy H-mm") 'Dateiname mit Datum
saveFolder = "C:\temp\"
' XLSs speichern
For Each objAtt In itm.Attachments
If LCase(Right(objAtt.FileName, 4)) = ".xls" Then 'Nach XLS filtern
objAtt.SaveAsFile saveFolder & "\" & dateFormat & "_OL_" & objAtt.DisplayName 'Attachment speichern
Set objAtt = Nothing
End If 'Nach XLS filtern
Next
'Betreff ändern
strID = itm.EntryID
Set objMail = Application.Session.GetItemFromID(strID)
objMail.Subject = "#Classé# " & objMail.Subject
objMail.Save
Set objMail = Nothing
End Sub

Ouvrir l'éditeur VBA dans Outlook : Alt + F11

Insérer le code dans un module : Insertion > Module

Enregistrer et fermer l'éditeur VBA

Il faut adapter le code à vos besoins :

- Changer le répertoire d'enregistrement "C:\temp\"

- Changer si nécessaire la liaison entre la date et le nom du fichier "_OL_" (Objet Liaison)

Nota : la date permet de ne pas écraser un fichier qui aurait le même nom

- Changer si nécessaire le texte qui est ajouté à l'objet du mail "#Classé# (Indique que la/les pièces jointes avec l'extension .xls que vous avez reçus ont été classées dans le répertoire que vous avez désigné)

Ensuite il faut créer une règle sur Outlook :

- Règles et alertes > Nouvelle règle > Vérifier les messages à leur arrivée > Suivant

- Conditions > Sélectionner la coche "Qui contient une pièce jointe" > Suivant

- Actions > Sélectionner la coche "Exécuter un script"

- Dans la fenêtre inférieure > clicker sur "un script" en bleu > un onglet s'ouvre > sélectionner "Projet1.saveXLStoDisk" > OK

- Suivant > Suivant > "Attribuez un nom à cette règle" > Terminer > Appliquer > OK

Tester en vous envoyant à vous même un mail avec un fichier Excel

Cordialement

Guildam
 Posté le 10/12/2013 à 12:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour,

Super ça marche nickel. J'ai juste modifié une ligne pour qu'il prenne aussi les fichiers XLSX

If Right(objAtt.FileName, 3) = "xls" Or Right(objAtt.FileName, 4) = "xlsx" Then

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Câble rétractable Baseus USB C vers USB C 60W à 7,99 €
7,99 € 10 € -20%
@Amazon
SSD WD Blue SN580 1 To (PCIe 4, NMVe M.2, 4150 Mo/s) à 64,99 €
64,99 € 76,99 € -16%
@Amazon
Smartphone 6.67 pouces Xiaomi Redmi Note 12 Pro 5G (FHD+ OLED 120 Hz, 6Go/128Go) à 169 €
169 € 260 € -35%
@AliExpress
Ecran PC 34 pouces incurvé Samsung Odyssey G55T (WQHD, 165 Hz, 1 ms) à 337,62 €
337,62 € 469 € -28%
@Amazon
Vidéo projecteur WANBO X5 (Full HD, HDR10, 1100 lumens ANSI, WiFi 6, Android, entrepôt Europe) à 199 €
199 € 280 € -29%
@Geekbuying
Batterie externe FOSSiBOT F2400 2048Wh, 2400W, LifePOE4 à 749 €
749 € 929 € -19%
@Geekbuying

Sujets relatifs
gestion @ mail dans fichier clients Excel
Copier adresse mails d'excel dans windows mail
Perte liens Excel dans Word après envoie par mail
Import/export de fichier dans excel
2 pages par feuille dans macro excel
impossible ouvrir mails dans windows mail
Changement dans Excel 2010 ?
case à cocher dans cellule Excel 2010
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Creation d' une boucle macro dans fichier EXCEL pour impression
Plus de sujets relatifs à Export Excel mail dans un dossier
 > Tous les forums > Forum Bureautique