ouvrir un Word à partir d'une macro Excel

[azzouzze]

Bonjour,

Je souhaiterai faire un macro un peu complexe:
1) elle doit ouvrir tour à tour tous les fichiers word d'un repertoire,
2) Prendre les Valeurs des champs de listes deroulantes et autres.
3) Ecrire ces données dans un tableaux Excel avec liste deroulante

Si quelqu'un peu m aider.


Merci d'avance

 

[azzouzze]

Bonjour,

Je souhaiterai faire un macro un peu complexe:
1) elle doit ouvrir tour à tour tous les fichiers word d'un repertoire,
2) Prendre les Valeurs des champs de listes deroulantes et autres.
3) Ecrire ces données dans un tableaux Excel avec liste deroulante

Si quelqu'un peu m aider.


Merci d'avance

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

Bonjour,

une autre idée serait d'ecrire dans un CSV les données et de les "uploader" dans excel.

Merci d'avance

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

Bonjour Azzouze,

Un exemple de ton fichier Word zippé sans données confidentielles et moins de 50 ko , ainsi qu'un exemple de ce que tu veux sous excel te permettra peut-être d'obtenir des réponses...

Bonne journée

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

voici un bout du fichier, vous verez le type de champs que sont présent dans le fichier,
ce sont des listes déroulante et des espaces libres.
Je veux retrouver ces champs dans un excel sous d'autre appellation que celle du Word.


Merci d'avance

NB: dsl j avais pas fait attention au zip manquant

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

re, pas vu le fichier, à passer en zip sinon .doc ne passe pas

à+

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

Re,

Quelle version office utilise-tu 2000? 2003?

Je suis en 2000 et les listes déroulantes ne fonctionnent pas.

a+

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

j utilise 2003.

en effet il faut les activer.

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

Re,

Ok, vu comment faire.

Je regarde si je peux faire qqchose, sans garantie.
a+

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

Re,

Une solution pour les 2 premiers points. Pour la liste déroulante, on verra plus tard.

A tester, car chez moi, je trouve que ça rame un peu. Il faudrait peut-être passer par une récupération sur fichiers fermés, mais je ne sais pas faire... Désolé.

Le bouton permet de sélectionner le répertoire et de lancer la récupération des champs de l'exemple, et de les écrire dans la feuille active.

Vois si c'est dans l'esprit, mais je pense que je ne pourrai pas aller plus loin, car je ne maitrise pas bien les objets word et les appels vers d'autres applications.

Bonne soirée

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

génial c est un excellent début. il faudrai juste que je gere maintenant les autres champs mais ton code est propre donc ca sera rapide et la sauvegarde en csv.

Merci.

 

[Épaf]

Re : ouvrir un Word à partir d'une macro Excel

Je ne suis pas allé sur ton fichier... mais, pour ouvrir une instance de word et placer une donnée après un signet, tu peux utiliser ça :

Sub CopierUneDonnéeDansWord()
Dim wdApp As Word.Application                     'instance de l'appli Word
Dim WdDoc As Word.Document              'instance du document Word à ouvrir
Dim FL1 As Worksheet
Dim Chemin, NomFich
Dim NoLigne As Long, NoCol As Byte, LaDonneeAcoller
Chemin = "D:\Doc\"
NomFich = "Worddoc.doc"
Set FL1 = ActiveWorkbook                        'instance du classeur actif
    Set wdApp = CreateObject("word.application")     'ouvre la session Word
    Set WdDoc = wdApp.Documents.Open(Chemin & NomFich)        'ouvre le doc
    If WdDoc Is Nothing Then 'Fichier non trouvé
        MsgBox "Fichier " & NomFich & " non trouvé dans le répertoire " & Chemin
        GoTo Fin 'l'instance de word doit être fermée
    End If
    wdApp.Visible = False                                      'masque Word
    
    LaDonneeAcoller = FL1.Cells(NoLigne, NoCol).Value
    
    'En supposant que dans ton doc Word tu aies un signet nommé "Signet"
    With wdApp
        .Selection.Goto What:=wdGoToBookmark, Name:="Signet"
        .Selection.InsertAfter LaDonneeAcoller
    End With
 
    'WdApp.Visible = True 'Pour voir (Ne pas fermer le fichier depuis Word)
    WdDoc.Close True                       'Enregistre et ferme le doc word
    DoEvents            'Laisse au system le temps d'enregistrer le fichier
Fin::
    wdApp.Quit                                            'ferme la session
    
    Set Plage = Nothing
    Set wdApp = Nothing
    Set WdDoc = Nothing
End Sub

Pour récupérer une donnée dans Word, et si tu leur as affecté un signet ou un nom de champ, pour les retrouver regarde les paramètres à Goto dans l'aide.
Pour récupérer la donnée, c'est

LaDonnée = WdApp.selection

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

je vais essayé ce soir. mais j aime beaucoup la solution de Luki. elle est assez rapide et efficace du faite que tu n'affiche rien à l'écran tu perd moins de temps.
De plus,tu peu :
- l'adapter à tes champs assez facilement,
- mettre un repertoire par default si besoin,

à faire:
- gérer l'insertion des résultats car derierre, je fais des stats et j'ai une trame,
- un sauvegarde vers un csv ou autre,
- gestion des doublons de lignes,
- liste deroulante pour chaque colonne,

 

[Luki]

Re : ouvrir un Word à partir d'une macro Excel

re Azzouze

à faire:
- gérer l'insertion des résultats car derierre, je fais des stats et j'ai une trame,
- un sauvegarde vers un csv ou autre,
- gestion des doublons de lignes,
- liste deroulante pour chaque colonne,

Oui mais encore, par qui ???

Bonne journée

 

[azzouzze]

Re : ouvrir un Word à partir d'une macro Excel

LOL je vais le faire. ce que tu m'a fournis est deja très bien. le reste sera assez simple.
mais si tu veux encore m aider ca me derangerai pas lol.

encore Merci