Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1839 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide pour Macro Excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide pour Macro Excel

n°2171999
ptitgimpy
Posté le 21-01-2013 à 11:19:49  profilanswer
 

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.

mood
Publicité
Posté le 21-01-2013 à 11:19:49  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide pour Macro Excel

 

Sujets relatifs
Aide sur macro Excelbesoin d'aide (URGENT) pour une macro-EXCEL VBA
besoin d aide macro ExcelAide pour une macro sous Excel :(
Besoin d'aide sur une macro Excelaide pour macro excel
gestion de fichiers excel à l'aide d'une macro spécifiqueAide pour une macro excel
[VBA / Excel] Aide sur une macro a programmermacro excel pour copier et trier des colonnes : aide débutant
Plus de sujets relatifs à : Aide pour Macro Excel


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR