Discussion :

[Bubulle232]

Bonjour,

Je cherche à automatiser l'import de fichier csv dans ma base de donnée car je dois en traiter 600 par mois.

Je souhaite mettre tous les fichiers à traiter dans un dossier qui sera définit pour subir l'automatisation.
J'aimerai aussi pouvoir désigner quelle colonne de mon fichier csv va se mettre dans telle colonne de ma base.

Est ce possible ?

Merci de votre aide

[Jean-Philippe André]

Hello,

oui c'est possible, maintenant livre à toi de choisir le mode de fonctionnement de l'automatisation :

- procédure VBA lancée manuellement
- procédure VBA exécutée à l'ouverture de la base
- procédure VBA lancée par tache planifiée
- macro Access

[Bubulle232]

Hey bonjour et merci de vous interesser à mon problème,

Moi je suis plutot intéressé pour le faire manuellement en cliquant sur un bouton, comme ça si j'ai des nouvelles commandes dans l'après-midi, je peux mettre à jour tout de suite ma base et voir si j'ai toutes les marchandises.

Pouvez vous m'expliquer comment faire ?

Merci

[Jean-Philippe André]

OK,

pour importer un fichier cvs dans une base, on a des exemples de code très simples à appliquer disponibles dans la

http://access.developpez.com/faq/?page=ManipDATA#import

http://access.developpez.com/faq/?pa...l#ImpFichExcel

Sinon, une petite recherche dans le forum en lui-même permet de trouver des problèmes similaires résolus

http://www.developpez.net/forums/d57...csv-access-vb/

[Bubulle232]

Je n'aurais pas posté sans avoir cherché et je sais comment faire une importation avec les même champs dans la table et le fichier excel.
J'avais déjà lu vos liens et ce n'est pas ce que je veux faire

Je voudrais pouvoir dire que dans la colonne designation de ma bdd , je mette la colonne B de mon fichier csv, la colonne E dans ma quantité.

Tout mes fichiers ne seront pas les même donc après avoir vérifié ce que c'est(d'après son nom) j'applique l'importation avec les colonnes que je souhaite.

Je ne sais pas si j'ai été claire concernant ce que je souhaite faire...

[Jean-Philippe André]

OK,

tes fichiers csv ont-ils un en-tete avec le libellé des colonnes ou pas ?

Si c'est le cas, l'import est standard, sinon il faudra:
- détecter en amont ou en aval de l'import du fichier csv l'ordre des champs
- insérer le cas échéant par une requete/un code VBA les données dans ta table cible

[Bubulle232]

oui mes fichiers csv ont un entete avec des noms de colonne mais ce ne sont pas les même que dans ma bdd. Et aussi je n'importe pas toute les colonnes,c'est pour cela que je souhaitai définir exactement quelle colonne va dans quel champs

[Jean-Philippe André]

ben voir le point 2 de ma précédente réponse


Et non, je ne te donnerai pas la solution, il faut chercher un peu

[Bubulle232]

Bonjour,

Donc j'arrive à faire exactement ce que je souhaite en définissant les colonnes de mon fichier qui vont dans le champs de mon choix.

Sauf que j'y arrive avec un xls et non un csv!lol

Donc comment puis je convertir un xls en csv ?

J'ai essayé des tonnes de code mais rien ne marche.
Je vais faire un test pour vérifier l'extension de mes fichiers et donc si c'est un csv lancer la conversion.


Si vous pouviez m'aider

Merci

[Jean-Philippe André]

Toujours depuis la , un code tout fait pour importer un csv dans Access :
http://excel.developpez.com/faq/inde...sfertCsvAccess

[Bubulle232]

Oui mais là je peux pas faire ce que je faisais avec mes xls où je choisissais les colonnes qui allaient dans tel champs.
Là on fait le transfert directement du csv

Je prefererai convertir mes csv en xls...

[Jean-Philippe André]

csv vers xls ou xls vers csv, il faut se décider hein

[Bubulle232]

Non c'est bien csv à convertir en xls , je me suis trompé au dessus

[Jean-Philippe André]

Si c'est csv en Excel, il suffit d'ouvrir le fichier en VBA et de le SAveAs avec le format Excel souhaité

[Bubulle232]

Ben justement j'ai utilisé SaveAs et voici mon erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Erreur d'execution '1004':
La méthode 'SaveAs' de l'objet '_Workbook' a echoué

Mon code est celui_ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
ChDir "C:\Users\Moi\Desktop\1\"
Workbooks.Open FileName:="C:\Users\Moi\Desktop\1\Sans1.csv"
ActiveWorkbook.SaveAs FileName:="C:\Users\Moi\Desktop\1\Sans1.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

[Jean-Philippe André]

Voici un exemple qui fonctionne, il ne te reste plus qu'à l'adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub piou()
Dim tmpwbk As Excel.Workbook
Set tmpwbk = Workbooks.Open("C:\temp\test.csv")
tmpwbk.SaveAs "C:\temp\test.xls", xlNormal
tmpwbk.Close
End Sub

[Bubulle232]

Merci pour votre code mais j'ai toujours la même erreur qui apparait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 Erreur d'execution '1004':
La méthode 'SaveAs' de l'objet '_Workbook' a echoué

[Jean-Philippe André]

Puis-je voir le code qui est utilisé ici stp ?

[Bubulle232]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
Dim tmpwbk As Excel.Workbook
Set tmpwbk = Workbooks.Open("C:\Users\Moi\Desktop\1\BL4294.csv")
tmpwbk.SaveAs "C:\Users\Moi\Desktop\1\BL4294.xls", xlNormal
tmpwbk.Close

[Bubulle232]

Bonjour ,

J'ai enfin réussi à convertir mon fichier csv en xls

Cependant tout se met dans la colonne A
Comment puis je faire pour delimité les colonnes avec les ";" lors de la conversion ?
Merci d'avance