Salut tous,
Voilà, je débute complétement en Prog VBA et je doit faire un fichier base de données pour pouvoir réunir plusieur fichiers xls.
Ces fichiers sont rengés dans un répertoire sur mon bureau s’appellant proj_traj_cyclone. A l’intérieur de ce répertoire j’ai plusiseurs répertoire qui détienne plusieurs fichiers xls de donnés.
Mon but est de réunir tout ces fichiers en un seul fichier.
Le problème est que ces fichiers n’ont pas le nombre de ligne.
Je pensais faire une boucle mais comment la faire.
Pouvez vous m’aider?..
Message edité le 13/09/2007 à 22:19
Il faudra organiser tes fichier sous forme d’accès séquentiel indexé.
Mais comment sont structutés tes fichiers ? Ils suffit juste de mettres des lignes à la suite ou les colonnes ne sont pas identiques ?
Il faut faire des tests de doublon, tris ou autres, ou c’est juste une concaténation/fusion simple ?
Salut,
Si tu veux je peux t’envoyer qelque fichiers pour que ^tu puisse m’aider.
Je ne sais vraiment rien faire je débute
Alors j’ai bien lue tout ce que tu as dit mais…
J’ai besoin qu’on structure la macro
A+
encore merci
Salut,
Il ne s’agit que d’une suite de lignes, les colones sont tous le temps identique.
J’ai juste besoin d mettre les fichiers les uns derrières les autres
Mais je ne sais pas comment organiser ma macro pour que le prog aille cherché les un aprés les autres chaques fichiers et qu’ils les colle les un derrière les autres.
Si tu veux je peux t’envoyer les fichiers pour que tu m’aide
A+
Bon je suis pas/plus un spécialiste des macros, mais voici quelques pistes:
Pour l’écriture dans la BD tu peux soit passer directemetn par l’ADO avec un truct de ce genre:
dbConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;& “DBQ=” & FileName
Set dbConnection = New ADODB.Connection
dbConnection.Open dbConnectionString
…
Soit programmer “en dur” la lecture d’un fichier excel et l’écriture dans une base de données:
Dim xlApp as Object, xlClass as Object, xlSheet as Object
Set xlApp = CreateObject(“excel.application”)
Set xlClass = xlApp.Workbooks.Open(Nom_du_fichier_xls)
Set xlSheet = xlClass.sheets.item(nom_de_la_feuille)
Puis tu peux accéder aux cellules avec qqch du type:
Dim valeur as String
valeur = xlSheet.Cells(no_ligne, no_colonne).value
Puis pour fermer Excel:
xlSheet.Application.Quit
Pour l’écriture dans Access je te renvoie à la doc ou des exemples sur Internet tels que ceux plus bas, parce que moi j’utilise la méthode DAO qui ne devrait plus trop être utilisée (préférer ADO) et les commandes SQL, ce qui n’est de loin pas le plus simple pour débuter.
Et puisque tu dis que tu ne connais pas grand chose à VBA, voici un site parmi d’autres qui peut d’aider à démarrer:
vb.developpez.com…
vb.developpez.com…
Et puis pour obtenir la liste de tous les fichiers dans un répertoire:
Dim File As String
File = Dir$(“chemin_complet_du_repertoire_avec_filtre_d’extension”) 'ex: “C:\Mes documents\MonRepertoire*.xls”
Do While Len(File) 'Boucle pour tous les fichiers du répertoire
'Ici tu ajout ce qu’il faut faire pour chaque fichier, par exemple une methode “FichierExcelVersAccess(…)”
File = Dir$
Loop