Copier une fuille dont la fin du nom change ts les mois

Question

Bonjour, est-il possible de copier une feuille d'un fichier dans un autre en ne mettant que le début du nom de la feuille?

Mon soucis et que la feuille excel change de nom tous les mois, le début du nom est le même mais c'est le reste qui change.

Merci

Fichier1 = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", , "Sélection du fichier 1", , False)

If Fichier1 = False Then Exit Sub

Application.ScreenUpdating = False

With Workbooks.Open(Fichier1)

.Sheets("Dataxxx").Columns("A:FJ").Copy ThisWorkbook.Sheets("Feuil1").Range("A1")

.Close

End With

Guitouille · Answer

Si j'ai bien compris, ton problème viens du dataxxx ? si jamais la feuille que tu souhaite utiliser est toujours en même position, il existe (à ma connaissance récente du vba en tout cas ! ) deux façon de "selectionner" les feuille : sheets("nom_de_la_feuille").etcetc ou sheets(Position_de_la_feuille).etctec si la feuille que tu souhaite utiliser sera toujours la première de ton fichier (cf. la deuxième etc...) Fichier1 = Application.GetOpenFilename("Excel (*.xlsx), *.xlsx", , "Sélection du fichier 1", , False) If Fichier1 = False Then Exit Sub Application.ScreenUpdating = False With Workbooks.Open(Fichier1) .Sheets(1).Columns("A:FJ").Copy ThisWorkbook.Sheets("Feuil1").Range("A1") .Close End With devrait fonctionner...