Besoin de conseil pour modier ce code

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bricoltou

XLDnaute Occasionnel
Bonsoir le Forum

En ayant fait des recherches j'ai trouvé et modifié ce code pour envoyer une feuille de classeur par mail via outloock.
je voudrais pouvoir envoyer deux feuilles de classeurs au même destinataires ,voir a plusieurs destinataires .
J'ai essayé plusieurs modification ( ajouter une ligne pour le 2 onglets )ou séparé les adresses mails par des points virgules .
Mais rien ne marche 😱
Pouvez vous m'aider

Merci d'avance

Bricoltou

Code: 
Sub Mail()
Dim adresse As String, sujet As String, body As String
Dim MailAd As String, Msg As Variant, Subj As String, URLto As String
Dim répertoireappli As String
Dim fich As String
      Workbooks.Open Filename:= _
                           "K:\Pilotage\Camionnage\Controle_Camion.xls"
                          ActiveSheet.Unprotect Password:="Terminal"
répertoireappli = ActiveWorkbook.Path
'copie la feuille a envoyer
Sheets("Semaine").Copy
'crée le fichier
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireappli & "\Suivi_Contrôle_Camion.xls"
MailAd = "alfred.bricoltou@XXX.com" 'A ADAPTER
Msg = "Contrôle Véhicule   "
'Msg = Msg & "Consommation Gas_oil"
ActiveWorkbook.SendMail MailAd, Msg
ActiveSheet.Protect Password:="Terminal"
ActiveWindow.Close
End Sub
 
Trier par date Trier par votes
Re : Besoin de conseil pour modier ce code

Bonjour,

Actives, dans l'éditeur de macro en cliquant sur Outils/Références, la référence :

Microsoft Outlook 11.0 Object Library.

Puis testes avec ce code
Code: 
Sub Mail()

    Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
    Dim CurrFile As String
    Dim répertoireappli As String

    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
    
    Workbooks.Open Filename:="K:\Pilotage\Camionnage\Controle_Camion.xls"
    ActiveSheet.Unprotect Password:="Terminal"
    répertoireappli = ActiveWorkbook.Path
    'copie les feuilles à envoyer
    Sheets(Array("Semaine 1", "Semaine 2")).Copy 'Avec le Array pour sélectionner plusieurs feuilles
    'crée le fichier
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireappli & "\Suivi_Contrôle_Camion.xls"
    PathName = répertoireappli & "\Suivi_Contrôle_Camion.xls"
    
    With Olmail
        .To = "tata1@cheztata1.com"
        .CC = "tata2@cheztata2.com"
        .Subject = "Contrôle véhicule"
        .body = "Rapport véhicule"
        .Attachments.Add PathName
        .Send 'Ou Display voir le message avant de l'envoyer
    End With
    
    ActiveSheet.Protect Password:="Terminal"
    ActiveWindow.Close

End Sub
Attention aux noms des feuilles, pour tester je les ai nommées "Semaine 1" et "Semaine 2", à toi d'adapter... ainsi que les adresses.


EDIT : Tu peux, sauf erreur, pour plusieurs destinataires aussi écrire ainsi :
Code: 
.To = "tata1@cheztata1.com;tata2@cheztata2.com"

'Ou/Et

.CC = "tata3@cheztata3.com;tata4@cheztata4.com;etc..."
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Besoin de conseil pour modier ce code

Bonjour le Forum, Hulk

Aprés modification le code fonctionne , mais est il possible de supprimer le fichier qu'il vient de creer aprés l'envoi du Mail car j'ai un envoi par semaine et je n'ai pas besoin de sauvegarde

Merci d'avance pour votre aide

Bricoltou

