Bonjour,

Je souhaite, grâce à une macro VBA dans Access, OUVRIR un fichier texte avec Excel afin de pouvoir mettre certaines colonnes en MAJUSCULES. Puis enregistrer le fichier en format .txt, et enfin fermer Excel sans sauvegarder. Je dois faire cela pour 97 fichiers textes.

Ensuite j'importe ces fichiers dans Access pour avoir UNE table contenant les données de tous les fichiers textes (cette table contient alors environ 45000 enregistrements).

Je n'ai aucun souci pour l'importation. En revanche, pour le pré-traitement de mes fichiers textes, j'ai essayé quelque chose mais une erreur me dit que le répertoire n'est pas valide :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Function ColonnesMajuscules()
Dim logiciel As String
Dim fichier As String
Dim alancer
 
logiciel = "C:\Program Files\MicroSoft Office\Office\EXCEL.EXE"
fichier = "Q:\GESTION\Tableaux de gestion\monFichier.txt"
alancer = logiciel & " " & fichier
 
Application = Shell(alancer, vbMaximizedFocus)
End Function
Comment résoudre ce problème ? De plus quand j'utilise une macro test pour enregistrer un fichiers texte, je ne souhaiterais pas voir les boites de dialogues du genre "Ce fichier existe déjà, voulez-vous le remplacer ?


Sinon, y aurait-il un moyen de mettre toutes les données de mes fichiers textes en majuscules sans passer par Excel ?

Aidez-moi SVP !

Merci d'avance pour vos pistes...