Tansfert de données

[poups]

Bonjour a tous,
Je recois des fiches de travail sous excel
Je dois rédiger des rapports sous world, et pour m'éviter de retaper toutes les données déjà écrite sur la fiche excel, j'aimerais me créer une macro est ce possible ?
Les données dans excel ne sont pas en liste... mais tous le temps dans les même cellules
Merci d'avance

 

[Catrice]

Re : Tansfert de données

Bonjour et binevenue sur le forum,

Oui c'est possible.
Un exemple recent ici : https://www.excel-downloads.com/threads/erreur-462-et-probleme-de-memoire-sans-doute.125412/

Il faudrait éventuellement que tu publies une maquette de tes fichiers Word et Excel

 

[poups]

Re : Tansfert de données

Merci pour la réponce,
Ci-joint les fichiers sources pour exemple...
Je pensais partir de Macro sur le fichier world, car le fichier excel n'est pas généré par moi.
Je dois également choisir le fichier excel sources, le modele est toujour le même mais le non est aléatoire.

 

[Catrice]

Re : Tansfert de données

Bonjour,

Point de fichiers ...

 

[poups]

Re : Tansfert de données

Oupssss! fichiers ci-joint
Ce lien n'existe plus

 

[poups]

Re : Tansfert de données

Oui c'est possible.
Un exemple recent ici : Lien supprimé

Merci j'ai testé, mais je dois impérativement aller chercher les données sur excel depuis world....
Le fichier Excel n'étant pas généré par moi...

Et la je ne sais vraiment pas faire !!!

 

[Catrice]

Re : Tansfert de données

Bonsoir,

Ci-dessous un bout de code à tester et adapter.

Sub Test()
FichierXL = "fiche de travail type.xls"
Chemin = ActiveDocument.Path
MesSignets = Array("AssistantePrenomNom", "AssistanteTitreFonction", "AtelierAdresse", "AtelierCP", "AtelierFaxStandard", "AtelierTelStandard", "AtelierVille", "AtelierVille1", "ClientAdresse", "ClientCP", "ClientInterlocuteurPrenomNom", "ClientRaisonSociale", "ClientVille", "DossierDateCreation", "DossierNumeroSav2000", "DossierReferenceClient", "DossierTitrePrestation", "PropositionPhraseIntro", "TcsEMail", "TcsPrenomNom", "TcsPrenomNom2", "TcsTelDirect", "TcsTitreFonction")
MesCellules = Array("", "", "", "", "", "", "", "", "D14", "G15", "L11", "E11", "C15", "", "", "", "", "", "", "", "", "", "")
Set xlApp = CreateObject("excel.application")
xlApp.Visible = False
Set Monfic = xlApp.Workbooks.Open(FileName:=Chemin & "\" & FichierXL)
'------- Boucle sur les Cellules --------
For i = 0 To UBound(MesCellules)
    If MesCellules(i) <> "" Then
        ActiveDocument.Bookmarks(MesSignets(i)).Range.Text = Monfic.sheets("DI - MES ").Range(MesCellules(i)).Value
    End If
Next
'----------------------------------------
Monfic.Close False
xlApp.Quit
Set xlApp = Nothing
End Sub

Il faut completer "MesCellules" avec les bonnes références.

Le code est à copier dans un module Word.
Les 2 fichiers (Excel et Word) doivent etre dans le meme dossier.