Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

passer d'excel à word

D

daphne

Guest
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

C@thy

Guest
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
 
C

C@thy

Guest
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
 
D

daphne

Guest
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

C@thy

Guest
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
 

Pièces jointes

  • MacroCopieExcelWord.ZIP
    10.7 KB · Affichages: 86
C

C@thy

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…