Variable nom de fichier

Bonjour à tous,

j'aimerai faire en sorte que en fonction du code que j'ai déjà réalisé chaque jour le nom de mon fichier se mette à jour en prenant comme nom fichier "extraction_aquiweb_(la date du jour).xlsx".

Ceci me permettrai que à chaque fois que l'on ouvre le fichier du jour que je n'ai pas à modifier mon code.

est ce possible ?

j'ai le code suivant :

Sub copie_des_donnees()

Dim classeur1 As Workbook

Dim classeur2 As Workbook

Set classeur1 = Workbooks("extraction_aquiweb_20160603.xlsx")

Set classeur2 = Workbooks("Arrêts_Astrée.xls")

classeur1.Sheets("Sheet1").Range("B1:B4328").Copy

classeur2.Sheets("Arrêt production").Range("A1:A4328").PasteSpecial

classeur1.Sheets("Sheet1").Range("G1:G4328").Copy

classeur2.Sheets("Arrêt production").Range("B1:B4328").PasteSpecial

classeur1.Sheets("Sheet1").Range("H1:H4328").Copy

classeur2.Sheets("Arrêt production").Range("C1:C4328").PasteSpecial

classeur1.Sheets("Sheet1").Range("S1:S4328").Copy

classeur2.Sheets("Arrêt production").Range("D1:D4328").PasteSpecial

End sub

cordialement

arnaud

bonjour

une proposition

Set classeur1 = Workbooks("extraction_aquiweb_" & Format(Date, "yyyymmdd") & ".xlsx")

Bonjour,

Cette solution ne fonctionne pas "l'erreur 9 l'indice n'appartient pas à la sélection" apparaît alors que mes deux classeurs sont bien ouvert.

Aurais tu une autre idée ?

a+

bonjour,

cela devrait fonctionner, vérfie le nom du classeur avec ce code

wbn="extraction_aquiweb_" & Format(Date, "yyyymmdd") & ".xlsx"
msgbox "tentative d'assigner " & wbn & " à classeur1"
Set classeur1 = Workbooks(wbn)