Ouverture de fichier
Bonjour,
Je souhaite ouvrir via une macro un ficher dont la fin de nom va être amenée à varier.
Jusqu'à présent, pour faire des tests, j'avais placé ce fichier dans le même répertoire que dans lequel je travaille, et la commande pour l'ouvrir était la suivante :
Set wsDB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\Test_Avril.xlsm").Sheets("Feuil4")Le fichier se trouve à présent sur un serveur, et j'ai voulu tenter le même principe (avec une * pour récupérer n'importe quel fichier qui commence par Test_), à savoir :
Set wsDB = Workbooks.Open(Filename:="https://blablabla.com/bla/bla/default.aspx?RootFolder=blablabla/Test_*.xlsm").Sheets("Feuil4")Evidemment, ça ne fonctionne pas, en retour j'obtiens que le fichier est introuvable...
Avez-vous une idée pour parvenir à cela svp ?
Merci d'avance.
Bonjour Néo
Pour ce qui est de l'étoile, tu es sûr que ça marche ou c'était un essai par rapport à ce qu'on peut faire dans windows? (j'ai jamais essayé donc je ne sais pas si ça marche!)
Sinon pour ce genre de commande où tu mets un texte, le mieux est de définir une variable string que tu composes de plusieurs bouts : ta partie fixe, la partie variable et l'extension.
Pour ma part, je mettais une autre variable string dans la partie qui changeait afin de pouvoir remplir automatiquement ce champ en fonction d'une userform ou d'un paramètre de fonction.
Voilà, en espérant t'avoir un peu aidé!
Salut ReuK !
Merci pour ta réponse. Concernant le truc de l'étoile, je sais que ça peut fonctionner, par exemple, ceci marche parfaitement :
Fich = "C:\Users\blabla\Desktop" & "\" & Dir("C:\Users\blabla\Desktop" & "\" & "Test_*")
Workbooks.Open FichMais curieusement, j'ai du mal à l'adapter à ma situation..
Et je ne souhaite pas utiliser de userform, l'utilisateur ne sera pas censé connaître le nom du fichier.
Bonjour
Sans test et à tout hasard, utilises la même syntaxe
Set wsDB = Workbooks.Open(Filename:="https://blablabla.com/bla/bla/default.aspx?RootFolder=blablabla/" & Dir("https://blablabla.com/bla/bla/default.aspx?RootFolder=blablabla/Test_*.xlsm")).Sheets("Feuil4")Bonsoir Banzai64 !
Merci, mais ça ne fonctionne pas.. En effet, je pense que Dir ne fonctionne qu'en local, pas sur internet.. Et de même pou l'étoile dirait-on.