automatisation de données excel Fermé

Question

Bonjour, 

Je souhaite savoir comment il est possible d'automatiser une action par excel.

Je précise. Je souhaite importer des données txt dans excel. Ces données sont rééditées tous les mois bien sûr avec des valeurs différentes et des positions différentes. Seul le répertoire de stockage est identique.

Je souhaite donc automatiser une action de mise à jour des données par le biais d'excel à partir d'un répertoire fixe.

Quelqu'un peut il m'aider dans cette démarche en m'expliquant comment procéder ?

Merci d'avance

antipolis a · Answer

Bonjour.

Si la structure des "données.txt" est différente chaque mois, je ne vois pas bien comment automatiser la récupération.

Quelques infos ici : http://boisgontierjacques.free.fr/
Voir le chapitre : Fichiers séquentiels

Cordialement.

michel_m · Answer

bonjour   

Essaies ce vieux classique   

Option Explicit   
Const Chemin As String = "D:\documents\" ' a adapter   
Const Fichier As String = "réponses types forum.txt" ' a adapter   

Sub importer_fichier_texte_restant fermé()   
    Dim Requete As Object, Source As Object   
       
    'préparation   
    Application.ScreenUpdating = False   
    Range("A2:AA10000").ClearContents ' a adapter   
       
    'connexion au fichier texte fermé   
    Set Source = CreateObject("ADODB.Connection")   
     Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _   
    "Data Source=" & Chemin & ";" & _   
    "Extended Properties=""text;HDR=Yes;FMT=Delimited"""   

     'Requete   
     Set Requete = CreateObject("ADODB.Recordset")   
     Requete.Open "SELECT * FROM [" & Fichier & "]", Source   

     'restitution   
     ActiveSheet.Range("A2").CopyFromRecordset Requete 'A2 à adapter   
        
End Sub   


nota:   
Attention si tu as XL<2007 et + de 65536 lignes, je te proposerais une adaptation mais des fouilles archéologiques seront à effectuer dans mon disque dur! :-)  
On suppose que le fichier texte est présent et fermé (tu dis si tu veux tester)  
 Michel

gysmo57 · Answer

Merci Michel

Je vais essayer

cordialement

Automatisation de données excel

3 réponses

Discussions similaires