Ouvrir fichier excel en fonction de la date

Bonjour,

Voilà j'ai un fichier excel pour faire des analyses et je dois aller chercher et copier un onglet nommé par exemple "prix" qui se trouve dans un autre fichier excel avec le prix des pièces qui changent tous le mois et le coller dans mon fichier d'analyse..

Je recherche donc une macro qui lorsque j'appuie sur un bouton va ouvrir le fichier par exemple "prix avril - ns.xls" pour le mois d'avril.
Le nom de fichier reste le même, il y a juste le mois qui change.

La macro va donc ouvril le fichier de prix pour le mois d'avril, ensuite copie l'onglet prix et le colle dans mon dossier analyse.

Pour cela j'ai la date dans la colonne A sous forme Jours/Mois/Année ou dans la colonne O j'ai une formule qui par rapport à la date la note en lettre ex: Avril2020

Bonjour,

A adapter:

Code:

---

1 2 3 4 5 6 7

Sub test() Dim mois As String, wb As Workbook mois = Format(DateSerial(Year(Date), Month(Date), 1) - 1, "mmmm") 'pour récupérer le nom du mois précédent Set wb = Workbooks.Open("D:\test\prix " & mois & " - ns.xls") 'ouverture du fichier wb.Sheets("??").Range("??").Copy Destination:=ThisWorkbook.Sheets("??").Range("??") 'copier coller   End Sub

---

Merci mais je souhaite qu'il prenne le mois selon la date et par forcément le mois précédent.
Pour plus d'explication que si la date les en Mars il prenne le fichier de Mars et si c'est Avril il prenne Avril mais qui'l ne modifie pas les prix sur les date de Mars, je sais pas si je suis assez clair :)