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