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
| Sub M07_Rédaction_MSG_Admissibilité_OAES() ' Macro enregistrée le 01/05/2014
'Dim fin&, i&, X&, aa As Variant, A&, n&, suite As Boolean, t$
'** Mettre le filtre en ligne 10.
Sheets("Prépa_Msg_Bo").Select
Rows("10:10").Select
Selection.AutoFilter
'** Filtrer sur la colonnes "A" que les lignes non vides.
Selection.AutoFilter Field:=1, Criteria1:="<>"
'*** Sélectionner dans la colonne "F" la valeur "OAES - 1" correspondant au candidats admissibles.
Selection.AutoFilter Field:=7, Criteria1:="OAES - 1"
' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'*** Ouvrir le document Word et lance la macro word (éventuellement :wrdApp.Run "Coller_Données_Excel_Msg")
Dim wrdApp As Object
Set wrdApp = CreateObject("Word.Application")
Dim wrdDoc As Object
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("D:\OaeaEs\08_DIFFUSSIONS_RESULTATS\81_Messages_Bo\811_Préparations_Bo\Doc2.doc")
'*** Renseigner l'objet du message.
'* Rechercher le Signet1 de Doc2 et coller le contenu de la cellule "A27" (zone nommée "Obj1") dans la feuille "Prépa_Msg_Bo".
wrdDoc.Bookmarks("Signet1").Range.Text = Range("A27")
'* Rechercher le Signet1 de Doc2 et coller le contenu de la cellule "A28" (zone nommée "Obj2") dans la feuille "Prépa_Msg_Bo".
wrdDoc.Bookmarks("Signet2").Range.Text = Range("A28")
'*** Renseigner le ou les références du message.
'* Rechercher le Signet1 de Doc2 et coller le contenu de la cellule "A29" (zone nommée "Ref1") dans la feuille "Prépa_Msg_Bo".
wrdDoc.Bookmarks("Signet3").Range.Text = Range("A29")
'* Rechercher le Signet1 de Doc2 et coller le contenu de la cellule "A30" (zone nommée "Ref2") dans la feuille "Prépa_Msg_Bo".
wrdDoc.Bookmarks("Signet4").Range.Text = Range("A30")
'*** Sélectionne la zone à copier de la feuille "Prépa_Msg_Bo" pour le Signet5 de Doc2 correspondant au TEXTE du Msg.
Sheets("Prépa_Msg_Bo").Select
Range("A10:A800").Select
Selection.Copy
'Puis lancer la macro du fichier Doc2 qui colle les données (A10:A800).
wrdApp.Run "Coller_Données_Excel_Msg" ' Cette macro est insérer dans mon Doc2.doc
Range("G1").Select
End Sub |
Partager