Soucis d'extraction de fichier

Bonjour à tous,

j'ai une macro me permettant de lancer une requête via Oracle Discoverer et en extraire un fichier Excel qui s'enregistre dans un répertoire. soucis le fichier ne s'enregistre pas et je ne comprend pas pourquoi. Le code fonctionne parfaitement pour un fichier pas du tout pour d'autre. j'ai récupérer le code d'origine et modifier les noms des requêtes / classeurs et feuille... Je joins le code à toute fin utile et vous remercie de votre aide par avance.

Sub Lanceur()
' macro de lancement des requêtes
chemin = ThisWorkbook.Path & "\"

Application.Cursor = xlWait

On Error GoTo erreur

Open chemin & "macro.bat" For Output As #1
Print #1, "path=path;C:\ORACLE\PRODUCT\11.1.1\bin"
Print #1, "C:\ORACLE\PRODUCT\11.1.1\bin\dis51usr.exe /CONNECT " & Range("C4").Value & "/" & Range("C5").Value & "@" & Range("C3") & " /OPEN " & Chr$(34) & chemin & "Etasup.DIS" & Chr$(34) & " /Parameter " & Chr$(34) & "Date Mini" & Chr$(34) & " " & Range("C9").Value & " /Parameter " & Chr$(34) & "Date Maxi" & Chr$(34) & " " & Range("C10").Value & " /Export xls " & Chr$(34) & chemin & "Etasup.xls" & Chr$(34) & " /batch"
Close #1
AppLancee = True

IdApp = Shell(chemin & "macro.bat", vbNormalFocus)

Application.Cursor = xlDefault

erreur:
If Err <> 0 Then
MsgBox Err.Description
End If

End Sub

Logiquement à ce stade je devrais avoir le fichier .xls généré dans mon repertoire défini par le "chemin"

Il n'y est pas :(