Discussion :

[jacda]

Bonjour à tous et bonne année!!

Le problème que je rencontre me laisse perplexe.

J'effectue depuis pas mal de temps déjà avec une macro excel un publipostage vers word:

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
 
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim vDossierdestination As String
Dim vDossierSource As String
 
vDossierSource = "C:\docs_fichier_adherents\fichiers_source\"
vDossierdestination = "C:\docs_fichier_adherents\annee_en_cours\ "
 
 
For i = 3 To dl
 
Set wordApp = CreateObject("Word.application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add(vDossierSource & "rappel_annee_en_cours.doc")
 
With wordDoc.ActiveWindow.Selection
               .HomeKey Unit:=wdStory
               'j'ajoute ici du texte avec plusieurs .TypText et .MoveDown
End With
 
vDate = Year(Date) & Month(Date) & Day(Date)
vNomDoc = vNom & " " & vPrenom & " recu " & vAnnee
 
wordDoc.SaveAs (vDossierdestination & vNomDoc)
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing
 
'temporisation pour laisser a word le temps de fermer
Application.OnTime Now, "temporisation", Now + TimeValue("00:00:02")
 
Next i

Le problème est que depuis un formatage de mon ordi et réinstallation de la suite office 2003, cela ne fonctionne plus.

Après la création du premier document word, le message suivant apparaît:
"Normal.dot est en cours de modification dans une autre session Word. Si vous l'enregistrez sous son nom original, vous écraserez les modifications apportées dans l'autre session. Enregistrez quand même sous son nom original?"

Ce message apparaît à chaque nouvelle création de fichier.

Je rajoute que j'ai supprimé le fichier normal.dot pour restaurer la configuration par défaut mais sans effet.

Quelqu'un a-t-il une idée de l'origine du problème?

P.S: J'ai bien activé la référence Word 11.0 Object Library, y a-t-il une autre configuration à effectuer que j'ai oubliée?

Merci d'avance et encore bonne année à tous!!

[Heureux-oli]

Salut,

Je pense mais sans certitude que c'est une option demandant la sauvegarde des dmodification de ton normal.dot qui est activée dans les options de Word.

Pour ton code, il es possible de faire quelques gains.

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
 
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim vDossierdestination As String
Dim vDossierSource As String
 
vDossierSource = "C:\docs_fichier_adherents\fichiers_source\"
vDossierdestination = "C:\docs_fichier_adherents\annee_en_cours\ "
 
Set wordApp =  New Word.application
wordApp.Visible = True 
For i = 3 To dl
 
 
Set wordDoc = wordApp.Documents.Add(vDossierSource & "rappel_annee_en_cours.doc")
 
With wordDoc.ActiveWindow.Selection
               .HomeKey Unit:=wdStory
               'j'ajoute ici du texte avec plusieurs .TypText et .MoveDown
End With
 
vDate = Year(Date) & Month(Date) & Day(Date)
vNomDoc = vNom & " " & vPrenom & " recu " & vAnnee
 
wordDoc.SaveAs (vDossierdestination & vNomDoc)
wordDoc.Close
 
Next i
wordApp.Quit
 
Set wordDoc = Nothing
Set wordApp = Nothing

Essaie de cette manière, l'instance de Word n'est pas fermée et réutilisée pour chaque boucle.
Seul le document change.
Pour l'insertion de ton texte, il est plus facile d'utiliser des signets.

[jacda]

Merci beaucoup pour cette réponse.

J'ai pu grâce à toi améliorer mon code.

Effectivement, le fait de ne pas fermer Word à chaque création de fichier permet de continuer à les créer sans avoir le message d'erreur mais malheureusement, je dois à la fin fermer toutes les fenêtres avec 2 messages d'erreur identiques à tout à l'heure pour chacune d'entre elles.

Je ne pense pas que le problème vienne du fichier normal.dot car j'ai changé mon fichier source en .dot afin de ne pas utiliser le fichier normal.dot et le problème a seulement été reporté sur mon fichier source avec le même message d'erreur...

Cependant, j'ai essayé le fichier chez mon voisin qui a aussi office 2003 et chez lui ça marche!!

Je pense donc que cela doit venir d'une option de word mais après avoir passé un bon moment à toutes les éplucher, je ne vois pas...

Si quelqu'un a une idée quelconque, je suis preneur!!

Sur ce, bonne nuit en espérant que celle-ci me porte conseil

[Heureux-oli]

Salut,
Cherches dans les options ou l'on te demande de valider les changements fait au normal.dot.

Outils
Options
Enregistrement
Confirmer l'enregistrement du normal.dot

Ce qui me surprend, c'est que cette demande apparaisse.
Tu modifies les styles ou autres de ton modèle ?

[jacda]

Bonjour,

Effectivement j'ai déjà regardé de ce côté ci dans les options mais cette option n'est pas cochée.
Pour ce qui est du modèle, j'utilise un .doc qui a un en-tête et un pied de page.
J'y insère du texte et rien de plus. J'ai tenté d'enlever en-tête et pied de page mais j'ai conservé le meme problème.
Ce soir je tente de réinstaller le pack office pour voir ce que ça donne et je vous tiens informés du résultat.
Si d'ici là quelqu'un a une idée, n'hésitez pas!!

[jacda]

Bon,

J'avoue que je ne sais pas d'où venait ce problème mais après une désinstallation, suppression des clés office du registre et réinstallation, ÇA MARCHE!!!

Merci encore Heureux-oli pour ton aide!