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

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof