Activer un fichier dont le nom commence par...

[ZG1142]

Hello

J'ai un fichier qui s'appelle TATA_3574343342.csv. L'extention numérique est générée automatiquement.
Ce fichier est situé dans un dossier connu, et j'ai déjà réussi à l'ouvrir via le code sans me servir de la chaîne de chiffre:

Workbooks.Open ThisWorkbook.Path & "\TATA*.csv"

Désormais je souhaiterai dans mon code pouvoir activer ce dossier et jongler avec d'autres fichier, mais quand j'écris:

Windows("TATA*.csv").Activate

Je me fais envoyer balader.... est-ce que qq'un aurait une soluce à mon pb?

Merci d'avance

 

[Pierrot93]

Re : Activer un fichier dont le nom commence par...

Bonsoir,

regarde l'exemple ci-dessous si il peut t'aider :

Dim monchemin As String, monfichier As String
monchemin = ThisWorkbook.Path
monfichier = Dir(monchemin & "\test*", vbDirectory)
If monfichier <> "" Then Workbooks.Open monchemin & "\" & monfichier

bonne soirée
@+

 

[ZG1142]

Re : Activer un fichier dont le nom commence par...

Salut Pierrot

Merci pouir ta rapide intervention, cependant je pense (mais je suis pas sûr) qu'il est possible d'activer (ou du moins selectionner) un fichier déjà ouvert sans pour autant citer son nom au complet, du genre: Activer le fichier .csv commençant par tata...

Qu'en penses tu???

 

[Pierrot93]

Re : Activer un fichier dont le nom commence par...

Re,

Aarf, j'avais pas tout compris moi....

Dim monchemin As String, monfichier As String, monclasseur As Workbook
monchemin = ThisWorkbook.Path
monfichier = Dir(monchemin & "\test*", vbDirectory)
If monfichier <> "" Then
    Workbooks.Open monchemin & "\" & monfichier
    Set monclasseur = ActiveWorkbook
monclasseur.Activate

End If

A noter tout de même, si tu ouvres un classeur, ce dernier devient le classeur actif....

 

[Pierrot93]

Re : Activer un fichier dont le nom commence par...

Re

sinon, pour tester et activer un classeur avec une partie de son nom, il faut boucler sur la collection des classeurs (ouverts), comme ceci par exemple :

Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name Like "toto*" Then wb.Activate
Next wb

@+

 

[ZG1142]

Re : Activer un fichier dont le nom commence par...

Royal ca marche!!!!!!

Merci beaucoup Pierrot