Bonjour,

j'essaie de rentrer un chemin conditionnel selon des valeurs trouvées dans un fichier texte mais cela ne marche pas...

J'obtiens au final la reponse "chemin"...
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
23
24
 DO 440 I=1,IG 
         IF(PR(I).EQ.'IPE')THEN 
           FICH=CHEMIN//'ipe.txt'
           JP=18  
           TYP=1
         ENDIF
         IF(PR(I).EQ.'HEA')THEN
           FICH=CHEMIN//'hea.txt'
           JP=24  
           TYP=1
         ENDIF
         IF(PR(I).EQ.'HEB')THEN
           FICH=CHEMIN//'heb.txt'
           JP=29  
           TYP=1
         ENDIF
         
WRITE(*,*)FICH
         OPEN(UNIT=40,
     $     FILE=FICH,
     $     STATUS='OLD',
     $     ACCESS='SEQUENTIAL',
     $     FORM='FORMATTED',
     $     IOSTAT=IOS)
Le write en rouge me renvoie la variable CHEMIN.

Si vous pouvez m'aider, merci d'avance !