enregistrement successif de fichier word via excel

T

tchiph

XLDnaute Nouveau
bonjours à tous,
j'ai cree une macro sur excel qui renseigne un document word specifique avec des données du tableur excel.
j'aimerai enregistrer chaque fichier word generé par la macro sous un nom different qui est extrait d'une cellule du tableur(chaque cellule reperée attribue un nom).
j'ai essayé avec la synthaxe ci-apres mais en vain. saurez vous comment pourais je m'enfrachire de cet obstacle?



Sub ExportDonneesDansSignetsWord()

Dim nom As String
Dim l As Integer
Dim Message

Set WordApp = CreateObject("Word.Application") ' ouvre une session word
WordApp.Visible = False ' word est masqué pendant l'opération

For l = 14 To 16 Step 1
Set WordDoc = WordApp.Documents.Open("C:\Users\jersen\Desktop\generation fiche d'argrement\materiaux.doc") ' ouvre le document word : generation fiche d'argrement.doc
WordApp.Visible = False ' word est masqué pendant l'opération
nom = Cells(l, 3).Value 'repere le nom du nouveau fichier dans la cellule

WordDoc.Bookmarks("affaire").Range.Text = Cells(5, 3)
WordDoc.Bookmarks("approbateur").Range.Text = Cells(9, 3)
WordDoc.Bookmarks("bpu1").Range.Text = Cells(l, 5)
WordDoc.Bookmarks("bpu2").Range.Text = Cells(l, 7)
WordDoc.Bookmarks("bpu3").Range.Text = Cells(l, 9)
WordDoc.Bookmarks("bpu4").Range.Text = Cells(l, 11)
WordDoc.Bookmarks("bpu5").Range.Text = Cells(l, 13)
WordDoc.Bookmarks("cctp1").Range.Text = Cells(l, 4)
WordDoc.Bookmarks("cctp2").Range.Text = Cells(l, 6)
WordDoc.Bookmarks("cctp3").Range.Text = Cells(l, 8)
WordDoc.Bookmarks("cctp4").Range.Text = Cells(l, 10)
WordDoc.Bookmarks("cctp5").Range.Text = Cells(l, 12)
WordDoc.Bookmarks("chrono").Range.Text = Cells(l, 17)
WordDoc.Bookmarks("classement").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("emeteur").Range.Text = Cells(l, 15)
WordDoc.Bookmarks("fournisseur").Range.Text = Cells(l, 14)
WordDoc.Bookmarks("indice").Range.Text = Cells(l, 19)
WordDoc.Bookmarks("marche").Range.Text = Cells(16, 3)
WordDoc.Bookmarks("materiaux").Range.Text = Cells(l, 3)
WordDoc.Bookmarks("numero").Range.Text = Cells(l, 2)
WordDoc.Bookmarks("redacteur").Range.Text = Cells(7, 3)
WordDoc.Bookmarks("type").Range.Text = Cells(l, 16)
WordDoc.Bookmarks("verificateur").Range.Text = Cells(8, 3)
ActiveDocument.SaveAs "C:\Users\jersen\Desktop\generation fiche d'argrement\" & nom & ".doc"
ActiveDocument.close

Next l
End Sub
 
Trier par date Trier par votes
C

Compte Supprimé 979

Guest
Re : enregistrement successif de fichier word via excel

Bonjour tchiph

Merci de mettre le code entre les 2 balises prévues à cet effet [Code ] [/Code ]
(Sans espace entre code et crochet de fin)

Et avec l'objet définit "WordDoc"
Code: 
WordDoc.SaveAs "C:\Users\jersen\Desktop\generation fiche d'argrement\" & nom & ".doc"
WorDoc.Close

A+
 
Vote positif 0 Vote négatif
T

tchiph

XLDnaute Nouveau
Re : enregistrement successif de fichier word via excel

BrunoM45 merci pour la reactivité,
j'ai éssayé mais en vain.
j'ai une boite de dialogue word qui me disant que le fichier est verouillé et me demande de chosir de lire en lecture seul,

ps: désolé pour les [ ]
 
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re : enregistrement successif de fichier word via excel

Re,

lire en lecture seule
Cliquez pour agrandir...
Veut dire que tu tentes de l'ouvrir de nouveau et non que tu essayes de l'enregistrer :confused:

