VBA Mail automatique

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/03/2016, 07h11
moio44

Bonjour,

J'essaie de me remettre sur ce fichier et ces erreurs qui ne sont toujours pas resolu.

Concernant la macro j'ai utilise la macro de ThisWorkbook.

Lorsque je lance la macro une erreur me disant que le Private Sub Workbook_Open() n'est pas defini ainsi que le RetournTable est surligne.

Merci d'avance pour votre aide si une personne veux toujours bien m'aider.

Bonne journee.
04/03/2016, 10h22
Philippe PONS

Salut,

aider à faire quoi?
08/03/2016, 08h19
moio44

Bonjour,

Merci pour votre reponse,

Je recherche a faire un envoi automatique d'email avec ma macro qui ne march pas.

Il y a un fichier joint dans mon premier message, j'ai essayer differente solution mais je n'ai toujours pas de resultat.

Merci d'avance pour votre aide :)
10/03/2016, 21h30
AlainTech

Bonjour,

Vas-tu te décider à y mettre un peu du tien?

On a tous compris ce que tu veux faire. Pas besoin de le répéter.

Par contre, si tu nous montrais ton code (entre balises) et que tu nous disais à quelle ligne tu as une erreur et quelle elle est, on pourrait t'aider.
10/03/2016, 21h44
clementmarcotte

Citation:

Envoyé par moio44

Bonjour,

Il y a un fichier joint dans mon premier message, j'ai essayer differente solution mais je n'ai toujours pas de resultat.

Presque personne de moindrement sensé n'ouvre les pièces jointes avec la première question; surtout les fichiers de macros.

Puis Pierre Fauconnier a dit très clairement : pas de fichier-joint à la première question.

Bonjour,

Je m'excuse mais je ne suis pas un pro comme vous pouvez l'etre ici et ai deja passer beaucoup de temps sur ce fichier et le forum etait ma derniere solution.

Je vais donc essayer d'expliquer un peu plus clairement ce qui ce passe dans mon fichier mais pour cela j'ai repris ma macro sachant que c'est moi qui l'ai creee donc plus a l'aise pour expliquer ce qui va et ne va pas.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Sub Worksheet_Calculate() Range("D1").Value = Date If Range("F2").Value < Range("D1").Value And Range("D3").Value = "OK" Then Range("F2").ClearContents Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "test@test.com" .CC = "" .BCC = "" .Subject = "Invoice Reminder" .HTMLBody = Range("B5:G25") 'You can add a file like this .display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing Range("F2").Value = Date End If End Sub
Pour commencer le mail n'apparait pas lorsque le fichier ce lance alors que le worksheet calculate devrait lancer ma macro

Le second probleme vient du faite que je n'ai rien dans la body de mon mail

le dernier probleme est que je ne sait pas comment faire si je doit mettre plusieurs adresse dans "To : " mais les adresse mails sont presente dans des cellules du fichier excel.

J'ai essayer avec un Range("les cellules") mais cela ne marche pas.

J'espere avoir expliquer correctement mes problemes et que nous allons pouvoir trouver une solution ensemble.

:)

13/03/2016, 21h53
AlainTech

Bonjour,

Citation:

Pour commencer le mail n'apparait pas lorsque le fichier ce lance

Réponse à la première question:
Pourquoi Worksheet_Calculate et pas Workbook_Open?
14/03/2016, 06h56
moio44

Bonjour,

Je viens d'essayer avec workbook_open et la macro ne se lance pas egalement et sur mon bureau il y un point d'exclamation sur l'icone du fichier cela vient peut etre de ce point d'exclamation.

Par ailleurs j'avais utilise Calculate et non open car le fichier est ouver plusieurs fois par jour mais maintenant que j'ai une formule de controle je peux utilise open.
14/03/2016, 07h46
Invité

Bonjour,
Comprenons nous bien, la méthode calculate ce fait à l'ouverture mais sur de formules a l'intérieur d'une feuille en position relative.

La méthode open ou calculate ne connais pas encore l'architecture du fichier. L'objet range ne fait pas référence à la feuille active vue qu'Excel lui-même n'est pas actif!

Colle ton code dans un module standard en changeant le nom de la sub et appel cette sub dan open!

Un goto c'est un jump. ( branchement court) un sub c'est un call (branchement long) ça va t'accorder les quelques cycles machines nécessaire pour que ta mémoire soit définitivement chargée!

La question n'est pas tant de savoir si ça marche ou pas sur open mais de comprendre que nous nous trouvons dans un phase transitoire ou le processeur et la mémoire sont sollicité au maximum!

Le point d'exclamation sur l'icône du fichier est lié aux paramètres de sécurité, il est fort probable que tu doives cliquer sur le bouton activer les macros!
15/03/2016, 08h14
moio44

Bonjour,

Je viens d'essayer la vba sur un autre fichier et elle marche correctement. enfin il faut que je la lance manuelement.

Meme avec le workbook open cela ne se lance pas automatiquement .

PAr ailleurs je ne comprend pas votre dernier message.

Pour l'instant la macro est place dans la sheet ou il y a besoin de faire les differente actions.

Dois-je placer la macro princpal dans this workbook et ensuite mettre Worckbook open dans la sheet en question ?
15/03/2016, 16h48
Invité

