Macros événementielle _ actualisation d'un TxT

Bonjour à Tous,

Tout d'abord, merci pour toute l'aide que ce forum m'a apporté jusqu'ici ! Et qu'il m'apportera encore !

ma question est assez simple mais je n'arrive pas à trouver si c'est possible ou non ..

Dans mon fichier Excel, j'ai importer un fichier texte (.txt) tout simple.

J'aimerai que lorsque j'actualise (manuellement ou par macros) mon fichier texte, une macros événementielle se lance.

Est-ce possible? Et si Oui, comment ?

Merci,

RemBabar

Bonjour,

En supposant que ton fichier texte importé s'appelle "fichier1.txt' et que tu aies donc constitué une connexion via DataQuery, il faut au niveau du code de la feuille contenant cette connexion, définir :

1- les événements relatifs à l'objet DataQuery et la variable associée

2- lier la variable ci-dessus à la connexion relative à fichier1.txt

D'où le code suivant :

'Définition événements et variables du module
Private WithEvents table As QueryTable

Private Sub Worksheet_Activate()
        'lien "fichier1" à la variable table pour activation des événements
        Set table = Me.QueryTables("fichier1")
End Sub

Private Sub table_AfterRefresh(ByVal Success As Boolean)

End Sub

Private Sub table_BeforeRefresh(Cancel As Boolean)

End Sub

Sub test()
    Me.QueryTables("fichier1").Refresh
End Sub

Le lien de fichier1 avec table sera donc effectué dès que la feuille sera activée.

Bonjour,

Mercii beaucoup, c'est génial !!

Je ne connaissait pas du tout cette méthode !

Je vais juste effectué le lien avec "table" à l'ouverture du fichier et ça sera parfait

Encore merci

RemBabar

RemBabar a écrit :

Je vais juste effectué le lien avec "table" à l'ouverture du fichier

Pour cela, utiliser le code suivant, en supposant que Feuil1 est la feuille à laquelle est rattachée la connection

Private Sub Workbook_Open()
    Application.Run "Feuil1.Worksheet_Activate"
End Sub