Ouvrir un fichier dont le nom varie Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Ben74
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 14 novembre 2018
Version d'Excel : 2016

Message par Ben74 » 14 novembre 2018, 11:36

Bonjour à tous,

J'ai vu que des sujets similaires avaient été traités mais je ne trouve pas mon bonheur.

Je cherche à mettre à jour un fichier que nous appelerons "DB".
Je dois le mettre à jour avec plusieurs extractions, nous n'en utiliserons qu'un pour l'exemple.
Je dois donc avant toute chose Ouvrir mon extraction.
Cette dernière se nomme "SA38_JJMM". JJ étant le jour de l'extraction et MM le mois. le nom du fichier peut donc être SA38_1311 puis la semaine suivante SA38_2011 etc.

Mon but est d'ouvrir l'extraction concernée en fonction du cellule Excel dans laquelle peut soit se trouver le nom final du fichier (SA38_JJMM) soit la partie variable (JJMM) en fonction du code.

Voici mon dernier test (cas où le nom complet du fichier cherché se situe dans la cellule D1):
' SA38

' OuvertureDeFichier

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
     Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")
   
   MonFichier = range("D1")
   
   'MonApplication.Open (MonFichier)
   Workbooks.Open Filename:="\\chemin\chemin\chemin\Dashboard\Archive\MonFichier"
   Set MonApplication = Nothing

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."

Le système me dit que le fichier \\chemin\chemin\chemin\Dashboard\Archive\MonFichier à été supprimer ou déplacer ...

Merci par avance de votre aide !

Ben
Avatar du membre
Pedro22
Passionné d'Excel
Passionné d'Excel
Messages : 3'657
Appréciations reçues : 371
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 14 novembre 2018, 11:41

Bonjour,

Ton erreur réside dans la position des guillemets. Excel n'interprète pas ce que tu places entre guillemets, pour lui c'est juste du texte. Dans ton cas, tu ne cherche pas un fichier qui s'appelle MonFichier, mais bien le nom contenu dans cette variable...
Sub OuvrirFichier()

   Dim MonFichier As String
   
   MonFichier = Range("D1") & ".xlsx"
   Workbooks.Open Filename:="\\chemin\chemin\chemin\Dashboard\Archive\" & MonFichier 

End Sub
1 membre du forum aime ce message.
Merci de prendre 30 sec pour lire la charte du forum.
Quelques conseils : ici
B
Ben74
Jeune membre
Jeune membre
Messages : 17
Inscrit le : 14 novembre 2018
Version d'Excel : 2016

Message par Ben74 » 14 novembre 2018, 11:47

Bonjour Pedro22,

En effet ! ça fonctionne !

Merci du tips

@+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message