[WD-2003] Insérér des valeurs dans un tableau depuis excel [Résolu]

[Hypo78]

Bonjour à tous,

je suis plutôt un habitué des forums Excel, et du coup complètement novice dans le VBA avec Word.

Ce que je souhaite obtenir:

Lorsque j'enregistre mon document, son nom fait référence à une date saisie via une inputbox. Je voudrais que cette date de référence soit saisie à un endroit bien précis dans mon document.

Ma question : comment on construit ce genre de chose? Champs ou autre?

Merci de me guider pour ces débuts.

[Heureux-oli]

Salut,

Le tout est de savoir si tu souhaites faire d'autres utilisation de cette date.

Plusieurs choix au moins deux, un champ ASK ou une InputBox ?

Pour le champ ASK : http://heureuxoli.developpez.com/off...hamps/#LIV-F-6

Pour le InputBox, il faut envoyer le resultat sur un signet, ou dans un champ.

Code :

ActiveDocument.Bookmarks(1).Range.Text = InputBox("Entrez une valeur ")

Si le signet est un point d'insertion, la valeur ne sera pas remplacée mais ajoutée, si le signet contient quelque chose, il sera détruit.

[Hypo78]

Bonjour,

merci pour ton aide, mais étant vraiment débutant, je t'avouerai que tout n'est pas très clair

Je prépare un petit fichier exemple avec ma macro actuelle, et je post çà rapidement.

Encore merci

Edit : j'ai ajouté mon nom de famille.... Drôle de hasard

[Hypo78]

re,

en pièce jointe le document.

j'ai créé une macro pour insérer la date du jour et la date du lendemain via Inputbox sur un signet (pour comprendre comment çà fonctionne), maintenant il faudrait l'intégrer à ma boucle lors de la création des doc sans passer par ces Inputbox

Merci d'avance de l'aide que tu pourras m'apporter.

[Hypo78]

je pense que j'y suis presque avec ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub Creation_doc_mois()
 
 
    Année = InputBox("Saisir l'année sous la forme aaaa")
    Mois = InputBox("Saisir le mois à créer sous la forme mm")
    Jours = DateAdd("m", 1, DateSerial(Année, Mois, 1)) - DateSerial(Année, Mois, 1)
 
 
    With ActiveDocument
    For i = 1 To Jours
    ActiveDocument.Bookmarks(1).Range.Text = Format(DateSerial(Année, Mois, i), "dd/mm/yyyy")
    ActiveDocument.Bookmarks(2).Range.Text = Format(DateSerial(Année, Mois, i + 1), "dd/mm/yyyy")
    ActiveDocument.SaveAs FileName:=ThisDocument.Path & "\" & Format(DateSerial(Année, Mois, i), "yymmdd") & "_Modèle_" & Format(DateSerial(Année, Mois, i), "ddmmyyyy") & ".doc", _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
    Next i
    End With
End Sub

Le seul problème c'est que lors de l'exécution de la macro, il me cumule les dates des doc précédent au niveau des signets. Je pense que c'est dû à ActiveDocument qui fait référence au document que l'on vient de créer et du coup il ne part plus du modèle....

Une solution?

[Heureux-oli]

Salut,

Va falloir attendre un peu, mon DMZ ne permet pas le téléchargement du fichier.

Mais on peut par exemple utiliser un signet S1 dans le document.
La macro doit être mise sur un modèle pour qu'elle réagisse à l'évènement New

Code :

1
2
3
Sub Document_New()
ActiveDocument.Bookmarks("S1").Range.Text = DateAdd("d",1,Date())
End Sub

[Hypo78]

Re,

pas de pb, je vais être patient.

Nos réponses ont dû se croiser, j'ai mis mon code dans le post précédent.

Cordialement

[Heureux-oli]

Salut,

Va falloir attendre un peu, mon DMZ ne permet pas le téléchargement du fichier.

Mais on peut par exemple utiliser un signet S1 dans le document.
La macro doit être mimse sur un modèle pour qu'elle réagisse à l'évènement New

Code :

1
2
3
Sub Document_New()
ActiveDocument.Bookmarks("S1").Range.Text = DateAdd("d",1,Date())
End Sub

