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 : 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
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