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

VBA , copie de dossier dans des feuille différente

  • Initiateur de la discussion Initiateur de la discussion vincent.yann
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

V

vincent.yann

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
Réponses
1
Affichages
1 K
N
Réponses
4
Affichages
1 K
nathg31
N
R
Réponses
8
Affichages
1 K
Robinho8991
R
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…