Extraire une feuille d un classeur et envoi par mail automatiquement une fois par sem

[SALAH]

Bonjour le forum

J' ai beau chercher dans tout le forum mais sans succes alors j' aurais besoin de savoir si cela est faisable
d'extraire automatiquement une feuille d' un classeur et de l' envoyer une fois par semaine par exemple tous les samedis,
sans l'intervention de l' opérateur j' utilise thunderbird comme messagerie.

Vous me rendriez un grand service.

Merci

 

[DoubleZero]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour, SALAH, le Forum,

Comme ceci ?

Option Explicit
Private Sub Workbook_Open() 'code dans ThisWorkbook
    If Weekday(Date) = 7 Then
        Sheets("Samedi").Copy ' onglet nom adapter
        ActiveWorkbook.SendMail Recipients:="framboise@live.fr" & ";" & "cerise@live.fr" ' destinataire(s) adapter
        Application.DisplayAlerts = False
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    End If
End Sub

A bientôt

 

[SALAH]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour le forum, DoubleZero

Merci pour votre aide, en fait ce que j' aurai souhaiter c' est qu' au moment de l' ouverture du classeur dès que le jour est un samedi un envoi est fait automatiquement par mail d' une feuille du classeur.

Merci

 

[DoubleZero]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Re-bonjour,

Le code suggéré fonctionne, du moins sur mon poste.

Pour s'en convaincre, remplacer :

If Weekday(Date) = 7 Then

par :

If Weekday(Date) = 3 Then

Enregistrer le fichier, le fermer et l'ouvrir à nouveau.

A bientôt

 

[CPk]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour à toutes et à tous, doublezéro, je confirme qu'il fonctionne.

 

[DoubleZero]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Re-bonjour,

Bonjour et merci, CPk , pour la confirmation.

A bientôt

 

[SALAH]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour le forum, doubleZero,CPk

Je confirme que tout marche à merveille, j' aimerai encore vous poser une question, à priori c' est à l' ouverture du fichier que la macro se déclenche ce que j' aimerais savoir si le fichier reste ouvert sans être fermé pendant toute la semaine. Comment dans ce cas la macro se déclenchera ?

Merci pour toute votre aide

 

[DoubleZero]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Re-bonjour,

...j' aimerais savoir si le fichier reste ouvert sans être fermé pendant toute la semaine. Comment dans ce cas la macro se déclenchera ?..

Bibi donner langue au chat.

Un autre membre saura certainement fournir LA solution.

A bientôt

 

[SALAH]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour le forum, doubleZero,CPk

Apparemment il n' y a pas de réponse à ma question, par contre j' aurai une autre question peut-on changer le nom du classeur ou lui attribuer un autre nom car ici il s' agit de "classeur1".

Merci

 

[DoubleZero]

Re : Extraire une feuille d un classeur et envoi par mail automatiquement une fois pa

Bonjour, SALAH, CPk, le Forum,

Comme ceci ?

Option Explicit
Private Sub Workbook_Open()    'code dans ThisWorkbook
    If Weekday(Date) = 4 Then ' jour adapter (7 pour samedi)
        Sheets("Samedi").Copy    ' onglet nom adapter
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="C:\Users\DoubleZero\Downloads\Samedi.xlsm", _
         FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ' emplacement adapter
        ActiveWorkbook.SendMail Recipients:="framboise@live.fr" & ";" & "cerise@live.fr" ' destinataire(s) adapter
        ActiveWorkbook.Close
        Kill ActiveWorkbook.Path & "\" & "Samedi.xlsm"
        Application.DisplayAlerts = True
    End If
End Sub

A bientôt