Je peux te confirmer que le code suivant
Code: 
Sub ExportDonneesDansSignetsWord()
  Dim Nom As String, l As Integer
  Dim Message
  Dim Path As String
  Dim WordApp As Object
  Dim WordDoc As Word.Document
  Path = "D:\Users\BrunoM45\Documents\Mes Docs EXCEL\_Excel-Downloads\"
  ' Path = "C:\Users\jersen\Desktop\generation fiche d'argrement\"
  Set WordApp = CreateObject("Word.Application")  ' ouvre une session word
  WordApp.Visible = False  ' word est masqué pendant l'opération
  For l = 14 To 16 Step 1
    Set WordDoc = WordApp.Documents.Open(Path & "matériaux.doc")  ' ouvre le document word : generation fiche d'argrement.doc
    Nom = Cells(l, 3).Value  'repere le nom du nouveau fichier dans la cellule
    WordDoc.Bookmarks("affaire").Range.Text = Cells(5, 3)
    WordDoc.Bookmarks("approbateur").Range.Text = Cells(9, 3)
    WordDoc.Bookmarks("bpu1").Range.Text = Cells(l, 5)
    WordDoc.Bookmarks("bpu2").Range.Text = Cells(l, 7)
    WordDoc.Bookmarks("bpu3").Range.Text = Cells(l, 9)
    WordDoc.Bookmarks("bpu4").Range.Text = Cells(l, 11)
    WordDoc.Bookmarks("bpu5").Range.Text = Cells(l, 13)
    WordDoc.Bookmarks("cctp1").Range.Text = Cells(l, 4)
    WordDoc.Bookmarks("cctp2").Range.Text = Cells(l, 6)
    WordDoc.Bookmarks("cctp3").Range.Text = Cells(l, 8)
    WordDoc.Bookmarks("cctp4").Range.Text = Cells(l, 10)
    WordDoc.Bookmarks("cctp5").Range.Text = Cells(l, 12)
    WordDoc.Bookmarks("chrono").Range.Text = Cells(l, 17)
    WordDoc.Bookmarks("classement").Range.Text = Cells(l, 16)
    WordDoc.Bookmarks("emeteur").Range.Text = Cells(l, 15)
    WordDoc.Bookmarks("fournisseur").Range.Text = Cells(l, 14)
    WordDoc.Bookmarks("indice").Range.Text = Cells(l, 19)
    WordDoc.Bookmarks("marche").Range.Text = Cells(16, 3)
    WordDoc.Bookmarks("materiaux").Range.Text = Cells(l, 3)
    WordDoc.Bookmarks("numero").Range.Text = Cells(l, 2)
    WordDoc.Bookmarks("redacteur").Range.Text = Cells(7, 3)
    WordDoc.Bookmarks("type").Range.Text = Cells(l, 16)
    WordDoc.Bookmarks("verificateur").Range.Text = Cells(8, 3)
    ' Enregistre le document sous un nouveau nom et le ferme
    WordDoc.SaveAs Path & Nom & ".doc"
    WordDoc.Close
  Next l
  Set WordDoc = Nothing
  WordApp.Quit
  Set WordApp = Nothing
End Sub
fonctionne parfaitement chez moi

Alors je ne sais pas :rolleyes:
 
Vote positif 0 Vote négatif
F

FabP81

XLDnaute Nouveau
Re : enregistrement successif de fichier word via excel

Bonjour,

Donc, j'ai un fichier Excel avec 4 colonnes (Mail - référence du texte - Texte -compteur de mots). Il faudrait que je compose une macro sur excel qui renseigne un document word specifique avec des données du tableur excel.

Par exemple : ll faudrait que chaque texte de la ligne 1 colonne C donne lieu à l'ouverture d'un document word dans lequel est retranscrit le texte traduit et que ce nouveau document word attribue et enregistre au nom de la référence du texte de ma ligne 1 colonne B.

Je pense que c'est la même problématique que "tchiph" sauf que lui avait un fichier plus complexe à gérer. Bref, je ne m'y retrouve pas forcément. Bref, pouvez-vous m'aider chers fidèles d'excel-downloads.com ?

Je vous laisse un copie des pièces pour mieux cerner le problème.

Je vous remercie par avance.

Fabien
 

Pièces jointes

  • 3.Greenlivingonlinehomes.xlsx
    174.1 KB · Affichages: 198
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re : enregistrement successif de fichier word via excel

Bonjour FabP81 ;)

Si j'ai bien tout compris, voici ton fichier avec du code pour faire ce que tu souhaites

Le chemin de destination est celui du classeur, mais il peut être définit dans le code

A+
 

Pièces jointes

  • FabP81_3.Greenlivingonlinehomes.xlsm
    184.1 KB · Affichages: 1 960
Vote positif 0 Vote négatif
F

FabP81

XLDnaute Nouveau
Re : enregistrement successif de fichier word via excel

Salut Bruno,

je viens de l'ouvrir, je lance la macro via le bouton bleu et il me marque : 001.jpg

Que dois-je faire ? Merci.
 

Pièces jointes

  • 001.jpg
    001.jpg
    53.9 KB · Affichages: 166
  • 001.jpg
    001.jpg
    53.9 KB · Affichages: 166
Vote positif 0 Vote négatif
C

Compte Supprimé 979

Guest
Re : enregistrement successif de fichier word via excel

Re,

Quelle version d'office as-tu ?

Va dans le menu -> Outils références
Tu dois avoir celle de Word marquée [MANQUANTE]

Il suffit d'aller cocher la bonne version dans le bon répertoire

A+
 
Vote positif 0 Vote négatif

Discussions similaires

G
  • Question
XL pour MAC VBA export données Excel vers Signets word
Réponses
3
Affichages
723
Staple1600
Staple1600
T
  • Résolu(e)
XL 2010 VBA - Erreur de compilation
Réponses
11
Affichages
2 K
toud
T
T
  • Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
T
  • Question
Microsoft 365 Macro créée sur Excel 365 ne fonctionne pas sous Excel 2016 (signet Word=
Réponses
1
Affichages
1 K
titous68
T
C
  • Question
Word VBA Excel-Word: Coller du texte l'un en dessous de l'autre
Réponses
1
Affichages
3 K
Conrad13
C
L
  • Question
XL 2013 RECUPERATION FICHIER WORD VERS EXCEL
Réponses
1
Affichages
1 K
James007
James007
J
  • Question
[RESOLU] : Export de données Excel dans Word
Réponses
11
Affichages
1 K
Jean Michel
J
M
  • Question
Copie de fichier Word avec nom déterminé par cellules Excel
Réponses
2
Affichages
1 K
Mariano
M
M
  • Question
XL 2010 RESOLU : Excel vers word trop de chiffre apres la virgule
Réponses
4
Affichages
715
Mistrall
M
P
  • Question
Export données excel vers Word
Réponses
7
Affichages
4 K
Arnaud91
A

Membres actuellement en ligne

12 membres et 312 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 298
Messages
2 086 981
Membres
103 419
dernier inscrit
mk29