Discussion :

[Maxime082]

Bonjour à tous, j'ai un problème avec mon code, je vous explique ce que je souhaite faire.

Dans un dossier, j'ai plein de fichier au format suivant :
CHC02SERIEREP44BN15Seul le numero du REP et de BN change (il s'incrémente donc).

Il existe a chaque fois un fichier pour chaque repère (REP) et BN choisi.

Le contenu de mon fichier est le suivant :

[]
CODE_UP = CH
CODE_ATEL = ROBOT FCL
CODE_LIGNE = C02
CODE_OP = REP 44
CODE_SOP = BN 15
CODE_MACH = 0
CODE_PO = 0
CODE_OR = CHFCL
CODE_FON = C02
CODE_PROD = SERIE
CODE_TYP = 0
NOM_GEX = CHC02SERIEREP44BN15
NOM_GAMME = CHC02SERIE
DESI_GAM = Culasse C02 Serie
ROLE_MES = MS
TAILLE_ECH = 1
NUM_OF =
CRE_VER = O

Les repères se divisent en BN.

J'aimerai donc, créer de nouveaux fichiers à partir du dernier crée.
J'aurai besoin de noter dans une textbox : la valeur de mon dernier repère crée (ici 44).

Ensuite dans une autre textbox, on me demanderai combien de nouveaux repère je veux créer. (Par exemple 3, donc je créer le repère 45, 46 et 47).

Enfin on me demanderai combien je veux créer de BN pour chaque repère dans une autre textbox ( si je choisi la valeur 2) voici les fichiers qu'il me créera :


CHC02SERIEREP45BN01
CHC02SERIEREP45BN02
CHC02SERIEREP46BN01
CHC02SERIEREP46BN02

CHC02SERIEREP47BN01
CHC02SERIEREP47BN02


Voici le contenu du fichier que je dois crée pour le CHC02SERIEREP45BN01

[]
CODE_UP = CH
CODE_ATEL = ROBOT FCL
CODE_LIGNE = C02
CODE_OP = REP 45
CODE_SOP = BN 01
CODE_MACH = 0
CODE_PO = 0
CODE_OR = CHFCL
CODE_FON = C02
CODE_PROD = SERIE
CODE_TYP = 0
NOM_GEX = CHC02SERIEREP45BN01
NOM_GAMME = CHC02SERIE
DESI_GAM = Culasse C02 Serie
ROLE_MES = MS
TAILLE_ECH = 1
NUM_OF =
CRE_VER = O

DANS ce cas ci je crée donc 6 fichiers qui doivent s'enregistrer
dans le dossier c:\sesame\data_lecteur\C02\ et portent le nom CHC02SERIEREPXXBNYY (au format .dat si possible mais le format txt est possible aussi).

Je vous ai mis en pièce jointe l'interface que j'ai crée et le debut de code.

Merci beaucoup de m'aider

Cordialement

[Maxime082]

Je vais donner un exemple pour etre plus clair :

Si j'entre 44 dans ma premiere texte box et que dans ma deuxieme je rentre 3. Il doit me créer le repere 45, 46, 47.

Si j'entre 4 dans la derniere textbox, je crée le fichier avec le repere 45, BN 01, ensuite le fichier avec REP45 BN02 ... rep45 BN04 ... REP47 BN04.

Voici mon code :

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
16
17
18
19
20
21
22
Private Sub ButVal_Click()
Dim a, b, c, i, j As Integer
 
a = CInt(txta.Text) ' a = dernier repère crée
b = CInt(txtb.Text) ' b = Nombre de repère à créer
c = CInt(txtc.Text) ' c = nombre de bn à créer par Repère
 
For i = a To a + b
i = a + 1
Cells(5, 1).Value = "CODE_OP = REP" & " " & i
 
Next
 
For j = 0 To c
j = j + 1
Cells(6, 1).Value = "CODE_SOP = BN" & " " & j
Next
 
 
Cells(13, 1).Value = "NOM_GEX = CHC02SERIEREP" & i & "BN" & j
 
End Sub

J'ai commencé cela mais ça plante, j'aimerai enregistrer chaque fichier dans le chemin : c:\sesame\remontees_std et entrer le nom que je veux pour l'enregistrer

Je vous mets le code en PJ