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

cycy05

XLDnaute Nouveau
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 ?
 

Pièces jointes

  • A.xlsx
    8.3 KB · Affichages: 2
  • B.xlsx
    8.3 KB · Affichages: 2
  • C.xlsx
    8.3 KB · Affichages: 1

Yaloo

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088