extraire sheet de +eurs fichiers ds disc dur

[XV]

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:

 

[XV]

Merci Bebere pour l'adaptation.

je teste cela ce soir... Personnellement je travaille sur du XP donc peut être que c'est ça qui bloque??

Faut voir ce soir.

Bonne apres midi à tous et encore merci

XV