A partir d'une macro word, ouvrir un fichier excel et copier le texte d

eldim

XLDnaute Nouveau
Bonjour,
je suis débutant en macro et je souhaite transformer un fichier excel en un fichier gedcom (standard de généalogie). Pour cela, il me faut commencer par ouvrir mon fichier excel et copier les cellules dans un fichier word, ce que je n'arrive pas à faire. Je pense qu'il faut faire une macro word. (j'utilise la version 2010)
Quelqu'un aurait une petite idée des instructions à utiliser.
Merci d'avance.
 

Staple1600

XLDnaute Barbatruc
Re : A partir d'une macro word, ouvrir un fichier excel et copier le texte d

Bonjour à tous
Bonjour et bienvenue eldim

Voici une macro exemple à mettre dans un module standard dans Word
(Dans Word, appuyez sur les touches ALT+F11 puis Insérer Module, ou faire Outils/Macros/Microsoft Visual Basic Editor)
VB:
Sub RecuperDansWordDonneesXL()
'source code d'origine:  Erlandsen Data Consulting
Dim Chemin$, Fichier$, xlApp, xlWB, Strg$, l&
'ici adapdét nom du dossier et du fichier
Chemin = "C:\Temp\": Fichier = "test.xls"

Documents.Add

Set xlApp = CreateObject("Excel.Application")
Set xlWB = xlApp.Workbooks.Open(Chemin & Fichier)
l = 1 'dans cet exemple, on recopie les valeurs de la colonne A
With xlWB.Worksheets(1)
    While .Cells(l, 1).Value <> ""
    Strg = .Cells(l, 1).Value
        With ActiveDocument.Content
        .InsertAfter Strg
        .InsertParagraphAfter
        End With
    l = l + 1
    Wend
End With
xlWB.Close False: xlApp.Quit
Set xlWB = Nothing: Set xlApp = Nothing
End Sub
 

eldim

XLDnaute Nouveau
Re : A partir d'une macro word, ouvrir un fichier excel et copier le texte d

merci, je vais essayer ce code
 

Discussions similaires


Haut Bas