Discussion :

[sunvialley]

Bonjour,

j'ai un modèle word (format .dot) que je voudrais lancer depuis Access. Pour le moment je n'arrive qu'à l'ouvrir.
Pour moi je fais la différence entre :
- ouvrir un fichier .dot qui permet de modifier un modèle (donc on travaille sur le .dot lui même)
- exécuter une fichier .dot, qui en fait correspond à l'action nouveau et qui crée automatiquement un nouveau fichier word (format .doc).

Je voudrais donc créer un fichier .doc depuis ce modèle, effectuer quelques modification (genre, sur mon modèle j'ai "Titre", le remplacer par une certaine valeur") puis enregister ce fichier word à un endroit bien précis.

PS : j'utilise la méthode shellexecute...

Merci.

[pgz]

Bonjour,

Juste une piste.
Je pense qu'il faut que tu crées ton document et que tu y attaches ensuite le modèle. Regarde

Code :

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

WorkBook.AttachedTemplate = ...

En espérant que cela t'aide.

pgz

[scorpion1611]

En m'inspirant de

http://access.developpez.com/sources...ipostageSignet

j'utilise cette manière :

Code :

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

1
2
3
4
 
 
 
wdapp.Documents.Add Template:="C:\...le chmin de ton document...\tondocument.dot", NewTemplate:=False, DocumentType:=0

au lieu de

Code :

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

wdapp.Documents.Open "j:\Doc_Atelier\td138\td138_gdt.doc"

et ca marche très bien

[sunvialley]

ok merci

j'ai donc fait comme ca. Au début je voulais laisser ouvert le fichier word crée pour laisser la main à l'utilisateur. Mais si on ne ferme pas l'application word, on se retrouve avec des problèmes de concurence de fichier (lecture seule, fichier utilisé par une autre application)

Donc au final, je crée le .doc, je ferme la wordApplication, et j'ouvre le fichier .doc


Maintenant me reste à modifier le contenu de mon fichier word...

[sunvialley]

j arrete pas de faire planter access.
En gros j'ai fait une macro sous word qui fait appel à la fonction remplacer.
Je copie le code dans Access (en défissant un objet wordApplication)... et ca plante tout

Quelle est la meilleur méthode pour remplacer du texte dans un word existant ?

merci

[sunvialley]

Je trouve pas l'erreur...

ca plante sur la ligne ".Selection.Find.ClearFormatting" de ce code :

Code :

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

1
2
3
4
5
6
7
8
Sub Word_Remplacer_texte(Texte_à_remplacer As Variant, Texte_de_remplacement As Variant, Tout As Boolean)
  
With Word_Application
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With .Selection.Find
        .Text = Texte_à_remplacer
        .....

cette fonction est appelée après la création du fichier .doc (qui marche) et la récupération du l'objet par cette méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Word_Création_Lien_OLE()
 
On Error Resume Next 
 
Set Word_Application = GetObject(, "Word.Application")
If Err.Number <> 0 Then
   Set Word_Application = CreateObject("Word.Application")
End If
 
Err.Clear ' Efface l'objet Err au cas où une erreur s'est produite.
 
End Sub

Le problème peut venir du fait que le document word n'est pas actif à ce moment là (il est bien ouvert, il apparait à l'écran, mais c'est le formulaire access qui lance les procedures qui est considéré comme actif dans windows).

J'ai essayé de passer par shellExecute puis getObject... mais ca me donne des incompatibilité de type.

En gros, comment faire ?

[sunvialley]

HELP ME.

Je n'y arrive toujours pas.
J'ai essayé de passer par un autre moyen, cad, créer une macro dans mon modèle.
Comme ca, le fichier .doc généré possède cette macro et je peux y faire appel. J'ai tester en appelant directement la macro sans paramètre et ca marche :

Code :

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

1
2
3
4
5
Set wdapp = CreateObject("Word.application")
    wdapp.Visible = True
    wdapp.Documents.Add Template:=cheminModele, NewTemplate:=False, DocumentType:=0
    wdapp.Run MacroName:="remplacer"
    ...

Sans paramètre ca marche nickel (les valeurs à rechercher et remplacer etant en dur dans la macro).

Mais dès que je veux passer des paramètrescela me dit que je ne peux pas executer la macro, peu etre une histoire de guillement ou de type de méthode (pourtant j'ai déjà fait des ajout d'évènement sur des controls de facon dynamique, et la synthaxe des guillemet marchait). En gros ce truc plante :

Code :

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

1
2
3
...
wdapp.Run MacroName:="remplacer(""titre de la procédure"", ""XXXX"" )"
...

Si quelqu'un avait ne serait ce qu'une idée...
Merci

[sunvialley]

C'est bon, tous les exemples que j'ai pu voir n'avait pas de paramètre. En fait l'appel se fait différement, cad le nom comme 1er parametre, puis les parametre de la macro :

Code :

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

Call wdapp.Run("remplacer", "titre de la procédure", "XXXX")

Merci bien.