Mettre à jour des données sous Excel VBARésolu

Question

Bonjour,
J'ai créée sous Excel VBA, une application contenant plusieurs fichiers sous différents dossiers.
Un de ces dossiers concerne l'année qui doit être traitée. Mon souci actuel est de devoir changer manuellement le chemin pour modifier l'année.
Aussi, je cherche comment écrire du code VBA, pour éviter toutes ces manipulations.
Merci par avance.


louboul

cs_MPi · Accepted Answer

@louboul, pourrais-tu expliquer un peu plus ?


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

cptpingu · Answer

Bonjour.

Aucun rapport avec le C++, je déplace de "C++" vers "Visual Basic - VBA".
Merci à l'avenir de faire attention à la section ou tu postes.

________________________________________________________________________
Historique de mes créations, et quelques articles:
[ http://0217021.free.fr/portfolio http://0217021.free.fr/portfolio]
Merci d'utiliser Réponse acceptée si un post répond à votre question

louboul · Answer

Bonjour,
Mon application se décompose ainsi:
C:\Gestion\Annee2012\agents\x fichiers
C:\Gestion\Annee2012\voitures\x fichiers
C:\Gestion\Annee2012\horaires\x fichiers

Tous les fichiers contiennent de nombreuses macros dans lesquelles on retrouve le chemin indiqué ci dessus; mon but serait d'avoir un seul répertoire Gestion qui pourrait servir quelque
soit l'année, car a chaque changement d'année, je dois manuellement modifier le n° de l'année.
Merci
louboul

cs_MPi · Answer

Ça dépend où tu mets ces chemins.
Si tu les mets directement dans ton code, ce pourrait être quelque chose du genre:
"C:\Gestion\Annee" & Year(Date) & "\agents\x fichiers 

Par contre, tu pourrais avoir une feuille qui contiendrait ces chemins et que tu lirais à partir de ta ou tes macros. Tu n'aurais qu'à changer la date dans une colonne d'Excel plutôt que partout dans tes macros. Ça me semble plus simple ainsi...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

louboul · Answer

Bonjour,
Merci pour ces 2 hypothèses, je vais les tester...
A bientôt. 


louboul

louboul · Answer

Bonsoir,
J'ai testé la 1ére solution, et cela marche, mais je vais devoir intervenir sur toutes les macros sur lesquelles Annee 2012 doit être modifiée.
Par contre je ne vois pas comment écrire le code qui irait chercher le chemin sur une simple feuille de calcul.
A bientôt.

louboul

cs_MPi · Answer

Tu n'as qu'à créer une nouvelle feuille dans laquelle tu inscris tous les chemins et noms des fichiers tels que l'as décris au départ
C:\Gestion\Annee2012\agents\x fichiers
C:\Gestion\Annee2012\voitures\x fichiers
C:\Gestion\Annee2012\horaires\x fichiers 

Donc, lorsque tu dois changer l'année des fichiers à lire, tu fais un Ctrl-H pour remplacer 2012 par 2013, disons...

Ton code n'a qu'à boucler la colonne où tu auras mis ces chemins/fichiers et faire ce qu'il y a à faire avec.

Je ne sais pas trop ce que doit faire ton ou tes programmes, mais tu peux soit boucler la colonne
nbLignes = MaFeuille.Cells(rows.count, "A").end(xlup).row
For i = 1 to nblignes
   Call TraiterFichier(MaFeuille.Range("A" & I))
next

soit transférer ces chemins dans un tableau et boucler ce tableau
MonTablo = MaFeuille.Range("A1:A" & nblignes).Value
Call TraiterFichier(MonTablo)

Mais peut-être ai-je mal compris le problème...(?)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

louboul · Answer

Bonjour,
En fait, dans chaque dossier, agents, voitures, horaires, se trouvent environ 15 fichiers dans
lesquels les macros vont chercher l'information désirée. 
La 1ère solution que j'ai testée fonctionne bien, mais je suis obligé de modifier le code de toutes les macros concernées, et elles sont nombreuses par fichiers.
A priori, quelle que soit la solution retenue, il faudra intervenir sur chacune des macros.
Merci pour les infos.


louboul

Mettre à jour des données sous Excel VBA

8 réponses

Votre réponse

Discussions similaires