extraire sheet de +eurs fichiers ds disc dur

  • Initiateur de la discussion Initiateur de la discussion XV
  • 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 !

X

XV

Guest
Bonjour à tous,

Là c'est du technique!! ...je crois

J'ai créé un outil de saisi via userform qui alimente une feuille 'explanations' colonne A à E sur 200 lignes.

Il y a 10 sites qui saisissent des données via l'Userform mais chaque entité a un fichier spécifique ds un dossier spécifique dont la racine commune est le dossier 'budget' ds le disque dur X

Je veux créer une; macro qui cherche ds le disque dur X les feuilles 'explanations' de divers fichiers et sous dossiers et qu'elle les regroupe ds un seul fichier tout cela sur des fichiers fermés et non regroupés ds un 'dossier' commun. D'où chercher sur le disque 'X'.

Est-ce possible???

Si ça peut aider, j'ai la macro suivante qui réunie toutes les feuilles des classeurs actifs mais je veux que la macro fonctionne sur des classeurs fermés et sur des feuilles spécifiques (feuilles 'explanations') situées ds le dossier 'budget' du disque 'P' mais sans + d'explications sur le chemin des fichiers.

Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte
Dim Wb As Workbook
Dim Ws As Worksheet

Application.ScreenUpdating = False
For i = 1 To Workbooks.Count
If Workbooks(i).Name <> 'Base.xls' Then
For j = 1 To Workbooks(i).Worksheets.Count
Workbooks(i).Sheets(j).Copy Before:=Workbooks('Base.xls').Sheets('Feuil1')
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub


Merci à tous pour votre aide dont j'ai bien besoin...encore une fois


XV


:whistle:
 
- 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

Retour