Bonjour,

J'ai un problème et j'explique la situation :

Je crée des dossiers à j-2 :
nommé par exemple jee_322R1 à jee_322R20
322 étant le quantième et R1 étant la région.
Dans chaque dossier il y a entre 1 et 20 fichiers nommé par exemple
nor322.xls, ale322.xls, etc..
A "j", je dois réouvrir chaque fichier de ce quantième pour insérer le fixing
US, CH et UK du jour.
Et je voudrais faire une macro qui puisse automatiquement le faire.
Mais voila le problème, je ne vois pas comment faire.

Pour créer les dossiers et les fichiers je fais comme cela et tout fonctionne mais pour faire le contraire à partir de la date du jour saisir le fixing et en
validant que tous les fichiers soient alimentés.
Je ne sais pas faire.
Si j'avais un début de code :
Merci par avance.
Norbert

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Len(LEQUANTIEME4.Text) = 1 Then LEQUANTIEME4.Text = "00" + LEQUANTIEME4.Text
If Len(LEQUANTIEME4.Text) = 2 Then LEQUANTIEME4.Text = "0" + LEQUANTIEME4.Text
qqq = LEQUANTIEME4.Value + LAREUNION4.Value
jeedir = "jee_" & LEQUANTIEME4.Value + LAREUNION4.Value
 
  MkDir disk + ":\DOPC\ALR\" + jeedir
 
p1:  For i = 0 To liste_fichiers.ListCount - 1
 
       If liste_fichiers.Selected(i) = True Then
          ph = Left(liste_fichiers.List(i), 3)
          info = Left(liste_fichiers.List(i), 3)
          chaine = Left(liste_fichiers.List(i), 3) + LEQUANTIEME4.Text + LAREUNION4.Text
          FileCopy disk + ":\DOPC\DOPC_DEV\ALR\" + liste_fichiers.List(i), disk + ":\DOPC\ALR\" + jeedir + "\" + chaine + ".XLS"
p2:       Workbooks.Open disk + ":\DOPC\ALR\" + jeedir + "\" + chaine + ".XLS"