Discussion :

[Thylf]

Bonsoir à tous,
Pour me faciliter la vie et celle de mes collègue je me suis lancer dans une macro d'extraction depuis excel vers word. Cependant je n'est aucune connaissance en VBA, j'ai des notions d'autre langage de programmation orienté objet alors je me suis dit : "aller jme lance ça doit pas être si compliquer". J'ai donc commencer par me renseigné sur le sujet pour avoir de bonne base, puis j'ai codé et lus des messages d'autres membres qui souhaitaient plus ou moins faire la même chose que moi.
Bon passons maintenant à mon problème, j'ai donc réaliser une macro qui marche et qui extrait la date et les cases entre 2 cellules donné avec la méthode "range" (je vous joint tout les code plus loin)[1]. Ce genre de macro marche bien pour chaque rapport qui ont les sauts de page au même endroit mais ce n'est pas toujours le cas, je suis donc partis à la recherche d'un moyens plus approprié pour automatiser avec n'importe qu'elle rapport, leur point commun étant la mise en page et la zone d'impression (impossible d'utiliser le nom zone_d_impression dans range car cela met mes 10 pages or je veux chaque page indépendantes).

j'ai donc trouver une méthode HPageBreaks qui pourrait me sauver mais je n'arrive pas à l'utiliser correctement cela m'affiche un message d'erreur.
Voici comment je l'utilise :

Code :

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

Sheets("Matrice rapport").HPageBreaks(1).Location.Offset(0, 0).Address

Si j'ai bien compris je me place dans la feuille "Matrice rapport" au saut de page n°1 sans offset car je veux la cellule suivante (j'utilise l'offset pour récupérer la cellule d'avant afin de les renseigner dans le "range"

Une dernière question la function que j'utilise pour récupérer la date me la donne sous forme de texte dans un tableau, est t'il possible de récupérer les caractères et de les mettre a la suite du texte à mon signet ?

Code [1] fonctionnel mais pas optimiser :

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
Sub extraction()
 
CopDate
CopPage1
CopPage2
CopPage3
CopPage4
CopPage5
 
End Sub
 
Function CopDate()
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
'Lancement application Word
'Référence Microsoft Word 14.0 Object Library chargée dans menu déroulant Outils
Dim aWord As Word.Application
Set aWord = CreateObject("Word.Application")
 
'Ouverture du rapport-type, rendu visible
aWord.Documents.Open ("C:\Users\TFT\Théo FEUILLET\Rapport_Type.docx")
aWord.Visible = False
 
'Copie 1 depuis Excel\Feuil1
 
Sheets("Matrice rapport").Select
Range("H54").Select
Selection.Copy
 
'Cherche "date" dans le rapport-type
aWord.Selection.Goto What:=wdGoToBookmark, Name:="date"
 
'Colle la selection au signet défini sous forme d'un texte
aWord.Selection.PasteSpecial DataType:=ppPasteDefault, Link:=False
 
'Colle la selection au signet défini sous forme d'une image
'aWord.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False
 
'Variantes Options de collage :
'- aWord.Selection.PasteAndFormat (wdPasteDefault) : copie en format tableau / ajuste à la largeur de la page word
'- aWord.Selection.Paste
'- aWord.Documents.Tables(1).AutoFitBehavior wdAutoFitWindow
 
aWord.Quit SaveChanges:=wdSaveChanges
 
 
 
End Function
 
Function CopPage1()
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
'Lancement application Word
'Référence Microsoft Word 14.0 Object Library chargée dans menu déroulant Outils
Dim aWord As Word.Application
Set aWord = CreateObject("Word.Application")
 
'Ouverture du rapport-type, rendu visible
aWord.Documents.Open ("C:\Users\TFT\Théo FEUILLET\Rapport_Type.docx")
aWord.Visible = False
 
'Copie 1 depuis Excel\Feuil1
Sheets("Matrice rapport").Select
Range("A72:J138").Select
Selection.Copy
 
'Cherche "ici" dans le rapport-type
aWord.Selection.Goto What:=wdGoToBookmark, Name:="ici1"
 
 
'Colle la selection au signet défini sous forme d'une image
aWord.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False
 
'Variantes Options de collage :
'- aWord.Selection.PasteAndFormat (wdPasteDefault) : copie en format tableau / ajuste à la largeur de la page word
'- aWord.Selection.Paste
'- aWord.Documents.Tables(1).AutoFitBehavior wdAutoFitWindow
aWord.Quit SaveChanges:=wdSaveChanges
 
 
End Function

Code [2] avec la tentative rater

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
Function CopPage1()
 
'déclaration des variables pour la selection
Dim celDeb As Cell
Dim celFin As Cell
 
'on recherche la cellule le saut de page n°(x) et on la place dans notre variable
'Mieux déclarer mes variable ESSAIE SANS DECLA 
Sheets("Matrice rapport").HPageBreaks(1).Location.Offset(0, 0).Address = celDeb
Sheets("Matrice rapport").HPageBreaks.Item(2).Location.Offset(-1, 10).Adress = celFin
 
 
 
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
'Lancement application Word
'Référence Microsoft Word 14.0 Object Library chargée dans menu déroulant Outils
Dim aWord As Word.Application
Set aWord = CreateObject("Word.Application")
 
'Ouverture du rapport-type, rendu visible
aWord.Documents.Open ("C:\Users\TFT\Théo FEUILLET\Rapport_Type.docx")
aWord.Visible = False
 
'Copie 1 depuis Excel\Feuil1
Sheets("Matrice rapport").Select
Range("celDeb:celFin").Select
Selection.Copy
 
'Cherche "ici" dans le rapport-type
aWord.Selection.Goto What:=wdGoToBookmark, Name:="ici1"
 
 
'Colle la selection au signet défini sous forme d'une image
aWord.Selection.PasteSpecial , Link:=False, DataType:=wdPasteEnhancedMetafile, DisplayAsIcon:=False
 
'Variantes Options de collage :
'- aWord.Selection.PasteAndFormat (wdPasteDefault) : copie en format tableau / ajuste à la largeur de la page word
'- aWord.Selection.Paste
'- aWord.Documents.Tables(1).AutoFitBehavior wdAutoFitWindow
aWord.Quit SaveChanges:=wdSaveChanges
 
 
End Function

Voilà voilà,
Merci pour votre aide !

[mercatog]

Tu dois inverser les affectation

celdeb=.....


Tes déclarations sont archaiques


Je ferai comme ceci

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
Sub CopPage1()
Dim celDeb As String, celFin As String
Dim aWord As Object    'Late binding
 
With Worksheets("Matrice rapport")
    If .HPageBreaks.Count > 1 Then
        celDeb = .HPageBreaks(1).Location.Address
        celFin = .HPageBreaks(2).Location.Offset(-1, 10).Address
        .Range(celDeb & ":" & celFin).Copy
        Set aWord = CreateObject("Word.Application")
        With aWord
            .Documents.Open "C:\Users\TFT\Théo FEUILLET\Rapport_Type.docx"
            .Visible = False
            .Selection.Goto What:=-1, Name:="ici1"
            .Selection.PasteSpecial , Link:=False, DataType:=9, DisplayAsIcon:=False
            .Quit SaveChanges:=True
        End With
        Set aWord = Nothing
    End If
End With
End Sub

EN late binding, pas besoin d'activer le référence MS-W

[Menhir]

Si le bookmark est correctement placé sur le texte à remplacer par la donnée Excel, inutile d'utiliser un Goto.
Un exemple d'utilisation dans ce sujet : https://www.developpez.net/forums/d1...ts-mise-forme/

[mercatog]

Bonjour

J'ajoute que le code tel présenté au # nécessite l'ouverture/ fermeture de word dans chaque sous sub avec sauvegarde et création d'instance word

C'est loin d'être une bonne idée.

[Thylf]

Bonjour,

Merci de votra aide je vais regarder tout ça.
Pour l'ouverture et la fermeture de word, c'était pout moi un moyen de contourner un problème ; lorsque j'éssayais d'écrire dans un word déjà ouvert a l'aide de la macro, je lui demandais d'ouvrir encore une fois word car je ne sais pas écrire dans un word déjà ouvers.

[mercatog]

Pour l'ouverture et la fermeture de word, c'était pout moi un moyen de contourner un problème ; lorsque j'éssayais d'écrire dans un word déjà ouvert a l'aide de la macro, je lui demandais d'ouvrir encore une fois word car je ne sais pas écrire dans un word déjà ouvers.

Il suffit de l'ouvrir une seule fois et d'y travailler. Tu peux pour cela utiliser des sub paramétrées.

Commence par adapter et tester et on ira pas à pas par la suite