Combiner 2 macro en 1

[popeckjunior]

Bonjour,

je souhaite combiner 2 macro en une. je m'explique :

j'ai deux macros et je souhaite que la macro Tir s'execute en 1 et la macro EnregistreTxt s'execute en deux

petite précision je souhaite que la feuille "GEMO" (actuellement masqué reste masqué sans être suprimer )

actuellement les deux macros m'oblige à etre sur la feuille que je souhaite transformer en txt
(il y a un fichier type en PJ)

merci de votre aide

bonne soiree

 

[pedrag31]

Re : Combiner 2 macro en 1

Bonjour Popeckjunior, bonjour le forum,

Un essai en fichier joint.
Voir si cela correspond a ton besoin, et a adapter ensuite...

Bonne journée,

 

[JNP]

Re : Combiner 2 macro en 1

Bonjou le fil ,
Une variante en faisant sauter (presque) tous les select

Dim L As Integer
Dim rep As String, fich As String
L = Sheets("Balances").Range("G2000").End(xlUp).Row
L = L - 9
With Sheets("GEMO")
.Range("A2:i2000").ClearContents
.Range("A1:I1").AutoFill Destination:=.Range("A1:I" & L), Type:=xlFillDefault
End With
Sheets("Balances").Select
rep = ActiveWorkbook.Path & "\"
fich = "Txt_Direct"
ActiveWorkbook.SaveAs rep & fich & ".txt", xlText, False
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

Bonne journée

 

[popeckjunior]

Re : Combiner 2 macro en 1

Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!Merci!!!!

A vous deux

la macro semble fonctionné parfaitement

Bonne fin de soiree au Forum