Ouv. fichier + boucle + inscription

[Flop]

Bonjour à tous.. Voici "encore" mon petit problème

Il y a fichier pour chaque département et un pour chaque groupe soit pour le dép 1

Top.S - dép1-G1.xls
Top.S - dép1-G2.xls
Top.S - dép1-G3.xls

Top.S - dép2-G1.xls

c'est fichier sont dans d:\mes documents\Top.S

bien sur dép1 et un nom génerique donc je pense qu'il faut se fier au données de la colonne B.

l'objectif et d'ouvrir chaque fichier pour chaque département et chaque groupe.
si on trouve le fichier inscrire J dans la celule correspondant à ce meme dép et group et si on ne trouve pas le fichier inscrire L


comme toujours un exemple valant mieux qu'un long discours :

voici mon fichier :

PS ; j'en suis que la :

'import du fichier
Sub import_fichier()

rep = "D:\Mes Documents\"

dép = "dép"
groupe = "g1"

fichier = rep & "Top.S - " & dép & "-" & groupe & ".xls"


Workbooks.Open Filename:=fichier

End Sub

 

[Pierrot93]

Re : Ouv. fichier + boucle + inscription

Bonjour Flop

tu devrais utiliser des noms non accentués comm variable. Remplace "dép" par "dep", VBA n'aime pas beaucoup les accents.

bon après midi
@+

 

[Flop]

Re : Ouv. fichier + boucle + inscription

Nobody can help me ?

beaucoup doivent faire le pont.. à la chance.. !!

merci d'avance.

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

Salut Flop
bonsoir le Forum

en pièce jointe une approche
modifier rep le chemin dans la macro
Le Fichier :

Regarde la pièce jointe Flop-Ouverture FichierV1.xls

Bonne fin de Soirée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

Génial ton code marche très bien.. juste une petite question..

si je veux copier des fichier qui s'ouvrent automatiquement à quel moment de la boucle je dois me mettre..

pour etre précis dans ce fichier il va y avoir un onglet pour chaque département
dans chaque onglet je vais copier une zone d'info pour chaque groupe

Dans l'onglet dep1, sur la cellule A1 y aurait une info du fichier
Top.S - dep1-G1.xls
Dans l'onglet dep1, sur la cellule A2 y aurait une info du fichier
Top.S - dep1-G2.xls
Dans l'onglet dep1, sur la cellule A3 y aurait une info du fichier
Top.S - dep1-G2.xls

voila le principe. merci d'avance.

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

Salut Flop
Bonjour le fil
Bonjour le Forum
tu dis

si je veux copier des fichier qui s'ouvrent automatiquement à quel moment de la boucle je dois me mettre..

pour etre précis dans ce fichier il va y avoir un onglet pour chaque département
dans chaque onglet je vais copier une zone d'info pour chaque groupe

arff moi comme Dab, je ne comprends pas ta demande ,mais bon on a l'habitude Ici
si tu m'expliques par un exemple ,je verrai ce que je peux faire Lol
Merci D'avance
Bonne fin de Journée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

lol.. j'ai presque cru etre clair 😀

alors je m'explique le but de ce fichier est :

- savoir si le fichier de chaque groupes de chaque niveaux existe (ca tu la fais)

- la deuxième chose et je vais essayer de me faire comprendre 😱

à chaque fois que le programme teste la présence du fichier 2 cas :

- le fichier n'existe pas -> il inscrit L dans la case correspondante ( ca tu la fais également)
- le fichier existe -> il inscrit J dans la case ca c'est ok et ensuite il copie la plage A1😀3 de ce meme fichier dans l'onglet correspondant au dép. sur la ligne 1 pour le G1, sur la ligne 5 pour le G2 sur la ligne 9 pour le G3.

ceci pour me permettre de faire une compile des fichiers.

ex :

je lance le prog

il trouve le fichier : Top.S - dep1-G1.xls

il m'inscrit J dans la case correspondante et copie la plage A1😀3 du fichier Top.S - dep1-G1.xls dans l'onglet dep1 et sur la ligne 1

et ainsi pour chaque fichier


J'espere etre compréhensible cette fois ci.. encore merci de ton aide

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

re Lol
bon aller la presque derniere Lol
donc je teste si le fichier existe je mets J et je colle dans ce fichier dans la feuille dep correspondante les données de la plage A1 B 3 ,ligne 1 ,5 ou 9 celon le Groupe (je vais regarder ce que je peux faire) après ta confirmationLol


Merci d'avance
bonne fin de Journée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

re Lol
bon aller la presque derniere Lol
donc je teste si le fichier existe je mets J et je colle dans ce fichier dans la feuille dep correspondante les données de la plage A1 B 3 ,ligne 1 ,5 ou 9 celon le Groupe (je vais regarder ce que je peux faire) après ta confirmationLol


Merci d'avance
bonne fin de Journée

oui tu teste si le fichier existe oui J non L, et tu prends la zone a1 : d3 du fichier que tu viens de tester et tu le colle dans l'onglet correspondant au dép tester (c'est le fichier de test qui comprend les onglets) sur la ligne 1,5 ou 9 selon le groupe..

Je pense que c'est ce que tu as dit, mais je veux etre sur, que ducros ne se decarcasse pas pour rien.. merci d'avance, 🙂

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

Salut Flop
bonjour le Fil
Bonjour le Forum

une question dans ces Fichiers Top.S - dep X-G X.xls
y a t'il plusieurs feuilles et quelle est le nom de la feuille ou l'on doit récupérer les données

Bonne journée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

Salut Flop
bonjour le Fil
Bonjour le Forum

une question dans ces Fichiers Top.S - dep X-G X.xls
y a t'il plusieurs feuilles et quelle est le nom de la feuille ou l'on doit récupérer les données

Bonne journée

il n'y a qu'une seule feuille dans les fichier et qui se nomme : F.export

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

Salut Flop

en pièce jointe une premiere approche

Le Fichier :

Regarde la pièce jointe Flop-Ouverture FichierV2.zip

Bonne fin de Journée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

Salut Flop

en pièce jointe une premiere approche

Le Fichier :

Bonne fin de Journée

j'arrive pas à faire mes tests, car le fichier d'origine est un exemple et dans mon fichier réel les collonnes de tombent pas aux meme endroits et j'arrive pas à les modifier.. je t'ai mis l'emplacement réel de mes données si tu peux me mettre les commentaires dans le code que je comprenne comment il trouve les "emplacements des données".. merci d'avance et encore bravo pour ton travail car tout doit marcher !!

 

[ChTi160]

Re : Ouv. fichier + boucle + inscription

re Flop

En pièce jointe le fichier modifié

Le Fichier :

Regarde la pièce jointe Flop-Ouverture FichierV4.zip

Bonne fin de Soirée

 

[Flop]

Re : Ouv. fichier + boucle + inscription

Génial, ca marche impec.. encore merci Jean Marie