Code: 
Sub MailManquant()
   Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
    Dim CurrFile As String
    Dim répertoireappli As String

    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
    Workbooks.Open Filename:="K:\Pilotage\Camionnage\Manquant.xls"
    ActiveSheet.Unprotect Password:="Xavier"
    répertoireappli = ActiveWorkbook.Path
    'copie les feuilles à envoyer
    Sheets("Synthese").Copy 'Avec le Array pour sélectionner plusieurs feuilles
    'crée le fichier
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireappli & "\Manquant du Mois.xls"
    PathName = répertoireappli & "\Manquant.xls"
    
    With Olmail
        .To = "xxxxxxxx.com;xxxxx.com;xxxxxx.com;xxxxx.com"
        .CC = "xxxxx.com"
        .Subject = "Fichier des Manquants"
        .body = "Merci de faire des recherches"
        .Attachments.Add PathName
        .Send 'Ou Display voir le message avant de l'envoyer
    End With
    
    ActiveSheet.Protect Password:="Xavier"
    ActiveWindow.Close
   

End Sub
 
Vote positif 0 Vote négatif
Re : Besoin de conseil pour modier ce code

Bonsoir le Forum

Quelqu'un a t-il une idée pour me venir en aide SVP 😕

Merci d'avance 😎

Bricoltou


Bricoltou à dit:
Bonjour le Forum, Hulk

Aprés modification le code fonctionne , mais est il possible de supprimer le fichier qu'il vient de creer aprés l'envoi du Mail car j'ai un envoi par semaine et je n'ai pas besoin de sauvegarde

Merci d'avance pour votre aide

Bricoltou

Code: 
Sub MailManquant()
   Dim Ol As New Outlook.Application
    Dim Olmail As MailItem
    Dim CurrFile As String
    Dim répertoireappli As String

    Set Ol = New Outlook.Application
    Set Olmail = Ol.CreateItem(olMailItem)
    Workbooks.Open Filename:="K:\Pilotage\Camionnage\Manquant.xls"
    ActiveSheet.Unprotect Password:="Xavier"
    répertoireappli = ActiveWorkbook.Path
    'copie les feuilles à envoyer
    Sheets("Synthese").Copy 'Avec le Array pour sélectionner plusieurs feuilles
    'crée le fichier
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs répertoireappli & "\Manquant du Mois.xls"
    PathName = répertoireappli & "\Manquant.xls"
    
    With Olmail
        .To = "xxxxxxxx.com;xxxxx.com;xxxxxx.com;xxxxx.com"
        .CC = "xxxxx.com"
        .Subject = "Fichier des Manquants"
        .body = "Merci de faire des recherches"
        .Attachments.Add PathName
        .Send 'Ou Display voir le message avant de l'envoyer
    End With
    
    ActiveSheet.Protect Password:="Xavier"
    ActiveWindow.Close
   

End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Besoin de conseil pour modier ce code

Hello,

Essaie ceci en fin de macro, avant le Protect -> Kill "C:\blabla\blabla.xls" 'Chemin à adapter

Ou, mais je doute -> Kill PathName

Ou encore -> Kill répertoireappli & "\Manquant.xls" mais je doute aussi.
 
Vote positif 0 Vote négatif
Re : Besoin de conseil pour modier ce code

Bonsoir le Forum, Hulk

Merci encore pour ton aide , le code bloque avec le message suivant
Erreur d'execution 70 Permission refusé
J'ai essayé de positionner le code aprés la protection mais idem
Code: 
With Olmail
        .To = "xxxxxxx.com"
        '.CC = "xxxxxx.com"
        .Subject = "Contrôle Carburant"
        .body = "Suvi Consomation"
        .Attachments.Add PathName
        .Send    'Ou Display voir le message avant de l'envoyer
    End With
    [COLOR="Red"][B]Kill "K:\Pilotage\Camionnage\Suivi_Contrôle_Carburant.xls" 'Chemin à adapter"[/B][/COLOR]    ActiveSheet.Protect Password:="Carburant"
    ActiveSheet.Protect Password:="Carburant"
  ActiveWindow.Close
 
