Macro finalisation de fichier

[jehanno.s]

Bonjour à tous,

Je suis une petite nouvelle sur le forum, j’apprends tout juste à maitriser quelques bases du langage Vba, cela fait un mois que j'ai débuté et je trouve ça passionnant de découvrir la puissance d'un logiciel comme excel. Je souhaite réellement me perfectionner sur ce langage.

Mais aujourd'hui, je suis totalement bloquée sur un projet d'automatisation d'un fichier et j'ai vraiment besoin de votre aide :/

Effectivement, je travaille sur un classeur Excel (excel 2003) contenant plusieurs feuilles, 25 pour être précise, que j'aimerai pouvoir compresser avant envoi pour e-mail à plusieurs destinataires sur une macro que j'ai appelé "FinalisationFichier".

Tout d'abord, j'ai demandé à la macro qu'elle puisse :
- verrouiller chaque feuille par un certain mot de passe
- ne pas verrouiller une feuille en particulier
- me masquer les onglets du classeur
- m’enregistrer à nouveau le classeur et de le fermer


Vous la trouverez ci-dessous :

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
37
38
39
Sub FinalisationFichier()
 
Worksheets("Sommaire").Protect ("ask")
Worksheets("MCCF").Protect ("ask")
Worksheets("Calculs CTX").Protect ("ask")
Worksheets("top tranche").Protect ("ask")
Worksheets("top region").Protect ("ask")
Worksheets("Sommaire").Protect ("ask")
Worksheets("CritEnt").Protect ("ask")
Worksheets("idf").Protect ("ask")
Worksheets("nord").Protect ("ask")
Worksheets("ouest").Protect ("ask")
Worksheets("so").Protect ("ask")
Worksheets("paca").Protect ("ask")
Worksheets("ra").Protect ("ask")
Worksheets("est").Protect ("ask")
Worksheets("Imp").Protect ("ask")
Worksheets("Acqui").Protect ("ask")
Worksheets("Rési").Protect ("ask")
Worksheets("PDM").Protect ("ask")
Worksheets("Locam").Protect ("ask")
Worksheets("Portef").Protect ("ask")
Worksheets("Ctx").Protect ("ask")
Worksheets("Frais").Protect ("ask")
Worksheets("Cotis").Protect ("ask")
Worksheets("ListeEnt").Protect ("ask")
Worksheets("Chrono").Protect ("ask")
 
'Masque les onglets du classeur
 
ActiveWindow.DisplayWorkbookTabs = False
Sheets("Sommaire").Select
 
ActiveWorkbook.Close savechanges:=True
 
 
'Et ici, j'aimerai pouvoir y incorporer la règle lui disant d'aller me compresser le fichier en winzip et de me l'envoyer a par mail 0 liste de destinataire x.
 
End Sub

Pouvez-vous m'aider s'il vous plaît, j'aimerai pouvoir réellement finaliser et automatiser ce fichier de la manière la plus complète possible.

En vous remerciant beaucoup par avance,

Belle journée,

Sabrina

[Jean-Pierre49]

Bonjour

Pour le Zip une piste Ici

Pour l'envoi une piste

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
Sub TestEnvoiMail()
'Avec Références : Microsoft Outlook 11.0 Object Library
 
 
                            Dim appOutLook              As Outlook.Application
                            Dim Email                   As String
                            Dim MonMessage              As Object
                            Dim Texte                   As String
 
    Set appOutLook = New Outlook.Application
    Set MonMessage = appOutLook.CreateItem(olMailItem)
 
    Email = "n.xx@fff.com;" & _
            "g.sss@fff;" & _
            "m.cccc@fff.com"
 
 
    With MonMessage
        .To = Email
        .CC = "m.eeeee@gggg.com"
        .Subject = "ffff"
        .Attachments.Add ("C:\tmp\Monfichier.zip")
 
        'Texte =
        '.HTMLBody = Texte
        .Display
    End With
 
    Set MonMessage = Nothing
    Set appOutLook = Nothing
 
End Sub

Fait des recherches dans le forum avec des mots cléfs (Zip, Attachments, OutLook Ect...) tu devrais trouver ton bonheur

Bon courage

[marc75017]

Merci beaucoup Jean-Pierre !

J'ai enfin réussi à faire fonctionner votre macro, c'est génial !!

En vous remerciant encore une fois,

Bonne continuation,

A bientôt

Sabrina

[Jean-Pierre49]

Bonjour


Quand cela est

Bon courage et bonne journée

[marc75017]

Bonjour Jean-Pierre,

Je voulais savoir comment pouvoir faire passer cette discussion en "Résolu".

D'autre part, je me permets encore de faire appel à votre aide pour une dernière question.

Voilà ce que je souhaite obtenir :

J'ai plusieurs classeurs excel (92 au total) dans un dossier, et je souhaiterai avec ma macro que chaque classeur à l'intérieur de ce dossier soit zipper individuellement pour un envoi par mail à 92 adresses différentes.

J'espère que vous arriverez à me comprendre :/

Comment procéderiez vous pour mettre en forme cette macro, peut-on partir de celle vue plus haut ou doit-on utilisez un nouveau code ?

Merci beaucoup par avance,

En vous souhaitant une très belle journée,

Cordialement,


Sabrina