XL 2010 Changer la mise en page de plusieurs fichiers dans un dossier

cycy05 · 23 Juillet 2019

Bonjour,

J'ai plusieurs fichiers (en xlsx) dans un dossier et je souhaiterai (avant d'appliquer une macro dans un fichier X.xlsm) changer toute la mise en page de mes fichiers en xlsx par ces tâches :

Sub Mise_en_page()
'
' Mise_en_page Macro
'

'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), 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("F12").Select
ActiveWorkbook.Save
Range("C2").Select
End Sub

Comment faire pour généraliser la mise en page à tous mes fichiers svp ?

Yaloo · 23 Juillet 2019

Bonjour cycy05,
C'est le même principe que pour ton autre fichier
Après Workbook.open…. tu mets ton nouveau code

VB:

    Workbooks.Open ThisWorkbook.Path & "\" & Temp
    Columns("A:A").TextToColumns Destination:=Range("A1"), 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
    ActiveWorkbook.Save

Martial

XL 2010 Changer la mise en page de plusieurs fichiers dans un dossier

cycy05

XLDnaute Nouveau

Pièces jointes

Yaloo

XLDnaute Barbatruc

Discussions similaires