Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 04/01/2012, 12h23   #1
Invité régulier
 
Homme
Inscription : novembre 2011
Messages : 85
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : novembre 2011
Messages : 85
Points : 5
Points : 5
Par défaut faire différentes opérations dans d'autres classeurs

bonjour à tous, je travaille sur un sujet, qui m'impose de travailler avec plusieurs classeurs,

j'ai donc mon classeur actifs à partir duquel je lance la macro et qui doit faire tout un tas d'opérations en allant chercher des infos dans les autres classeurs, les un après les autres.

Tout d'abord , la structure sera composé comme ceci :
Un dossier dans lequel on trouvera:

le classeur general
et deux dossier ( 2011) et (2012)

et dans ces dossiers tout les autres classeurs


sachant que le dossier de tete peut etre amené à bouger, est-il possible de spécifier l'emplacement des autres classeurs qu'a partir du dossier de tete, et pas des chemins antérieurs? du moment qu'ils restent toujours ensemble et sous la meme structure ( 2011 et 2012)?


Voici les opérations que j'effectue actuellement , et ce en jonglant d'onglet en onglets ( et maintenant je veux que ce soit de classeur en classeur):

Code :
Sheets("Top20 répartition h MO").Cells(4, variable3).Value = Application.WorksheetFunction.SumIf(Worksheets(variable1).Range("Q:Q"), 4014, Worksheets(variable1).Range("G:G"))
ou variable 1 est en fait une variable qui s'incremente, et qui désigne l'index des onglets de mon classeur. et je voudrais transformer cela en classeur extérieur , par exemple suivi1.xls

Code :
rendement = Application.WorksheetFunction.VLookup("*POMPE*", Worksheets(variable1).Range("D2: G65536"), 4, False) * 1000

Si vous avez des addresses de cours sur ce sujet, je suis preneur.

Merci beaucoup de votre aide.
kyros21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/01/2012, 13h15   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 920
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 920
Points : 7 237
Points : 7 237
Bonjour,

Ci dessous un peu de lecture

pour lister les fichiers d'un répertoire
http://excel.developpez.com/faq/inde...riptingRuntime

Pour la manipulation de l'objet Feuille
http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/01/2012, 14h29   #3
Invité régulier
 
Homme
Inscription : novembre 2011
Messages : 85
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : novembre 2011
Messages : 85
Points : 5
Points : 5
merci pour la lecture, je m'y attele.
kyros21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 06h32.


 
 
 
 
Partenaires

Hébergement Web