[Hypo78]

Dois-je comprendre avec cette même réponse, que la solution est là??

Parce que çà correspond à ce que j'ai fait plus haut et mon pb subsiste.

J'ai vu dans cet autre post auquel tu participes un élément de réponse mais comment l'adapter à ma macro?

http://www.developpez.net/forums/d48...truire-signet/

Cordialement

[Heureux-oli]

Salut,

Comme j'ai procédé par étapes, j'ai refait le code base sur la date du jour.

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
 
Sub docPourTousLesJoursDuMois()
'Déclaration des variables
Dim dteStart As Date
Dim dteEnd As Date
Dim dteInterm As Date
 
 
'Datde début date du jour
dteStart = Date
'Définition des extrémités de la boucle
'Date de fin = date du jour + 1 mois
dteEnd = DateAdd("m", 1, dteStart)
'définition du premier jour du mois
dteStart = DateSerial(Format(dteStart, "yyyy"), Format(dteStart, "mm"), 1)
'définition du premier jour du mois suivant
dteEnd = DateSerial(Format(dteEnd, "yyyy"), Format(dteEnd, "mm"), 1)
 
Debug.Print dteStart & "  ---   " & dteEnd
'Boucle sur tous les jours du mois et pas le premier du mois suivant
For dteInterm = dteStart To dteEnd - 1
Documents.Add 'Ici le chemin du modèle
Selection.TypeText " Du " & Format(dteInterm, "dd/mm/yyyy") & " Au " & Format(DateAdd("d", 1, dteInterm), "dd/mm/yyyy")
ActiveDocument.SaveAs2 FileName:="C:\Temp\" & Format(dteInterm, "yymmdd") & " -doc- " & Format(dteInterm, "dd-mm-yyyy"), fileformat:=wdFormatDocument
ActiveDocument.Close
 
 
Debug.Print dteInterm
Next dteInterm
 
End Sub

Je n'ai pas utilisé de signet, mais le principe reste le même, au lieu de TypeText, on affecte les données à un signet.

Le code et le modèle de document ne doivent pas être ensemble, par exemple le code dans le normal.dot et le modèle à un autre endroit.

Su tu utilises le code tel quel, il va créer autant de document qu'il y a de jours dans le mois courant et sauver tous ces documents dans le c:\temp

[Hypo78]

Merci pour ta réponse,

avec un collègue on bosse dessus depuis ce matin et on avait eu la même idée (2 fichiers).

