passer d'excel à word

[daphne]

Salut à tous,

Voila j'ai plus de 2000 lignes avec pls colonnes dans excel par ex :
- societe
- adresse1
- adresse2
- ville
etc...

Il faut que je sorte 1 feuille word par entrprise avec dans un tableau (donc a des endroits précis) le nom, l'adresse etc...

Est-ce possible et si oui comment faire???

Merci d'avance

Daphné

 

[C@thy]

Salut Daphné,

oui c'est possible, mais ta macro il faut l'écrire dans Word.

(le VBA de word est très proche de celui d'excel, mais si tu ne connais pas, c'est galère!!!)

C@thy

 

[daphne]

Sais tu ou je peux trouver des exemples ou des cours pour cegenre de chose ???

 

[C@thy]

Ben non, y'a pas grand chose, je débute en macros word, je peux te donner des bouts de code, mais ça ne te fera pas ton appli...

à titre d'exemple, voici un truc qui fait une copie d'excel vers word

Sub ExcelCopie()
'Déclaration 4 variables (excel, dossier, fichier, chemin)
Dim objApplication As Object
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String

'Initialisation 4 variables
Set objApplication = CreateObject("excel.application")
strDossier = "C:\stage\"
strFichier = "mois.xls"
strChemin = strDossier & strFichier

'Tout effacer dans la page Word
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1

'Utilisation variables
With objApplication
.Visible = True
.Workbooks.Open FileName:=strChemin
.Range("données").Select
.Selection.Copy
.Visible = False
End With

'Tout coller
Selection.Paste

'Quitter, Libérer la référence
objApplication.Quit
Set objApplication = Nothing

End Sub

J'espère que je ne t'ai pas sapé le moral...

C@thy

 

[daphne]

wahou... bin je crois que je vais plutot me taper le tout en copier coller.

Je crois que je perdrai moins de tmps comme ca qu'a construire ma macro...

Merci quand meme pour ton aide.

Daphne

 

[C@thy]

Je savais bien que j'allais te décourager!...

C@thy

 

[C@thy]

tiens, teste ça :

tu copies mois.xls dans un répertoire c:\stage,
et le fichier word ou tu veux.

Ensuite tu ouvres Word, tu vas dans Outils macros sécurité et tu coches moyen, sinon tu ne peux pas exécuter les macros.

Tu ouvres le document MacroCopieExcel.doc

ensuite tu fais Outils Macros Macros tu sélectionnes ExcelCopie et tu cliques sur Exécuter

C@thy

 

[C@thy]

Juste un truc : la plage dans mois.xls est nommée donnees, il faut supprimer ce nom et la renommer données car la macro word copie la plage données (avé l'accent)!

C@thy

 

[chris]

BOnjour
Une fusion publipostage pourrait peut-être faire l'affaire (en mode catalogue notamment)
Chris

 

[g]

Il semblerait que la feuille Word à faire par entreprise soit commune.
Dans ce cas le publipostage peut résoudre facilement le problème.
Bonne journée.