diff --git a/rubarbe.f b/rubarbe.f
index fb73708aa35187046f86f05f969b177749e2ce7b..0748dd49d4c06337e1cdf34f80cfc47f0ed311ca 100644
--- a/rubarbe.f
+++ b/rubarbe.f
@@ -682,8 +682,11 @@ cliq      WRITE(*,*)'#                                                #'
       WRITE(*,*)'#                                                #'
       WRITE(*,*)'##################################################'
       WRITE(*,*)
-      WRITE(*,'(A)')'         ENTREZ LE NOM DE L ETUDE :'
-      READ(*,'(A20)') ETUDEDD
+      call getarg(1,ETUDEDD)
+      if (trim(ETUDEDD) == '') then
+        WRITE(*,'(A)')'         ENTREZ LE NOM DE L ETUDE :'
+        READ(*,'(A20)') ETUDEDD
+      end if
       WRITE(*,*)
 
 C INITIALISATIONS, PREPARATION DU CALCUL
diff --git a/rubarbe.f90 b/rubarbe.f90
index 8488265bda042d8ad295a911f8417941876e9856..c5c95ce8f56340aef0873bc0bb9207ec25ba5384 100644
--- a/rubarbe.f90
+++ b/rubarbe.f90
@@ -702,8 +702,11 @@
       WRITE(*,*)'#                                                #'
       WRITE(*,*)'##################################################'
       WRITE(*,*)
-      WRITE(*,'(A)')'         ENTREZ LE NOM DE L ETUDE :'
-      READ(*,'(A20)') ETUDEDD
+      call getarg(1,ETUDEDD)
+      if (trim(ETUDEDD) == '') then
+        WRITE(*,'(A)')'         ENTREZ LE NOM DE L ETUDE :'
+        READ(*,'(A20)') ETUDEDD
+      end if
       WRITE(*,*)
 
 ! INITIALISATIONS, PREPARATION DU CALCUL