Bonjour,
Il faut la placer dans un module standard et l'appeler de open!

Bonjour,

J'ai place le code suivant dans un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Mail()
 
Range("D1").Value = Date
 
 
If Range("F2").Value < Range("D1").Value And Range("D3").Value = "OK" Then
 
Range("F2").ClearContents
 
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
 
    On Error Resume Next
    With OutMail
        .To = "test@test.com"
        .CC = ""
        .BCC = ""
        .Subject = "Invoice Reminder"
        .HTMLBody = Range("B5:G25")
 
        'You can add a file like this
        .display   'or use .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
Range("F2").Value = Date
 
End If
End Sub

et le code suivant dans la feuille concerne :

Code:

1
2
3
4
5
Sub Workbook_open()
 
 Call Mail
 
End Sub

quand je lance la macro manuellement cela marche mais quand j'ouvre le fichier rien ne ce passe, pourtant il me semble avoir suivi vos conseil a la lettre. d'ou peux venir l'erreur.

Merci

16/03/2016, 07h54
Invité
Bonjour,
Code:

1 2 3 4 5 Sub Workbook_open() msgbox "toto" Call Mail End Sub
Code:

thisworkbook.sheets(" feuille1").Range("D1").Value = Date

ne jamais dissocié une cellule de son port d'attache!
16/03/2016, 09h27
moio44

Bonjour

Je viens d'esayer le code test avec la message box toto et rien ne s'afficehe a l'ouverture, seulement lorsque je lance la macro manuellement.
j epense que je dois avoir un reglage de desactiver pour que la macro ne se lance pas automatiquement mais je ne sais pas ou.

J'ai la version 2010 de Excel.
16/03/2016, 11h27
Oliv-

1 pièce(s) jointe(s)
Bonjour,
as tu essayé le code du #10, il colle parfaitement à ton exemple.

il faut juste changer la ligne

Code:

If DatePart("w", CeJour, vbMonday) = 3 And CeJour >= DernierEnvoi Then

par

Code:

If DatePart("w", CeJour, vbMonday) = 1 And CeJour > DernierEnvoi Then

d'où vient le fichier que tu avais joint au départ ?

Dans EXCEL 2010 il y a une fonction "Documents approuvés", Cela va permettre de lancer toujours tes macros de ce fichier.
Lorsque tu ouvres un Fichier avec des MACRO, en principe il te propose d'ajouter ce document aux "document approuves"

Pièce jointe 204049

Ce que Robert t'expliquait c'est que si tu écris
Code:

1 2 Range("D1").Value = Date
cela fait référence à la cellule D1 de la feuille active, donc l'opération ne se fera pas forcèment sur la bonne feuille !!

il faut donc écrire

Code:

thisworkbook.sheets("feuille1").Range("D1").Value = Date

où feuille1 est le nom de ta feuille où se trouve la cellule que tu veux modifier.

je pense que dans ton exemple la feuille s'appelle "Recap"

donc

Code:

thisworkbook.sheets("Recap").Range("D1").Value = Date

attention à écrire précisément le nom de la feuille
thisworkbook.sheets(" feuille1") est différent de thisworkbook.sheets("feuille1")
17/03/2016, 07h29
moio44

1 pièce(s) jointe(s)

bonjour,

je n'ai pas cette option qui s'affiche comme vous dans le fichier de Excel.

Pièce jointe 204148

comment faire cela veux dire que les macro sont active ou pas ?
17/03/2016, 11h00
Oliv-

1 pièce(s) jointe(s)

Clique sur l'image de mon précédent post tu auras l'aide de microsoft sur le sujet.

Sinon les documents approuvés sont stockés dans le registre :

HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\Trusted Documents\TrustRecords

Si tu l'as déjà approuvé les macros, vont s'exécuter sans message d'activation.

Sinon tu dois avoir un de ces messages à valider

Pièce jointe 204161

Et si tu peux lancer manuellement une macro c'est que les macros sont activées.
28/03/2016, 05h39
moio44

Bonjour,

Je viens d'essayer d'ouvrir le fichier sur un autre pc et cela marche toujours pas. et je n'ai aucun message d'activation de macro.

Par contre j'ai essayer la macro ou il demande d'afficher le message "TOTO" a l'ouverture et cela marche dans un nouveau fichier mais pas dans mon fichier actuel.

Je penses que le format de mon fichier ne doit pas etre bon mais je n'arrive pas a trouver avec qu'elle format cela peux marcher.

Merci d'avance pour votre aide
28/03/2016, 12h41
Invité

Bonjour,
Le message d'activation des macros n'a rien avoir avec ton code mais les paramètres de sécurité d'Excel, tu as plus possible jamais, sur demain ou activer.

Si l'option est sur jamais, les macros ne sont pas activé et rien n'est demandé à utilisateur, sur demande elle sont activé si l'utilisateur click sur activé et enfin toujours elles sont activé automatiquement et rien est demander à l'utilisateur!
29/03/2016, 09h47
Oliv-

Salut,

Si les macros ne fonctionnent qu'avec de nouveaux fichiers, c'est effectivement comme le dit Robert un problème de niveau de sécurité.

Dans l'onglet développeur, clic sur "Sécurité des macros", et choisi "Désactiver toutes les macros avec notification"

Voir 40 message(s) de cette discussion en une page