Vote positif 0 Vote négatif
Re : Besoin de conseil pour modier ce code

Bonsoir le Forum

quelqu'un a déjà eu cette erreur d'éxécution .

Merci d'avance pour votre aide

Bricoltou

Bricoltou à dit:
Bonsoir le Forum, Hulk

Merci encore pour ton aide , le code bloque avec le message suivant
Erreur d'execution 70 Permission refusé
J'ai essayé de positionner le code aprés la protection mais idem
Code: 
With Olmail
        .To = "xxxxxxx.com"
        '.CC = "xxxxxx.com"
        .Subject = "Contrôle Carburant"
        .body = "Suvi Consomation"
        .Attachments.Add PathName
        .Send    'Ou Display voir le message avant de l'envoyer
    End With
    [COLOR="Red"][B]Kill "K:\Pilotage\Camionnage\Suivi_Contrôle_Carburant.xls" 'Chemin à adapter"[/B][/COLOR]    ActiveSheet.Protect Password:="Carburant"
    ActiveSheet.Protect Password:="Carburant"
  ActiveWindow.Close
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2016 macro pour envoyer une feuille excel par mail en pièce jointe
Réponses
3
Affichages
933
kiki29
kiki29
Y
  • Question Question
XL 2016 [VBA] Envoi chaques feuilles dans Corps de Mail a un destinataire different
Réponses
2
Affichages
1 K
yani
Y
J
  • Question Question
XL 2019 macro vba pour lancer un texte et pj excel pour gmail
Réponses
2
Affichages
1 K
jff74650
J
S
  • Question Question
XL 2013 Convertir classeur en PDF, crypter avec mot de passe et envoyer via Outlook
Réponses
2
Affichages
2 K
Saliou MBALO
S
B
  • Question Question
XL 2016 Mailing Type à différents groupe de personnes
Réponses
1
Affichages
842
Bullrot
B
D
  • Question Question
XL 2016 envoye mail en CC s'affiche en objet.
Réponses
7
Affichages
1 K
Roland_M
Roland_M
M
  • Question Question
XL 2010 Macro envoi Mail
2
Réponses
19
Affichages
2 K
mix770
M
bellenm
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
Roland_M
M
  • Question Question
XL 2010 macro envoie mail via Outlook Web OWA
Réponses
1
Affichages
2 K
Roland_M
Roland_M
bredeche
  • Question Question
XL 2010 envoie email texbox
Réponses
3
Affichages
1 K
Lone-wolf
Lone-wolf
C
  • Question Question
Envoi de mail, PB avec Envelopevisible
Réponses
1
Affichages
3 K
croco40
C
F
  • Question Question
XL 2013 Selection de cellules pour envoi automatique
Réponses
0
Affichages
486
flo189
F
A
  • Question Question
XL 2013 ficher excel fermé par lotus notes
Réponses
0
Affichages
881
Arctica
A
grisan29
  • Question Question
(résolu par bebere et chti160)modifier ligne de code pour ajouter l'année et mois en cours
2 3
Réponses
40
Affichages
4 K
grisan29
grisan29
L
  • Question Question
Modification d'un code VBA envoi de mail depuis lotus
Réponses
2
Affichages
2 K
link93
L
L
  • Question Question
probleme de reinitialisation de variable (résolu)
Réponses
7
Affichages
1 K
camarchepas
camarchepas
oceanex
  • Question Question
[vba]envoyé un classeur par email problème avec la fenêtre de sécurité [résolue]
Réponses
3
Affichages
1 K
oceanex
oceanex
M
  • Question Question
XL 2013 Optimisation de code pour une présentation
Réponses
5
Affichages
1 K
Merlin258413
M
J
  • Question Question
Aide sur code VBA
Réponses
1
Affichages
999
jpb388
jpb388
hypo78
  • Question Question
Incompatibilité de type Code VBA envoi de mail
Réponses
3
Affichages
1 K
hypo78
hypo78
Retour