Ouvrir fichier à nom variable

Bonjour à tous,

J'aimerais créer un code permettant de chercher des informations dans un classeur à partir d'un autre.

Le nom de mon classeur source varie en fonction de la date.

Voici le code que j'ai fait (je l'ai rédigé à partir d'autres forums) :

Dim CD As Workbook

Dim OD As Worksheet

Dim X As String

Dim f As String

Dim CS As Workbook

Dim OS As Worksheet

Application.ScreenUpdating = False

Set CD = ThisWorkbook

Set OD = CD.Sheets("Feuil1")

OD.Range("A2:D129").ClearContents

OD.Range("G4").ClearContents

X = "(chemin d'accès)"

f = Dir(X & "CA*.xlsx")

Workbooks.Open f

Sauf que lorsque je lance mon code un message s'affiche :

Désolé... Nous ne trouvons pas (le nom exact du fichier actuel). Peut-être l'avez-vous déplacé, renommé ou supprimé ?

Je ne comprends pas... il arrive à trouver le bon fichier mais ne l'ouvre pas alors qu'il est bel et bien dans le dossier du chemin d'accès indiqué.

Merci d'avance pour votre aide !

Bonjour toutes et tous

j'pense que l'erreur se trouve ici :

f = Dir(X & "CA*.xlsx")

à cause de l'extension : .xlsx

f = Dir(X & "CA*")

@voir, méditer

f = Dir(X & CA*)

crdlt,

André

Edit: Coucou U.Milité

Bonjour et

Avec juste un extrait de ton code, on ne peut que s'interroger :

[Edit:] Salut André

Merci beaucoup pour vos réponses !

Le bug venait bien de Worbooks.Open f

Je l'ai corrigé avec Workbooks.Open X & f

Merci U.Milité ! et merci Andre13 pour ta réponse également !

Re,

Merci de ton retour

crdlt,

André