récupération deuil sur un mois

[man95]

récupération Feuil sur un mois

Bonjour à vous tous,

Je viens vers vous car le sèche lamentablement sur un problème qui je pense pour certain d'entre vous fera surement sourire.

Dans un répertoire unique(essai), j'ai chaque nuit un répertoire qui se créer(01_10_09), dans se répertoire sont deposé plusieurs fichiers excel(toto.xls).
dans chaque fichier excel il y a un onglet qui porte toujours le même nom(test).

Ex:
C:\essai\30_09_09\toto.xls (nom de l'onglet = test)
C:\essai\01_10_09\toto.xls (nom de l'onglet = test)
C:\essai\02_10_09\toto.xls (nom de l'onglet = test)
...
C:\essai\31_10_09\toto.xls (nom de l'onglet = test)
C:\essai\01_11_09\toto.xls (nom de l'onglet = test)
...

J'aimerai que, à partir du 1er du mois suivant, je puisse récupérer chaque onglet(test) du fichier(toto.xls) de tous les répertoires du mois que je selectionne (via un bouton ou autre) les copier dans mon classeur actif (ex:synthese.xls) en les renommant en 1,2,3 .... 31 (pour octobre 09)


voilà j'espère avoir été assez clair et en vous remerciant de vous interesser à ma demande


Dans l'attente de vos suggestions


MPR

 

[13GIBE59]

Re : récupération deuil sur un mois

Bonjour man95.

Personnellement je n'ai pas tout compris...Mais tu ne veux pas modifier le titre de ta demande,

[B]récupération deuil sur un mois[/B]

parce que d'une part elle ne correspond pas au contenu du post, d'autre part elle paraît un peu...macabre, non ?

a +

 

[Papou-net]

Re : récupération deuil sur un mois

Bonjour à tous,

Je pense que son doigt a dérapé sur le clavier : il a du vouloir écrire feuil.

ps : moi aussi je n'ai pas bien saisi la question.

Bonne journée.

 

[mromain]

Re : récupération deuil sur un mois

bonjour man95, 13GIBE59, Papou-net,


il aurait été intéressant d'avoir une petite base de travail, c'est plus facile pour apporter de l'aide.
Qu'à cela ne tienne, je l'ai quand même refaite..

voici un exemple :
la macro se situe dans le fichier synthèse.xls, il faut adapter les différentes variables avant de lancer l'exécution.

Sub Import()
Dim dossierAnalyse As Object, sousDossierAnalyse As Object, fichierAnalyse As Object
Dim pathDossierAnalyse As String, nomFichier As String, nomOnglet As String, moisAnalyse As String, anneeAnalyse As String
Dim tabStr() As String, wbk As Workbook, sht As Worksheet

'****** Définir les variables de la macro ******
pathDossierAnalyse = "E:\aMiki\XLS\test\DossierTest"
nomFichier = "toto.xls"
nomOnglet = "test"
moisAnalyse = "10"
anneeAnalyse = "09"
'***********************************************

'récupérer le dossier analysé
Set dossierAnalyse = CreateObject("Scripting.FileSystemObject").GetFolder(pathDossierAnalyse)

'boucler sur tous ses sous-dossier
For Each sousDossierAnalyse In dossierAnalyse.SubFolders
    
    'récupérer la date (nom du sous-dossier) dans un tableau
    tabStr = Split(sousDossierAnalyse.Name, "_")
    
    'si le sous dossier fait partie du mois et de l'année analysés
    If tabStr(1) = moisAnalyse And tabStr(2) = anneeAnalyse Then
        
        'boucler sur tous les fichiers du sous-dossier
        For Each fichierAnalyse In sousDossierAnalyse.Files
            
            'si le fichier porte les bon nom
            If fichierAnalyse.Name = nomFichier Then
                
                'ouvrir le fichier en lecture seule
                Set wbk = Application.Workbooks.Open(fichierAnalyse.Path, , True)
                
                'boucler sur tous les onglets du fichier
                For Each sht In wbk.Sheets
                    
                    'si l'onglet courant porte le bon nom
                    If sht.Name = nomOnglet Then
                        
                        With ThisWorkbook
                        
                            'copier l'onglet à la suite des onglets de ce classeur
                            sht.Copy after:=.Sheets(.Sheets.Count)
                            
                            'renommer le nouvel onglet de ce classeur avec le numéro du jour
                            .Sheets(.Sheets.Count).Name = tabStr(0)
                            
                        End With
                    End If
                Next sht
                
                'fermer le classeur (sans enregistrer les changements
                wbk.Close False
            End If
        Next fichierAnalyse
    End If
Next sousDossierAnalyse

'détruire les objets
Set dossierAnalyse = Nothing
End Sub

a+

 

[man95]

Re : récupération deuil sur un mois

En effet dyslexie du doigt...

je vais essayer d'etre plus clair dans ma demande ci dessus.

dans un répertoire j'ai X sous répertoire (1 par jour au format 01_10_09). dans chaque sous répertoire j'ai un fichier XLS. Dans ce fichier XLS une feuille.
ce qui donne en ex:
C:\essai\30_09_09\toto.xls (nom de l'onglet = test)
j'aimerai qu'une macro aille:

copier la feuille "test" du fichier toto.xls situé dans le sous rep 01_10_09 dans mon classeur actif (ex: synthese.xls) en la renommant en "1"

puis faire la même chose avec le sous répertoire suivant

copier la feuille "test" du fichier toto.xls situé dans le sous rep 02_10_09 dans mon classeur actif (ex: synthese.xls) en la renommant en "2"

et ainsi de suite jusqu'au dernier jour du mois sous rep "31_10_09"

j'imagine, donner le mois de référence à la macro (dans l'exemple Octobre) un calcul est fait pour connaitre le nombre de jour de ce mois et ensuite une boucle est faite (1 à 31)pour passer dans chaque sous rep copier l'onglet "test" dans le classeur actif (synthese.xls) et le renommer suivant le jour copier (1, 2, 3,..., 31)

Je ne suis pas sur d'être beaucoup plus clair mais je me force...


Merci encore de votre aide

MPR

 

[CBernardT]

Re : récupération deuil sur un mois

Bonjour man95, 13GIBE59, Papou-net, mromain et le forum,


Un classeur nommé "Synthese" qui permet de réaliser :

1- Le choix du répertoire contenant les sous répertoires contenant les classeurs nommés "toto.xls avec sa désignation affichée.
2- La suppression des feuilles du mois précédent puis la copie des feuilles "test" des classeurs toto.xls présents dans les sous répertoires journaliers.
3- Une récapitulation en première page des copies réalisées.

 

[JJ1]

Re : récupération deuil sur un mois

Bonjour à tous, le titre est forcément en rapport avec la Toussaint..

ps: il faudrait sans doute penser à le modifier pour une recherche future.

 

[man95]

Re : récupération Feuil sur un mois

Bonjour a vous tous, et merci pour vos réponses

J'ai bien changé le titre de mon post mais il ne s'affiche seulement sur ma réponse.

jmromain, je suis en train de tester votre solution et elle me va parfaitement sauf que avec mes rep-fichiers-feuilles la macro ne rapatrie rien du tout
J'ai vérifié que les noms était correct (Sous Rep, Fichier, Feuil)
La seule difference est que j'ai des macros dans la feuille que je veux copier (est ce la raison ?) je vais essayer de trouver le pourquoi.

Bonjour CBernardT et merci pour ta réponse, je vais regarder votre fichier et je reviens vous tenir au courant de mon avancement.

MPR

 

[man95]

Re : récupération Feuil sur un mois

mromain

je viens de comprendre d'ou venait le probleme. il provient du nom du sous répertoire par contre je ne sais par pourquoi.

Dans l'archive que vous m'avez transmise j'ai ajouté deux journées extraites de mes fichiers (13_10_09 & 28_10_09).
j'espère que cela pourra aider à comprendre .... et par la même occasion solutionner mon problème.


Vous remerciant par avance

MPR

 

[man95]

Re : récupération deuil sur un mois

je viens de trouver !

Le probleme venait de la variable 'nomFichier = "toto.xls' alors que mes fichiers sortent en toto.XLS

Merci encore pour vos réponses.

MPR