Bonjour à tous,
 
Je suis complètement nul en excel, mais j'ai un problème de taille. Sur un logiciel de boulot qui fait appel à une feuille excel avec un macro, celle-ci doit être modifiée et personne ne connait grand chose à ce domaine là. Je cherche désespérement de l'aide car sinon on est dans la panade....
 
J'explique ma démarche :
1) Un logiciel tiers génère un fichier que l'on appelle d:\XXX\XXXXX\XXX\batim.xls contenant des données.
2) J'ai un modèle excel d:\XXX\XXXXX\XXX\offre.xlt qui va piocher dans le batim.xls et qui affiche un fichier perso.xls contenant la macro.
3) Nous ne voulons pas que le fichier batim s'ouvre à l'écran, uniquement le fichier perso.xls
 
Auparavant le fichier batim était un fichier texte, maintenant c'est un fichier excel, ci dessous les macros existantes, comment faudrait il les modifier pour que cela fonctionne.
 
Macro3

Sub Macro3()
    Workbooks.OpenText Filename:="C:\BATIM.TXT", Origin:=xlWindows, _
         StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:= _
        True, Semicolon:=False, Comma:=False, Space:=False, Other _
        :=False, FieldInfo:=Array(1, 1)
    ChDir "d:\lse"
    Workbooks.Open Filename:="D:\Lse\OFFRE.xlt", UpdateLinks:=0
    Windows("BATIM.TXT" ).Activate
    ActiveWorkbook.Close
End Sub
 
 
Macro4

 
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 05/02/2003 par PF7602A
'
 
'
    Workbooks.Open Filename:="L:\OFFRE.xlt", UpdateLinks:=3, Editable:=True
End Sub
 

 
Macro5
 
Sub workbook_open()
    Workbooks.OpenText Filename:="C:\BATIM.TXT", Origin:=xlWindows, _
         StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:= _
        True, Semicolon:=False, Comma:=False, Space:=False, Other _
        :=False, FieldInfo:=Array(1, 1)
    ChDir "d:\Lse"
    Workbooks.Open Filename:="D:\lse\OFFRE.xlt", UpdateLinks:=0
    Workbooks("BATIM.TXT" ).Activate
    ActiveWorkbook.Close
 
End Sub
 
Un grand merci pour celui ou ceux qui pourront venir me donner un coup de main, car je galère et je ne sais plus par quel bout m'y prendre.