Discussion :

[lenul78570]

Bonjour le Forum

Le code ci-dessous se trouve dans un module d'une feuille Excel.
Après différentes actions dans le classeur Excel, cette macro ouvre un document Word (lettre mailing).
Pour des raisons de sécurité, je souhaite empêcher l'ouverture de "lettre mailing" si on utilise pas la macro, donc je lui ai affecté un mot de passe (mailing).
Donc, quand je lance le code ci-dessous une boite de dialogue me demande de saisir le mot de passe.
Je voudrai insérer une commande qui exécute cette saisie automatiquement.
J'ai cherché un peu partout mais je n'ai rien trouvé.
Si quelqu'un peut me dire quel commande et ou je dois l'insérer ce serait super
Merci de votre aide
Lenul

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Sub Mailing()
'
' Copie les valeurs de la feuille Extrait vers la feuille Add
' pour placer les données avant impression courrier personalisé
' bouton de comande sur feuille Extrait
 
    'copie raison sociale sur feuille Add
    Application.ScreenUpdating = False
    Sheets("Extrait").Range("a15").Copy Sheets("Add").Range("a5")
    'copie  adresse sur feuille Add
    Sheets("Extrait").Range("b15").Copy Sheets("Add").Range("a6")
    'copie code postal+ville sur feuille Add
    Sheets("Extrait").Range("c15,e15").Copy Sheets("Add").Range("a7")
    'copie titre+nom+prénom sur feuille Add
    deprotectfeuille
    Range("B11:K13").Select 'Pour défusioner les cellules de cette zone
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.UnMerge
 
    Columns("F").Select 'insere une colonne pr passer de Mr à Monsieur etc...
    Selection.Insert Shift:=xlToRight
    Range("F15").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[1]="""","""",IF(RC[1]=""Mr."",""Monsieur"",IF(RC[1]=""Mme"",""Madame"",IF(RC[1]=""Melle"",""Mademoiselle""))))"
    Sheets("Extrait").Range("f15,h15:i15").Copy Sheets("Add").Range("a9")
    Sheets("Extrait").Select
    Columns("F").Select
    Selection.Delete Shift:=xlToLeft
 
    Range("B11:K13").Select ' pour refusionner les cellules de cette zone
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
 
    'copie la ligne sur feuille "Expédiés"
    Sheets("Extrait").Select
    Range("a15:n15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Expédiés").Visible = True
    Sheets("Expédiés").Select
    Cells(65535, 1).End(xlUp)(2).Select
    ActiveSheet.Paste
    'suprime la ligne traitée
    Sheets("Extrait").Select
    Application.CutCopyMode = False
    Rows("15:15").Select
    Selection.Delete Shift:=xlUp
    Range("B11").Select
    protectfeuille
    Sheets("Add").Visible = True
    Sheets("Add").Select
 
    Dim wdApp As New Word.Application
    Dim wddoc As Word.document
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wddoc = wdApp.documents.Open(Filename:="T:\Tableau devis SF\lettre mailing.doc")
    ActiveSheet.Range("a2:c9").Copy
    wdApp.Selection.pasteandformat wdformatplaintext
 
    wddoc.PrintOut ' impression de lettre mailing
 
    wddoc.Close True
    wdApp.Quit
    deprotectfeuille
    Range("A3:C9").Select 'sélectionne cette plage sur feuille Add
    Selection.ClearContents 'efface la sélection
    protectfeuille
    Sheets("Extrait").Select
 
    Set wddoc = Nothing
    Set wdApp = Nothing
    Application.ScreenUpdating = True
End Sub

[Heureux-oli]

Salut,

Pour le mot de passe, il se transmet dans les arguments.

Code :

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

Documents.Open Filename:="",PasswordDocument:=""

Par contre, j'ai remarqué une incohérence dans ton code.

Code :

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

1
2
3
    Dim wdApp As New Word.Application
    Dim wddoc As Word.document
    Set wdApp = CreateObject("Word.Application")

La ligne Set est en trop, dans ta déclaration tu crées déjà l'objet avec New.

Petit réflexe à avoir, il est préférable de déclarer les variables en début de procédure, suivi des affectations et enfin du 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
Sub ....
 
Dim
Dim
...
 
Set
Set
...
 
 
Le code
 
End Sub

[lenul78570]

Bonsoir Heureux-oli

Merci de ton aide et de tes judicieux conseils.

Je test tout ça jeudi et je reviens te dire "quoi"

J'espère que ton pseudo est vrai !!

Lenul

[Heureux-oli]

J'espère que ton pseudo est vrai !!

Rassure toi, il n'est absolument pas phonétique, on me l'a fait remarquer après que je l'aie choisi, mais comme je l'aime bien, je ne veux pas en changer.