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.
