Discussion :

[geekpok]

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

[halaster08]

Bonjour,

A adapter:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[geekpok]

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