Bonjour le Forum,
Je débute avec les macros et j'aurai besoin de votre expertise
J'ai réalisé une macro (via la fonction enregistrement) qui reprend les données contenues dans 5 onglet d'un classeur excel nommé "BALANCE DES 16 POUR POINTAGE MENSUEL 06.2019.xls" et les colle dans un second classeur excel nommé "Pointage.des.16_06.2019.xlsm".
Ci-dessous un extrait du code généré :
Windows("BALANCE DES 16 POUR POINTAGE MENSUEL 06.2019_.xls").Activate
Sheets("détail comptes par opér").Select
Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Pointage.des.16_06.2019.xlsm").Activate
Sheets("1-BO.Détail.Cptes.par.Opération").Select
Range("B3").Select
ActiveSheet.Paste
Elle marche convenablement, mais je souhaiterai qu'elle fonctionne tous les mois. Je cherche donc à modifier dans le code le nom des classeurs pour que la macro fonctionne quand le fichier s'appellera "BALANCE DES 16 POUR POINTAGE MENSUEL 07.2019.xls", "BALANCE DES 16 POUR POINTAGE MENSUEL 08.2019.xls"...
J'ai essayé de modifier le code comme suit, mais patatra …..
Nom_Fichier = "BALANCE DES 16 POUR POINTAGE MENSUEL " & Format(Date, "mm") & "." & Format(Date, "yyyy") & ".xls"
Windows(Nom_Fichier).Activate
Sheets("détail comptes par opér").Select
Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Matrice.pointage.des.16_vTCD_avec.copie.auto.xlsm").Activate
Sheets("1-BO.Détail.Cptes.par.Opération").Select
Range("B3").Select
ActiveSheet.Paste
Je crois comprendre qu'il ne reconnaît pas le nom du fichier générique...
Pouvez-vous m'éclairer ?
Merci par avance