Discussion :

[trek84]

Bonjour, je m'adresse à vous car j'ai un petit soucis avec mon fichier.
Je n'arrive pas a fermer puis supprimer un classeur qui me sert de pièce jointe pour un mail. Ce classeur est une copie d'une feuille d'un autre classeur qui est par la suite envoyé. Ce que je vaudrais faire c'est une fois que le le mail est envoyé, je vaudrais fermer cette copie (qui s'ouvre automatiquement) puis la supprimer.. Merci pour votre aide précieuse

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub EnvoiFinal()
 
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range, x As Integer
Dim mesdestinataires As String
Dim Chemin As String, Fichier As String
Dim Wkb As Workbook
    Application.ScreenUpdating = False
 
    Set Wkb = ThisWorkbook
    Chemin = Wkb.Path & "\"
    Fichier = "test.xlsx"
    ActiveSheet.Copy ' crée une copie de la feuille active
    ActiveWorkbook.SaveAs Chemin & Fichier
 
    Wkb.Activate
    Set OutApp = CreateObject("Outlook.Application")
 
    Sheets("Infos revue").Select
    For Each cell In Columns("C").Cells.SpecialCells(xlCellTypeConstants)
    If cell.Value Like "?*@?*.?*" And _
    LCase(Cells(cell.Row, "D").Value) = "oui" Then mesdestinataires = cell.Value & "; " & mesdestinataires
    Next cell
 
    x = Len(mesdestinataires) - 2
    nbritem = Left(mesdestinataires, x)
 
    Set OutMail = OutApp.CreateItem(0)
 
    If MsgBox("Etes-vous certain de vouloir envoyer ce mail ?", vbYesNo, "Demande de confirmation") = vbYes Then
    With OutMail
        .To = mesdestinataires
        .Subject = "Envoi mail"
        .Body = "Test test test"
        .Attachments.Add Chemin & Fichier
        .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
       .Send
       MsgBox "Le mail à bien été envoyé !"
    End With
    End If
 
    Set OutMail = Nothing
    Set OutApp = Nothing
    Set Wkb = Nothing
 
    Workbooks(test).Activate
    Workbooks(test).Close
    Kill test
 
  End Sub

Merci d'avance pour vos reponses

[Fvandermeulen]

Salut,
Je suis peut-être fatigué mais ta fermeture et suppression font appel à la variable Test que je ne vois nulle par ailleurs dans ton code...

Pour ce genre de cas, j'utilise une variable de type workbook spécifique, exemple (à ajouter à ton code):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim ToKill as workbook
'...
    ActiveSheet.Copy ' crée une copie de la feuille active
    Set ToKill = activeworkbook
    ActiveWorkbook.SaveAs Chemin & Fichier
'...
ToKill.close
Kill (chemin & "\" & ToKill)

A+

[fring]

Bonjour,

Test n'est pas une variable mais le nom du fichier créé, pour le fermer il faut préciser le nom complet du classeur ("Nom.extension") à mettre entre guillemets ou utiliser la variable Fichier initialisée avec le nom du classeur en question. Et pour le supprimer il faut indiquer le chemin complet et le nom complet.
Ceci devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Workbooks(test).Activate '<-- inutile
'Workbooks(test).Close
Workbooks(Fichier).Close
'Kill test
Kill Chemin & Fichier

[did103]

Comme le créateur du post n'a pas mis résolu (s'il est revenu sur le forum après avoir posté) j'ajoute une petite contribution:

Je pense qu'il y a également un autre souci lié à la résa que fait Outlook (?) sur la pièce jointe...
Même en passant en direct, il est impossible de supprimer un fichier qui correspond à la dernière pièce jointe envoyée avec un message.
Il est alors nécessaire d'ouvrir un autre message, de joindre un autre fichier pour pouvoir supprimer le 1er...