Discussion :

[graphikris]

Bonjour,

Je cherche une macro me permettant de copier des données (pourcentages calcul grace à une formule) puis de coller le résultat (collage spécial) à un endroit bien précis dans une lettre faite avec Word.

Ex : Dans Excel => De A1:A100, j'inscris aléatoirement "OUI" ou "NON"
En A101 :

Code :

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

=NB.SI(A1:A100;"oui")/100

Format de cellule : Pourcentage.

Ce qui me calcule le pourcentage de "OUI" par rapport au "NON", par exemple : 64%

Ensuite, la macro doit ouvrir une lettre type déjà tapée sur Word et à un endroit précis du texte de cette lettre, le résultat doit venir se coller.

Ex : Dans Word => Monsieur XXXX, veuillez constater que le pourcentage de "OUI" s'élève à 64% pour le mois d'octobre 2012.

Quelqu'un saurait il me dépatouiller de cette galère ?

Cordialement,
Graphikris.

[Invité]

Salut graphikris

Voici un code que j'utilise au boulot, à adapter

Il faut activer la référence "Microsoft Word xx.x Object Library"

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
  ' Chemin d'accès du document Word
  VPath = ThisWorkbook.Path & "\"
  ' Nom du fichier
  VFic = "fichier_modele.doc"
  ' Créer une instance de Word
  Set AppWd = New Word.Application
  ' Ouvrir le fichier et Afficher l'application
  AppWd.Documents.Open VPath & VFic
  AppWd.Visible = True
  Set WdDoc = AppWd.ActiveDocument
  ' Se positionner sur la balise <TABLEAU> qui est inscrite dans le document Word
  With AppWd.Selection.Find
    .ClearFormatting
    .Text = "<TABLEAU>"
    .MatchWildcards = False
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
  End With
  AppWd.Selection.Find.Execute
  ' Copier le tableau de la feuille "Rappels" dans excel
  With Sheets("Rappels")
    DLigR = .Range("F" & Rows.Count).End(xlUp).Row
    .Range("A1:F" & DLigR).Copy
    ' Le coller dans Word
    AppWd.Selection.Paste
  End With

J'espère que ce code sera assez explicite

A+

[graphikris]

Bjr et merci,
je vais essayé de bidouiller ton code afin de l'adapter à ce que je veux faire.
Je te tiens au courant (abonnes toi à la discussion de mon post).

Cordialement
Graphikris.

N'arrivant pas à adapter ce code aimablement envoyé, je recherche a nouveau quelqu'un qui saurait faire car dans le code transmis, c'est pour coller un tableau mais pour mon post, c'est des chiffres à différents endroits dans le fichier Word.
Si vous désirez que je vous transmette les 2 fichiers (excel et word), demandez le moi.

Cordialement,
Graphikris.

[Invité]

Désolé,

Je ne l'avais pas compris ainsi

Tu peux donc utiliser ceci à la place

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
' Chemin d'accès du document Word
  VPath = ThisWorkbook.Path & "\"
  ' Nom du fichier
  VFic = "fichier_modele.doc"
  ' Créer une instance de Word
  Set AppWd = New Word.Application
  ' Ouvrir le fichier et Afficher l'application
  AppWd.Documents.Open VPath & VFic
  AppWd.Visible = True
  Set WdDoc = AppWd.ActiveDocument
  ' Inscrire la valeur à la place de la balise <POURCENTAGE>
  VTemp = Format(Range("A1"),"0.00%")
  Ecriture_balise "POURCENTAGE", VTemp

La Sub d'écriture

Code :

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

1
2
3
4
5
6
7
'Sélection et remplacement de toutes les balises du modèle word associées à la ligne par la chaîne de caractères associée
Sub Ecriture_balise(LibBalise As String, ValBalise As String)
  Dim Balise As String
  Balise = "<" & LibBalise & ">"
  ' Remplacement de "<Balise>" par "Valeur_balise" dans le document
  WdDoc.Content.Find.Execute FindText:=Balise, ReplaceWith:=ValBalise, Replace:=wdReplaceAll  'Remplacement"
End Sub

A+

[graphikris]

Merci,
mais c'est quoi la Sub écriture ?
Je place où les modules ?
Excel, Word ?

Cordialement

[Invité]

Whouaouuuu, indique le dans ta signature que tu es débutant

Dans un MODULE
Tu crées un Sub Toto()
Dans laquelle tu mets le premier code
Ensuite tu copie et colles la sub écriture à la fin du même module

Dans ton modèle Word tu mets les balises souhaitées en écrivant entre "<" & ">" le nom de la balise

Tu n'as plus qu'à lancer le code de la première sub

a+