Bonjour,
j'ai crée une macro qui permet de copié et de coller certaines cellules dans un nouveau fichier excel,
j'aimerais que celle ci se fasse sur l'ensemble de mes fichiers excel qui sont dans un répertoire précis,
mais je ne parviens pas à trouver comment faire.
Merci d'avance
voici ma macro :
Sub test()
'
' test Macro
'
'
Range("A2").Select
Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="""", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:= _
True
Range("A2,B2,F2").Select
Range("F2").Activate
Selection.Copy
Windows("production semaine 37.csv").Activate
ActiveSheet.Paste
Windows("production semaine 37.csv").Activate
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Workbooks("orders.csv").Close False
End Sub