Discussion :

[phiiris]

Bonjour.

Je voudrais, inscrire et ensuite lire une variable dans un fichier .ini mais je ne me souviens plus de la procédure.

Ce que je veux faire : inscrire des dates successives sur des nouvelles pages word à partir d'une date donnée. Page 1 : 12/11/2010 , page 2 : 13/11/2010, page 3 : 14/11/2010 etc.

Comment j'ai pensé faire : inscrire la dernière date utilisée dans un fichier ini et lors de l'utilisation de ma macro ajouter 1 à cette date et l'inscrire sur ma nouvelle page. Enregistrer le fichier ini avec cette nouvelle date.

Problème : je ne connais plus la méthode

[Heureux-oli]

Salut,

Peut-être un début de réponse là : http://warin.developpez.com/access/fichiers/

As-tu essayé de simplement ouvrir le fichier, récupérer la date, selectionner le tout, supprimer et ajouter la nouvelle date ?

[phiiris]

C'est con, j'ai fait in illo tempore une programme en wordbasic avec ce genre de truc, pas moyen de le refaire.
Bon, j'ai contourné le problème et ai finalement trouvé une solution qui, je l'espère, devrait aller : j'ai intégré un fichier dans lequel j'ai le le mot @@@ que je remplace par x dates successives à partir d'une date au choisie via un imputbox. Bon c'est pas tout à fait ça, mais c'est mieux que rien.
Merci pour tes conseils.

[Heureux-oli]

Salut,

Pourquoi ne pas utiliser une variable document ?

[phiiris]

Salut Oli.
Je suis un peu géné de la réponse que je dois te donner : parce que je ne sais pas ce que c'est !

Je vais essayer de retrouver ce que j'avais, à l'époque, appeler une routine de référencement, c'était de wordbasic, tu me diras si c'est encore d'actualité mais je crains que ta réponse soit négative.

[Heureux-oli]

Salut,

J'ai un tuto en magasin.
http://heureuxoli.developpez.com/office/word/variables/

[phiiris]

Je lis ça ce WE. Tant pis pour le barbecue !
Pour info, voici la macro que j'ai pondue :

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
Sub Nouvelles_pages()
'
' Nouvelles_pages Macro
''
On Error GoTo fin
Dim i
Dim j
Dim d As Date
d = InputBox("date première nouvelle page")
j = InputBox("nombre de pages")
For i = 0 To j - 1
Selection.EndKey Unit:=wdStory
 'Selection.InsertBreak Type:=wdPageBreak
        Selection.InsertFile FileName:= _
        "w:\Documents\consignes.dotx" _
        , Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "@@@"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.TypeText Text:="Date : "
d = Format(d, "dd/mm/yyyy")
Selection.TypeText (d + i)
Next
fin:
End Sub

J'attends les commantaire de mon commanditaire (mon fils).

Merci à toi

[Heureux-oli]

Salut,

Pour le BBQ : www.buienradar.be

St Hubert s'y trouve