Discussion :

[pael013]

bonjour,
j'ai réaliser une macro grace à l'aide du forum :
http://www.developpez.net/forums/sho...d.php?t=543313
je veux que cette macro envoi des données excel vers des signets word à partir d'un "modele.doc" puis enregistre le ce fichier sous le nom de ma 1er cellule de ma ligne excel.
j'espere que je suis assez clair, voilà ma macro cela vous parlera surement plus:

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
sub test_jeudi_15()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim Chemin As String
  Dim i As Byte
  Dim j As Byte
 
  Set WordApp = CreateObject("word.application") 'ouvre session word
  Chemin = "D:\ludo\excel\"
  'Pour passer toutes les cellule renseignées de ta colonne A
  For i = 2 To 5
 
      'ouvre du document Word
      Set WordDoc = WordApp.Documents.Open("D:\ludo\excel\modele.doc")
      'word est masqué pendant l'opération
      WordApp.Visible = False
 
      For j = 1 To 27
 
          WordDoc.Bookmarks("Signet" & j).Range.Text = Cells(i, j + 1)
      Next j
      'Ferme le document word en sauvegardant les modifications
      WordDoc.SaveAs Filename:=Chemin & Cells(i, 1) & ".doc"
  Next i
  WordDoc.Close
 
  'ferme la session Word
  WordApp.Quit
End Sub

MON PROBLEME:
lors de l'exucution de ma macro, on me demande d'ouvrir le document word en lecture seulement...
à ce moment là le document word ne peux s'ouvrir seulement qu'en lecture.
que puis-je faire sachant que j'ai essayé de reenregistré le document en suprimant l'option lecture seulement dans outils-->securité...

merci d'avance

[Godzestla]

Salut Pael013,

ton problème semble plutot un probleme word. Tu as du avoir des problème dans ta macro et ta tache Word cachée bloque encore ton fichier word.

je suis en train de développer le meme genre d'application et je le rencontre aussi.

Pour te sortir de là, ferme toutes les taches word visibles, puis au moyen de <Ctrl><Alt><Del>, deuxième onglet (process) vérifie que tu n'as plus aucne Winword actif (il devrait y en avoir). Tue le/les et puis essaie manuellement d'ouvrir ton document word.

Personnelement, dans la phase de test et développement, je change l'instruction suivante :

Code :

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

1
2
 
WordApp.Visible = False

en

Code :

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

1
2
 
WordApp.Visible = true

Cela réduit ce genre de surprise

NB : pense à utiliser les balises code quand tu publie ton code.
Comment faire : Tu clique sur # et tu insère ton code entre les 2 balises.

Dernière remarque, je pense qu'a partir de l'occurence 2 de ta boucle tu cumules à la position du signet la valeur de tes records 1 et 2 d'excel, et ainsi de suite de pire en pire.

Je tiens de ce site qu'il faut effacer ce qui se trouve à la position du signet ce qui s'y trouve avant de traiter le record suivant .

Voici le code pour cela :

Code :

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

1
2
 
    WordDoc.Characters(WordDoc.Bookmarks("Signet" & j).Start + 1).Delete

A+

[ouskel'n'or]

Pour compléter ce que vient de mettre Godzestla, en fin de macro, ajoute

Code :

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

1
2
Set WordDoc = Nothing
Set WordApp = Nothing

Pour ce qui concerne les signets, je suppose qu'ils sont déjà placés. Le fait de coller du texte dessus les supprime. Tu as ici le moyen de pallier le problème (à adapter pour une instance de Word ouverte depuis Excel)
Bonne journée

[pael013]

j'ai tué les winwords...c'est bien cela qui avaient un effet sur la lecture sule du word.

j'ai placé le code comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
For j = 1 To 27
 
 
    WordDoc.Bookmarks("Signet" & j).Range.Text = Cells(i, j + 1)
    WordDoc.Characters(WordDoc.Bookmarks("Signet" & j).Start + 1).Delete
    Next j
    'Ferme le document word en sauvegardant les modifications
    WordDoc.SaveAs Filename:=Chemin & Cells(i, 1) & ".doc"
 Next i

mais j'ai toujours une "erreur d'execution 5941 :erreur definie par l'appilcation ou l'objet"

la macro ne renome pas le fichier apparement.

quelqu'un a t-il une solution?

ps: ouskel'n'or
a quoi servent ?

Code :

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

1
2
Set WordDoc = Nothing
Set WordApp = Nothing

les signets ne sont pas effacés puisque je ne veus pas enregistré les modification dans le modele.doc....je veus juste le renommer

merci d'avance

[ouskel'n'or]

Ok pour les signets.
Remplace Cells(i, 1) par Cells(i, 1).value
Pour

Set WordDoc = Nothing
Set WordApp = Nothing

Tue les instances créées. Sert à libérer la place en mémoire et à éviter les bugs qui peuvent se produire tant que tu n'as pas fermé ton fichier Excel. Rares mais constatés dans certains cas de figure. Enfin, c'est une bonne habitude à prendre

[pael013]

merci de l'aide
voici mon code avec final:

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
Sub test_jeudi_15()
'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim Chemin As String
  Dim i As Byte
  Dim j As Byte
 
 
 
 
 Set WordApp = CreateObject("word.application") 'ouvre session word
  Chemin = "D:\ludo\excel\"
  'Pour passer toutes les cellule renseignées de ta colonne A
For i = 2 To 5
 
 
 
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("D:\ludo\excel\modele.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = True
 
 
    For j = 1 To 27
 
 
    WordDoc.Bookmarks("Signet" & j).Range.Text = Cells(i, j + 1)
    WordDoc.Characters(WordDoc.Bookmarks("Signet" & j).Start + 1).Delete
    Next j
    'Ferme le document word en sauvegardant les modifications
    WordDoc.SaveAs Filename:=Chemin & Cells(i, 1).Value & ".doc"
  Next i
  WordDoc.Close
Set WordDoc = Nothing
Set WordApp = Nothing
  'ferme la session Word
  WordApp.Quit
 
 
End Sub

j'ai toujours la meme erreur.
le document modele.doc ne se renomme pas...
que faire?

[ouskel'n'or]

Ce n'est que ça ?
Avant que j'aille tester, teste ça

Code :

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

    WordApp.activedocument.SaveAs Filename:=Chemin & Cells(i, 1).Value & ".doc"

mais vérifie tout de même ce qu'il y a dans Cells(i, 1).Value. Ce me semble bizarre