Envoi mail auto via une macro

Version imprimable

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

Test non concluant

Bonjour,
j'ai testé le code au boulot ainsi que chez moi et tjrs la meme reponse :

Pièce jointe 198148

Lorsque je supprime l'appel de la macro (Call xxxxxx) et que je met directement ma macro, maintenant ça bug sur la ligne 17 alors que si je déclenche ma macro non plus dans "ThisWorkbook - Before Open" mais directement dans mon classeur, alors là ça fonctionne.

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
'Pour envoi mail auto 1er jour ouvré du mois
 
   With Sheets("Accueil").Cells(Rows.Count, Columns.Count) ' adapte le nom du sheets
        ActiveSheet.Unprotect
        If .Value <> Month(Date) Then
            .Value = Month(Date)
            ThisWorkbook.Save
 
    ' Mail des F.P analysées en retard de traitement
 
        rep = MsgBox("Création d'un @mail automatique concernant  les F.P en retard de traitement à ce jour ou dont la date de traitement n'a pas été fixée par le pilote.. En cas d'erreur, ne vous affolez pas, une confirmation d'envoi vous sera demandée ultérieurement.", vbYes + vbInformation, "Transmission de mail automatique...")
 
    Dim nom As String
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
 
    Sheets("Feuil1").Select
    Sheets("Feuil1").name = "Envoi Mail"
    Sheets("Feuil2").Select
    Sheets("Feuil2").name = "Matrice Mail"
 
 
 
        End If
    End With

essaie par les index au lieu des noms et en plus tu n'es pas obligé de selectionner
Code:

1 2 3 4 5 Set Wbk = Workbooks.Add 'Sheets("Feuil1").Select Sheets(1).Name = "Envoi Mail" 'Sheets("Feuil2").Select Sheets(2).Name = "Matrice Mail"

17/01/2016, 10h48
graphikris

Bonjour,

ça bloque en ligne 3 : Erreur d'execution 1004. Désolé ce nom est déjà attribué. Veuillez utiliser un autre nom.

autant pour moi:oops:

Code:

1
2
3
4
5
6
7
Set Wbk = Workbooks.Add
   with wbk
 'Sheets("Feuil1").Select
    .Sheets(1).Name = "Envoi Mail"
    'Sheets("Feuil2").Select
    .Sheets(2).Name = "Matrice Mail"
end with

19/01/2016, 18h51
graphikris

ok, je regarde demain au boulot

OK CA MARCHE MAIS TJRS UNE QUESTION QUI SUBSISTE;
Pourquoi la fonction Call ne fonctionne pas ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'Pour envoi mail auto 1er jour ouvré du mois With Sheets("Accueil").Cells(Rows.Count, Columns.Count) ' adapte le nom du sheets ActiveSheet.Unprotect If .Value <> Month(Date) Then .Value = Month(Date) ThisWorkbook.Save Call nom_de_ma_macro Call nom_seconde_macro End If End With
Ces macros fonctionnent parfaitement quand elles sont déclenchées en dehors de ce code
mais dès que je les insère avec la fonction Call, ça bloque sur ces lignes

Cordialement.

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