Discussion :

[kortnor]

Bonjour tout le monde,

j'ai un souci

je voudrai à partir d'un seul fichier lancer des macro se trouvant dans d'autre fichiers (du meme repertoire) ainsi que de rapatrier certaines info dans un fichierfinal
j'ai :
-un fichier source contenant un flux de donnée que je dois répartir en département (selon une condition qui réparti le flux dans les sheet correspondante) environ 12000 lignes
-j'ai 9 fichier xls qui sont ses même département qui va traiter le flux
(selon certaines condition prédéfini comme le status du flux ) environ 500 à 4000 lignes par fichier xls

il faudrai que ma macro dispatch les info du fichierSource (point 1) vers les fichiers departement et qu'il lance les macro de chaque fichier

pour finir mon fichier destination (final) va exraire les info demander dans les fichier departements.

Je voudrai que tout ceci se lance à partir de la macro provenant du fichierSource

Séparement j'arrive à le faire : "purger l'info du fichier source" apres je faire des "copier/coller"dans les fichiers departement qui va lui aussi traiter les info
et pour finir rechercher dans chacun des fichier l'info correspondante
ca me prend environ 2 à 3 heures par semaines et c'est vraiment trop

en espérant que vous avez pu me comprendre


note: si je traite le tout dans un seul fichier excel, j'ai environ 100 feuilles lol

[zazaraignée]

Il est possible d'ouvrir tes fichiers tout en les masquant. Ce cette façon, les macros qu'ils contiennent seront disponibles. Il ne faudra pas oublier de fermer ces fichiers avant de terminer la macro qui appelle les autres macros, ou au moment de fermer ton fichier source.

Si tu as besoins de détails, tu dis.

[kortnor]

c'est ce que je me disais, j'ai commencer mon code dans ce sens
par contre j'ai une question,
comment faire pour connaître le chemin des fichier que je vais utiliser (fichier xls) car pour le moment je stipule ou se trouve les fichiers
par la suite cette "api" sera sur un serveur....
est-ce que je peux simplement utiliser le chemin comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Workbooks.Open("\\serveur\repPerso\fichier.xls")

ou me faut-il faire cela autrement

aussi une chose, on fait comment pour masquer les workbook lorsque la macro sera en train de les traiter?

comment faut-il faire pour écrire dans un classeur fermé et lancer ses propres macro intégré
car ce que je trouve pour le moment, c'est d'effectuer des requete sql dans un classeur fermé ce qui ne m'intéresse pas du tout

[zazaraignée]

comment faire pour connaître le chemin des fichier que je vais utiliser (fichier xls) car pour le moment je stipule ou se trouve les fichiers
par la suite cette "api" sera sur un serveur....

En utilisant la boîte de dialogue Ouvrir. Je ne sais plus par coeur comment le faire. En faisant une recherche sur le forum, tu devrais trouver : je crois qu'il y a eu quelques discussions à ce propos. Sinon, il y a le composant CommonDialog (dans une des bibliothèques de composants VB) qui peut servir à la même chose.

comment faut-il faire pour écrire dans un classeur fermé et lancer ses propres macro intégré

En utilisant les objets propres à Excel... Probablement de la même façon que si on pilotait des fichiers Excel depuis un autre Application. Va voir les tutoriels VB6 d'automation Office. La façon de faire devrait être essentiellement la même.

[JackOuYA]

Bonjour,

Je dirai qu'on est obligé d'ouvrir un fichier excel pour lancer une macro qu'il contient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim wk As Workbook
Set wk = Workbooks.Open("\\serveur\repPerso\Macro1.xls")
'Nous pouvons même "cacher" ce classeur :
wk.Windows(1).Visible = False
 
'Utiliser ici ou ailleur une macro...de ce classeur
Run ("MAcro1.XLS!test")
 
'Et aussi fermer le classeur une fois qu'on en as plus besoin.
wk.Close False

Jacques.

[zazaraignée]

Sans oublier le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set wk = Nothing

après le wk.Close.

[kortnor]

ok merci pour vos réponses
je vais de suite modifier mon code et y insérer une barre de progression afin que mes collègues ne pensent pas que Excel " à " encore planter
Pour ce qui est du chemin d'accès je suis étonné de voir qu'il n'y ai pas la possibilité de lui dire que les fichiers se trouve dans le meme emplacement que le fichier source

je pense que je vais devoir créer comme tu m'as proposé zazaraignée un jbox qui stipulera quel est le répertoire de traitement

[kortnor]

Bonjour,

Je dirai qu'on est obligé d'ouvrir un fichier excel pour lancer une macro qu'il contient.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim wk As Workbook
Set wk = Workbooks.Open("\\serveur\repPerso\Macro1.xls")
'Nous pouvons même "cacher" ce classeur :
wk.Windows(1).Visible = False
 
'Utiliser ici ou ailleur une macro...de ce classeur
Run ("MAcro1.XLS!test")
 
'Et aussi fermer le classeur une fois qu'on en as plus besoin.
wk.Close False

Jacques.

apres avoir modifier mon code et ajouter set wk=nothing

je ne parvient plus apres le lancement de ma macro à ouvrir ces classeur car par la suite ses classeurs devront etre visionné

[JackOuYA]

Il te suffit de ne pas le fermer ton fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
....
wk.Windows(1).Visible = False
 
'Utiliser ici ou ailleur une macro...de ce classeur
Run ("MAcro1.XLS!test")
wk.Windows(1).Visible = true 'AFFICHE LE FICHIER..

Pour ton autre probléme si c'est la sélection du fichier qui te cause un soucis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub MonTest()
 MonFichier = Application.GetOpenFilename
 If MonFichier = False Then Exit Sub
 MsgBox "Le fichier choisi : " & MonFichier
End Sub

Jacques.