Discussion :

[lenul78570]

Bonjour,
La macro ci-dessous fonctionne, mais je voudrais positionner ces éléments de texte à un endroit précis de mon document word.
Je tourne en rond depuis hier....
Si l'un d'entre vous peut m'aider ?
Merci d'avance

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
Sub Macro3()
'
' Macro3 Macro
'
 
'
 
    Range("A1").Select
    Selection.Copy
    Sheets("Feuil1 (2)").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("B1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1 (2)").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1 (2)").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("D1:E1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1 (2)").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Sheets("Feuil1 (2)").Select
    Const wdformattext = 2
    Const wdformatplaintext = 22
    Dim oWdApp As Object
    Dim oWdDoc As Object
    Set oWdApp = CreateObject("word.application")
    Set oWdDoc = oWdApp.Documents.Add
    oWdApp.Visible = True
 
 
 
    ActiveSheet.Range("a1:b4").Copy
    oWdApp.Selection.pasteandformat wdformatplaintext
    oWdDoc.SaveAs "C:\Documents and Settings\msg\Bureau\Module mailing\lettre.txt, wdformattext"
    Application.CutCopyMode = False
    Sheets("Feuil1").Select
    oWdApp.Visible = True
End Sub

[Heureux-oli]

Salut,

Le plus simple est de mettre un signet dans ton document et de sélectionner le signet.

Code :

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

1
2
ActiveDocument.bookmarks("MonSignet").Select
Selection. ...

[lenul78570]

Bonjour et merci de me répondre

Tu as certainement vu que cette macro Excel crée à chaque utilisation un nouveau document « letre.txt ».
Si tu me dis de mettre un « signet » (je ne sais pas ce que c’est… !), je crois comprendre qu’il faudrait que ma macro Excel « passe » le relais à une macro Word, quand lettre.txt est créé, pour que celle-ci place ce « signet », puis que cette macro Word « repasse » le relais à la macro d’Excel pour que celle-ci termine son travail.
Si mon scénario est bon (mais j’en doute fort…) par contre je suis incapable d’écrire les différentes lignes de commande que je dois ajouter et/ou modifier dans ma macro Excel, tout comme la rédaction de la macro Word…
Je ne suis pas « lenul » pour rien ! (pour écrire la macro que je présente, j’ai « pompé » dans différentes conversations).
A te lire et encore merci

[Heureux-oli]

Salut,

Avant d'être sauvegardé en txt, c'est un vrai document Word.
C'est juste une conversion qui est opérée.


http://heureuxoli.developpez.com/off...rd/?page=page7

Euh, ta macro Excel passe le relais à Word !

Code :

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

1
2
3
4
Dim oWdDoc As Object
    Set oWdApp = CreateObject("word.application")
    Set oWdDoc = oWdApp.Documents.Add
    oWdApp.Visible = True