transfert de données Excel vers un document Word

[cg6k]

Bonjour à tous,

J'ai un tableau sous excel avec les infos de candidature et je souhaiterai avoir un bouton à chaque fin de ligne des candidats où dès que je cliquerai dessus cela m'ouvrira mon document word "contrat" avec les infos du candidat.

Je ne connais rien en macro et vba
merci de m'aider

Bien cordialement,

 

[ERIC S]

Re : transfert de données Excel vers un document Word

Bonjour

si c'est juste pour ouvrir le fichier word tu peux associer un lien hypertexte par exemple à la cellule contenant le nom du candidat
quand tu cliqueras dessus, cela ouvrira word

 

[cg6k]

Re : transfert de données Excel vers un document Word

bonjour,

je veux les infos du candidats aussi dans le document

 

[ERIC S]

Re : transfert de données Excel vers un document Word

Re

cela va dépasser mes connaissances je pense.

il faudrait que tu joignes un exemple (pas de données confidentielles) du fichier XL et du Word

 

[cg6k]

Re : transfert de données Excel vers un document Word

voici exemple fichier

 

[chris]

Re : transfert de données Excel vers un document Word

Bonjour

Si tu ne connais rien au vba : je te conseille de faire l'inverse.

Créer un contrat comme document de publipostage dans Word.

Pour le remplir avec les données du candidat tu as 2 solutions :

• depuis Word filtrer la liste pour ne prendre que ce candidat
• depuis Excel copier coller la ligne du candidat dans un document Excel qui aura toujours le même nom et qui sera celui lié au document Word.

 

[cg6k]

Re : transfert de données Excel vers un document Word

Bonjour,

je viens de trouver une macro :

Sub exceltoword()
Dim nom As String
Dim prenom As Integer
Dim date As String
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

nom = Cells(2, 1)
prenom = Cells(2, 2)
date = Cells(2, 3)

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\....\fichier-avant-importation-donnees-excel.doc")
wrdApp.Visible = True
wrdDoc.Content.Find.Execute findtext:="'nom'", replacewith:=nom, Replace:=wdReplaceAll
wrdDoc.Content.Find.Execute findtext:="'prenom'", replacewith:=prenom, Replace:=wdReplaceAll
wrdDoc.Content.Find.Execute findtext:="'date'", replacewith:=date, Replace:=wdReplaceAll

wrdDoc.SaveAs ("C:\Users\....\fichier-apres.doc")
wrdDoc.Close
wrdApp.Quit

End Sub


Si je fais un bouton différend à chaque fin de ligne excel en modifiant bien sûr Cells(2, 1)
ça marcherai mais il y aurait il mieux??

Merci

 

[chris]

Re : transfert de données Excel vers un document Word

Bonjour

Créer un bouton par ligne me parait une mauvaise idée.

Prévoir un seul bouton et tenir compte de la ligne de la cellule active me parait plus gérable.
Replacer Cells(2,1) par cells(selection.row, 1)
mais il est mieux de tester en début de macro que la selection est bien mono ligne :

if selection.rows.count>1 then exit sub

Edit : attention aux accords : Mr avec née le et domiciliée c'est pas top !

 

[cg6k]

Re : transfert de données Excel vers un document Word

désolé je ne comprend pas : il est mieux de tester en début de macro que la selection est bien mono ligne??????????????????

what???

 

[chris]

Re : transfert de données Excel vers un document Word

Re

Si on tient compte de la cellule active et qu'il y en 3 de sélectionnées, ça ne colle pas.

 

[cg6k]

Re : transfert de données Excel vers un document Word

et t'inquiète pas chris je sais pour les accords j'ai fais ça vite fais pour exemple

merci quand même

 

[cg6k]

Re : transfert de données Excel vers un document Word

le soucis c'est que je veux la ligne presque entière je ne veux pas à chaque fois cliquer sur une cellule puis l'autre etc...

 

[chris]

Re : transfert de données Excel vers un document Word

Re

Je crois que tu ne comprends pas : l'idée c'est de cliquer dans une des cellules (n'importe laquelle) de la ligne correspondant à la personne choisie et de cliquer sur un unique bouton.

Le contrôle sert juste à vérifier que, par inadvertance, on n'a pas sélectionné des cellules de 2 lignes différentes.

 

[cg6k]

Re : transfert de données Excel vers un document Word

Donc je mets ça comme ça?? :

Sub exceltoword()
Dim nom As String
Dim prenom As Integer
Dim date As String
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

nom = cells(selection.row, 1)

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:\Users\....\fichier-avant-importation-donnees-excel.doc")
wrdApp.Visible = True
wrdDoc.Content.Find.Execute findtext:="'nom'", replacewith:=nom, Replace:=wdReplaceAll
wrdDoc.Content.Find.Execute findtext:="'prenom'", replacewith:=prenom, Replace:=wdReplaceAll
wrdDoc.Content.Find.Execute findtext:="'date'", replacewith:=date, Replace:=wdReplaceAll

wrdDoc.SaveAs ("C:\Users\....\fichier-apres.doc")
wrdDoc.Close
wrdApp.Quit

End Sub

merci chris

 

[cg6k]

Re : transfert de données Excel vers un document Word

mais à quoi correspond le 1 de cells(selection.row, 1)?