Discussion :

[Pierre67]

Bonjour à tous

j'ai un fichier dans lequel sont saisies plusieurs données (demandeur, surfaces, adresses, couts, ...).
Ces données doivent être éclatées dans 3 fichiers à structure identique pour y subir presque le même traitement.
En fait c'est l'inverse d'un tableau récapitulatif de 3 tableaux.

Mon problème est comment naviguer entre ces différents fichiers à savoir :
copier une partie dans le 1er, une autre dans le second puis le reste dans le troisième, ...

le souci c'est les activeworkbook, activesheet, .... pour basculer de l'un aux autres sans avoir à les fermer.
ils sont tous dans le même répertoire.

Pour le code de traitement des données pas de problèmes, c'est comment basculer entre eux.
si vous avez un conseil
cordialement

[tamtam64]

Bonjour je vais me faire un plaisir de te repondre et de t'expliquer , de la meme facon qu'un ancien du forum l'a fait il y a un mois.

Alors deja on evite tous les activebook les select etc, car on s'embrouille.

1) raison , c'est la galere pour le debuggage , avec l'obkligation des fois de devoir verifier le nom etc.. et puis pour debugguer , si tu es bloqué sur une partie du code des fois c'est la merde si tu es pas sur la bonne feuille sur excel enfin pour resumer c'est le bordel . Don tu vas utiliser des with et definir tes feuilles, a chaque feuille que tu va declarer , corespondra une seule et meme feuille.
exemple

Code :

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

1
2
3
4
dim xlsheet as worksheet
dim xlsheet2 as worksheet
set xlsheet  = thisworkbook.worksheets("")
set xlsheet = thisworkbook.worksheets('')

avec ca c'est tres claire ensuite tu vas jongler avec ces feuilles avec des with

Code :

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

1
2
3
4
5
with xlsheet
.............
end with
with xlsheet2
.......end with

voila j'espere t'avoir aidé, si tu as besoin d'un conseil précis je reste sur le forum

[Pierre67]

Merci Tamtam

je vais progresser par étapes

1 * copier les données utiles dans chaque fichiers
2 * traiter les données fichier par fichier

je reviendrai en cas de besoin

[tamtam64]

c'est exactement ca tu selectionne tes ranges avec

Code :

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

application.union(range1,range2.....)

ou tu les fait passer dans un tableau ou sinon tu les copy cole ou bien eventuellement si c'est fixe,

Code :

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

xlsheet.range1 = xlsheet2.range2 etc

Bonne chance en tt cas mais je pense que tu as toutes les cartes en main et n'oublie pas de poster ta propre reponse c'est tjs bon pour les autres et puis pour toi

[Pierre67]

merci TamTam

je reviens au cas où
et posterait mon code si abouti

[joe.levrai]

Bonjour,

la partie essentielle est de savoir :
- quel est le dénominateur qui permet de séparer tes données pour avoir les trois parties voulues : tu le sais
- comment sont rangés tes fichiers : tu le sais

ça te donne donc la méthode à reproduire
il ne reste plus qu'à utiliser l'enregistreur de macro, ouvrir le premier fichier, récupérer le premier paquet, le coller dans le fichier, l'enregistrer et le fermer

et ensuite, une simple boucle pour réaliser le traitement aux trois fichiers

prépare ton code et reviens si tu n'arrives pas à retoucher le code pour supprimer les Select et Active