Ouverture d'un fichier avec un nom non-constant [Résolu]

Signaler
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019
-
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019
-
Bonjour,

Je recherche un partie de code qui permettra d'ouvrir un fichier qui a un nom variable.
Dans mon cas le nom du fichier c'est "0912 ret au 1211.xls"

Je cherche à ouvrir le fichier qui commence par "0912" le reste n'a pas d'importance.

Je suis relativement novice en vba

Merci d'avance de votre aide.


Sub Extraction()
If MsgBox("Etes-vous sûr de vouloir extraire les données", vbYesNo, "Demande de confirmation") = vbYes Then

Date_Lundi = Sheets("Ex_lundi").Range("B2")
MsgBox "La valeur est " & Date_Lundi & " "

'partie du code qui ne fonctionne pas
Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\("Date_Lundi")*.xls") If Fichier_Lundi <> "" Then
Workbooks.Open Filename:=Fichier_Lundi
Else
MsgBox "Fichier introuvable"
End If

End If
End Sub

7 réponses

Messages postés
27065
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 décembre 2019
1937
Bonjour,

Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\" & Date_Lundi & "*.xls")


Cordialement,
Jordane
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019

Merci de votre aide.
Lorsque j'exécute le code j'ai cette erreur qui apparaît.
Que cela signifie?

Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019

Bonjour,
Savez-vous pk j'ai cette erreur?
Car le fichier est bien à la bonne place
eriiic
Messages postés
23125
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2019
5799
Bonjour,

si excel ne trouve pas c'est qu'il y a forcément une erreur dans le nom ou le chemin.
eric
jordane45
Messages postés
27065
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
16 décembre 2019
1937
La variable Fichier_Lundi contient le NOM DU FICHIER ... mais pas le chemin vers celui ci...

Donc.. normal qu'il ne le trouve pas.
Il faut :
Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\" & Date_Lundi &"*.xls")
Fichier_Lundi = "C:\Users\david\OneDrive\CHI-W\2019\Test Macro\"  & Fichier_Lundi
Singele
Messages postés
49
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
23 novembre 2019

Merci ça fonctionne comme il faut
Merci beaucoup de votre aide