Discussion :

[moh77]

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 :

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
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

[clementmarcotte]

Bonjour,

Commence par virer ton

Code :

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

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 (#))

[moh77]

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.

[moh77]

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 :

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
        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.