Notre code (qui pourrait servir à d'autres....)

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
45
46
47
48
49
50
51
52
53
54
55
56
57
 Sub Creation_doc_mois()
 
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
 
    Dim NewDoc As Document
 
1   année = InputBox("Saisir l'année sous la forme aaaa", "CODIS78 - ADJ LEBEAU")
    If année = "" Then Exit Sub
    If Not année Like "####" Then
     MsgBox ("Saisir sous la forme aaaa")
     GoTo 1
    End If
 
2    mois = InputBox("Saisir le mois à créer sous la forme mm")
    If mois = "" Then Exit Sub
    If Not mois Like "##" Then
     MsgBox ("Saisir sous la forme mm")
    GoTo 2
    End If
    Jours = DateAdd("m", 1, DateSerial(année, mois, 1)) - DateSerial(année, mois, 1)
 
     Deb = Timer:
 
    For i = 1 To Jours
    Set NewDoc = Application.Documents.Open(ActiveDocument.Path & "\Bulletin.doc")
 
    With NewDoc
    .Bookmarks("date_jour").Range.Text = Format(DateSerial(année, mois, i), "dd/mm/yyyy")
    .Bookmarks("date_lendemain").Range.Text = Format(DateSerial(année, mois, i + 1), "dd/mm/yyyy")
 
    .Bookmarks("année_cours").Range.Text = Format(DateSerial(année, mois, i), "yyyy")
    .Bookmarks("année_prec").Range.Text = Format(DateSerial(année - 1, mois, i), "yyyy")
    .Bookmarks("année_prec2").Range.Text = Format(DateSerial(année - 1, mois, i), "yyyy")
    .Bookmarks("mois_cours").Range.Text = Format(DateSerial(année, mois, i), "mmmm")
    .Bookmarks("mois_cours2").Range.Text = Format(DateSerial(année, mois, i), "mmmm")
 
 
 
 
    .SaveAs FileName:=ThisDocument.Path & "\" & Format(DateSerial(année, mois, i), "yymmdd") & "_Activitépompier78_" & Format(DateSerial(année, mois, i), "ddmmyyyy") & ".doc", _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
        .Close
    End With
    Cpt = Cpt + 1
    Next i
    Application.ScreenUpdating = True: Application.DisplayAlerts = True
    MsgBox "Traitement Terminé" & vbLf & _
         Cpt & " BRQ créés" & vbLf & _
         "en " & Format(Timer - Deb, "0.00") & " Secondes"
End Sub
 
Private Sub CommandButton1_Click()
Call Creation_doc_mois
End Sub

Je vais décortiquer ton code pour voir comment on peut se passer de signet.

Dernière question, pour le même fichier je souhaiterai récupérer des données dans un tableau excel pour les insérer dans mon doc.
Quelle est la méthode la plus adaptée.

Cordialement.

[Heureux-oli]

Salut,

Excuse moi, mais si on souhaite être complet, pour moi c'est ADC LEBEAU et pas ADJ !

[Hypo78]

c'est vrai?? le hasard irait encore plus loin que l'homonyme??

Un p'tit coup de main pour finir mon projet?

Merci d'avance

[Hypo78]

suis-je sur la bonne piste??

Code :

1
2
3
4
5
 Dim ExcelApp As Excel.Application
    Dim ExcelClasseur As Excel.Workbooks
 
Set ExcelApp = CreateObject("excel.application")
Set ExcelClasseur = ExcelApp.Workbooks.Open("C:\Documents and Settings\lebeau_t\Mes documents\BRQ_Word\stat_brq.xls")

La macro bloque sur mon 2ème Set....

[Heureux-oli]

Salut,

Si tu pars du principe de la déclaration précoce "EarlyBinding", tu ne dois pas utiliser CreateObject.

Dans Outils - Référence
Choisis la bibliothèque Excel.

Code :

1
2
3
4
5
Dim ExcelApp As Excel.Application
    Dim ExcelClasseur As Excel.Workbooks
 
Set ExcelApp = New Excel.application
Set ExcelClasseur = ExcelApp.Workbooks.Open("C:\Documents and Settings\lebeau_t\Mes documents\BRQ_Word\stat_brq.xls")

Tu pourrass bénéficier de l'intellisense qui est une aide à la saisie de code.

[Hypo78]

j'ai remplacé par ton bout de code, et j'ai le message suivant au débogage :

incompatibilité de type, erreur d’exécution 13

la bibliothèque excel est bien activée.

Une idée?

[Heureux-oli]

Salut,

Oui.

Code :

Dim ExcelClasseur As Excel.Workbook

Sans le S à WorkBook

[Heureux-oli]

Envoyé par Hypo78

c'est vrai?? le hasard irait encore plus loin que l'homonyme??

Un p'tit coup de main pour finir mon projet?

Merci d'avance

Salut,
J'avais pas vu Sapeur Pompier !
Tu fais un beau métier, le mien est beaucoup moins risqué.

[Hypo78]

effectivement sans le S c'est bcp mieux.

Faisons le point :

j'arrive à ouvrir mon classeur excel, à y prendre une valeur de cellule et la coller sur un signet.

Comment coller 5 lignes d'un tableau excel dans 5 lignes d'un tableau Word? sans créer autant de signet que de cellules?

Merci d'avance

[Heureux-oli]

Salut,

Les signets fonctionnent très bien, mais on atteint vite les limites.
Ce qui est possible, c'est un copier coller des cellules de Excel vers Word.

On peut aussi simplement utiliser un tableau Word pour injecter les données.
On adresse un tableau Word de la même manière qu'en Excel.

Code :

1
2
3
4
5
Dim oTbl As Table
 
Set oTbl = ActiveDocument.Tables(1)
 
oTbl.Cell(1,1).Range.text = ExcelClasseur.Range("A1")