exporter des cellules excel sur des endroits spécifiques d'un document word a travers VBA

bonjour tout le monde;
Bonjour tout le monde ;
Etant donné que je suis nouveau en programmation VBA sur Excel , je souhaite l’aide d’un expert en VBA ;
Mon problème c’est que je souhaite exporter le contenue de quelque cellule du sheets1 vers des endroits spécifiques sur Word
Je me suis arrivé à exporter la première valeur vers l’emplacement souhaité sur world , puis c'est le désordre et des fois il me l’exporter directement dernier le premier export est non pas sur les emplacements souhaités.
Je m’en doute fort ,mais j’espère que été claire .
Voici mon code:

Code:

---

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

Sub Donnees_ChampWord() 'Nécessite d'activer la référence "Microsoft Word xx.x Object Library" Dim WordApp As Word.Application Dim WordDoc As Word.Document   On Error Resume Next   'ouvre session word Set WordApp = CreateObject("Word.Application") 'ouvre du document Word Set WordDoc = WordApp.Documents.Add   WordApp.Visible = True With WordDoc .Application.Selection.Find.Text = "#1" .Application.Selection.Find.Execute .Application.Selection.InsertAfter Range("E2") .Application.Selection.Find.Text = "#2" .Application.Selection.Find.Execute .Application.Selection.InsertAfter Range("B2") End With   'WordDoc.Close True 'ferme la session Word 'WordApp.Quit End Sub

---

Bonjour,

Commence par virer ton

Code:

---

On error resume next

---

Puis exécute ta macro au pas à pas.

Ceci dit, as-tu-vraiment besoin d'une macro pour faire cela ? Personnellement, je ne suis absolument pas sûr que ce soit nécessaire.

P.S. Également, indente et balise ton code svp. (tu le sélectionnes et tu cliques sur le dièse (#))

Bonjour ;
Effectivement que j'en ai besoin de cette macro.
Pour plus de détail cette macro a pour objective d’aider l’assistante d’un dpt.
Vue le nombre d’effectif et la nature de notre travail ,je voulais exporter les nom et prénom dte départ dte retour et tous les données relative d'un X depuis Excel vers des endroits spécifique (#i)d'un ordre mission .doc .
Merci beucoup pour le support.

Bonsoir ;
j’ai découvré un autre problème dans le calcul des frais :

En fait j’ai créés un formulais pour remplir tous les donné à propos d'une mission X .
Pour le calcul des frais Ça m’affiche un message d’erreur 6 " dépassement de capacité"si je dépasse une certains valeurs ,malgré que j’ai déclaré la variable frais as public long.

ci-dessous mon code:

Code:

---

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

Dim Y_No As String Dim nbr_nuits As Integer   Sheets("Request OM").Select Range("A2").Select     Selection.End(xlDown).Select ActiveCell.Offset(1, 5).Value = CDate(TBdte_depart.Value) ActiveCell.Offset(1, 5).NumberFormat = "dd/mm/yyyy" ActiveCell.Offset(1, 6).Value = CDate(TBdte_Retour.Value) ActiveCell.Offset(1, 6).NumberFormat = "dd/mm/yyyy" ActiveCell.Offset(1, 1).Value = CBNom_Prénom ActiveCell.Offset(1, 2).Value = CBFunction ActiveCell.Offset(1, 3).Value = CBlieu_Mission ActiveCell.Offset(1, 4).Value = Now() ActiveCell.Offset(1, 7).Value = CBmotif_mission ActiveCell.Offset(1, 8).Value = CBvéhicule ActiveCell.Offset(1, 0).Value = ActiveCell.Value + 1 nbr_nuits = (ActiveCell.Offset(1, 6).Value) - (ActiveCell.Offset(1, 5).Value)   If ActiveCell.Offset(1, 2) = "Manager Transmission" Then frais = (nbr_nuits * 12000) + ((nbr_nuits + 0.5) * 1600) Else If ActiveCell.Offset(1, 2) = "Driver" Then frais = nbr_nuits * 6000 + (nbr_nuits + 0.5) * 1200 Else frais = nbr_nuits * 8000 + (nbr_nuits + 0.5) * 1400 End If End If     If ActiveCell.Offset(1, 5).Value = ActiveCell.Offset(1, 6).Value Then   Y_No = UCase(InputBox("est ce que ça dépasse 150km? Yes or NO"))   If Y_No = "NO" Then frais = 0   End If   End If   ActiveCell.Offset(1, 9).Value = frais

---

pour la variable frais je l"ai déclaré as public long dans le module


Merci beaucoup pour votre attenion.