Discussion :

[fofomama]

Bonjour,
je suis débutante sur accesS et je n'arrive pas à convertir un fichier excel (.xls) en fichier texte (.txt) avec separateur tabulation via du code VBA.

J'arrive à le faire manuellement sur un fichier excel:
Bouton Office / enregistrer sous / autres formats / Texte (separateur:tabulation)(*.txt)

Mais, il me faut absolument le faire automatiquement avec vba. Est ce que quelqu'un peut m'aider ?

Cordialement,
fofo

[Tofalu]

Deux solutions :

Soit tu executes la commande Excel Enregistrer Sous avec un objet Excel.Application
Soit tu l'importes dans Access et le réexporte

[fofomama]

Bonjour,

Comment on execute la commande Excel Enregistrer Sous avec un objet Excel.Application ? Désolé je connais un peu vba mais pas trop les fonctions excel. Est ce que tu peux m'aider pour le code ?

Merci

[Tofalu]

C'est dommage ne peut pas avoir essayé un peu avant de poster. Le net regorge d'exemple sur l'automatisation d'excel.

Une piste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2()
Dim oApp As Excel.Application
Dim oWb As Excel.Workbook
 
Set oApp = New Excel.Application
Set oWb = oApp.Workbooks.Open("c:\monclasseur.xlsx")
oWb.SaveAs "C:\monclasseur.txt", Excel.xlTextWindows
oWb.Close False
oApp.Quit
Set oWb = Nothing
Set oApp = Nothing
 
End Sub

Reste à tester si le fichier n'existe pas avant l'enregistrement auquel cas il devra être supprimé. Il faudra aussi ajouter une gestion d'erreur afin que le process Excel.exe ne reste pas en fonctionnement en cas d'erreur inconnue

[fofomama]

Bonjour,

Cela fonctionne, mais ce n'est pas tout à fait au point.
Au niveau de l'import au lieu de me mettre 02/08/2010 il me met 2/8/2010.
Comment je dois m'y prendre ?

Merci

[christophe31]

Salut,

sinon ce que tu peux faire c'est un replace
Exemple : 2/4/2010

si à la 2eme place tu trouves le / rajouter un 0 à la 1ere place
si à la 5eme place tu trouves le / rajouter un 0 à la 4eme place

Résultat : 02/04/2010

Et voilà sinon j'ai pas trouvé mieux

A+