Appliquer une macro personnelle sur plusieurs classeurs

Le 29/07/2014 à 12:42

Bonjour à tous,

je me permets de vous contacter car j 'ai un soucis: j'aimerais appliquer ma macro personnelle sur plusieurs fichiers qui commence toujours par Tableau de bord appro 29 07 14 et il y a que la date qui change.

Est ce que il y a un moyen de masquer la date pour pouvoir appliquer ma macro sur tous les fichiers?

J'ai trouvé ce code mais je n'arrive pas à l'appliquer sur ma macro.

Dim mDate As String

Dim Fichier As String

mDate = Replace(Date, "/", "")

Fichier = "Tableau de bord appro_" & mDate & ".xls"

Je remercie quiconque aura pris de son temps pour examiner ma question

Le 29/07/2014 à 13:17

Bonjour,

Sur base des infos données essaie avec ce code :

Dim mDate As String
Dim Fichier As String
mDate = Replace(Format(Date, "dd/mm/yy"), "/", " ")
Fichier = "Tableau de bord appro_" & mDate & ".xls"

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Crdlt

Le 29/07/2014 à 13:49

Rebonjour,

Non ça n'a pas fonctionné quand j'essayé de l' appliquer sur le fichier du tableau de bord 29 07 14.

Sub ESSAI()

'

' ESSAI Macro

'

Dim mDate As String

Dim Fichier As String

mDate = Replace(Format(Date, "dd/mm/yy"), "/", " ")

Fichier = "Tableau de bord appro_" & mDate & ".xls"

Range("A1").Select

Windows("Tableau de bord appro 28 07 2014.xlsx").Activate

ActiveSheet.Range("$A$1:$AU$220563").AutoFilter Field:=1, Criteria1:= _

"11222"

ActiveSheet.Range("$A$1:$AU$220563").AutoFilter Field:=5, Criteria1:=Array( _

"1", "10", "100", "102", "105", "108", "11", "110", "117", "118", "12", "120", "128", "13", _

"130", "132", "134", "135", "14", "140", "144", "1440", "147", "15", "150", "16", "160", _

"168", "17", "18", "180", "19", "192", "2", "20", "200", "201", "204", "21", "210", "22", _

"23", "24", "246", "25", "252", "26", "27", "28", "280", "288", "3", "30", "300", "308", "32" _

, "33", "330", "336", "34", "35", "36", "37", "39", "4", "40", "42", "420", "432", "44", "45", _

"46", "48", "5", "50", "504", "52", "53", "55", "56", "560", "6", "60", "600", "64", "66", _

"68", "7", "70", "71", "72", "738", "75", "8", "80", "800", "81", "84", "85", "88", "9", "90", _

"92", "96", "98", "99"), Operator:=xlFilterValues

ActiveSheet.Range("$A$1:$AU$220563").AutoFilter Field:=6, Criteria1:="<>"

ActiveSheet.Range("$A$1:$AU$220563").AutoFilter Field:=7, Criteria1:=Array( _

"1", "1000", "1001", "1008", "1009", "1013", "1020", "1022", "1027", "1030", "1039", _

"1041", "1046", "1059", "1061", "1062", "1072", "1080", "1092", "12", "20", "2000", "21", _

"322", "341", "401", "442", "4898", "869", "879", "899", "965", "966", "967", "978", "980", _

"986", "999"), Operator:=xlFilterValues

Range("B1").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Windows("OUTIL SUIVI DES RECEPTIONS.xlsx").Activate

Range("A1").Select

ActiveSheet.Paste

Windows("Tableau de bord appro 28 07 2014.xlsx").Activate

ActiveWindow.ScrollRow = 21623

ActiveWindow.ScrollRow = 1

Range("D1:F33767").Select

Range(Selection, Selection.End(xlDown)).Select

Application.CutCopyMode = False

Selection.Copy

Windows("OUTIL SUIVI DES RECEPTIONS.xlsx").Activate

Range("B1").Select

ActiveSheet.Paste

Columns("D:D").EntireColumn.AutoFit

End Sub

Bien cordialement.

Le 29/07/2014 à 15:51

Rebonjour,

C'est super urgent pour moi merci de m'aider svp

Je vous remercie d'avance.

Le 29/07/2014 à 15:56

Bonjour à vous,

J'ai lu en diagonale, mais peut-être que l'érreur viens d'ici :

Fichier = "Tableau de bord appro_" & mDate & ".xls"

=>

Fichier = "Tableau de bord appro " & mDate & ".xls"

Le 29/07/2014 à 16:05

Bonjour,

Ci dessous mon code à la base et comme je veux appliquer la même macro sur plusieurs fichiers qui ont le même début cad tableau de bord appro et il y a que la date qui change du coup je croyais qu'une simple macro pour masquer la date me suffit.