VBA , copie de dossier dans des feuille différente

[vincent.yann]

bonjours à tous

Voila pour finir mon stage on lma donner un petit chalenge que je ne peut pas relever tout seule.

Je dois créé une macro sous ecxel qui a pour but de:
-demander à l'utilisateur le dossier concerné.
-ouvrir les fichier word contenu dans ce dossier.
-copier le contenu des fichier word dans différente feuille excel.

merci pour vos réponces

 

[Pierrot93]

Re : VBA , copie de dossier dans des feuille différente

Bonjour,

regarde ce lien pour piloter word depuis Excel, cela devrait te permettre de commencer quelque chose...

bon après midi
@+

 

[vincent.yann]

Re : VBA , copie de dossier dans des feuille différente

merci pour la réponse mais il n'y à pas de lien

 

[Pierrot93]

Re : VBA , copie de dossier dans des feuille différente

Re,

Aarf, désolé :
https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

 

[vincent.yann]

Re : VBA , copie de dossier dans des feuille différente

merci .
Mon plus gros problème n'est pas dans le controle de word mais dans l'automatisation du choix du dossier

Pour l'insant j'ai écrit cela:
Sub DonnéesWordVersExcel()

Dim DocWord As Word.Document

Dim AppWord As Word.Application

Set AppWord = New Word.Application

AppWord.ShowMe

AppWord.Visible = True

'Ouvre le document Word (Fichier.doc) et effectue une copie des données

SetDocWord = AppWord.Documents.Open("J:\MAINTSECT\PLANMAIN\OCZ\CBL\F-R informat\I00CBL.doc", ReadOnly:=True)

With AppWord

.Selection.WholeStory

.Selection.Copy

End With

' Copie des données dans Excel

ActiveSheet.Paste

Columns("B:C").Delete Shift:=xlToLeft
Columns("A:A").ColumnWidth = 100





' Fermeture de Word

AppWord.Application.Quit

Application.CutCopyMode = False

Mais le choix du fichier ce fait dans la macro , je voudrait que ce choix puisse ètre différent ou même que losque qu'on sélectionne un dossier tout les fichier word présent subisse la macro

Merci d'avance