[VBA Access]Ouvrir un fichier texte avec Excel via VBA Access

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:

---

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...

salut,
si tu passes par du batch, en l'occurence du shell, il ne faut pas que les path des fichiers contiennent d'espace, ce qui est le cas actuellement. Pour parer à ce pb, tu dois mettre les paramètres sous batch entre simples quotes.

euh... enmettant des simples quotes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function ColonnesMajuscules()   'on veut mettre en majuscule les colonnes contenant l'étiquette et les numéros de série 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

---

... j'obtiens une erreur de type 53 "Fichier introuvable"

Pourtant ces fichiers existent bien !
Est-ce que je peut faire la même chose sans passer par du batch ou du shell ?

essaie plutôt comme ceci :

Code:

---

1 2	logiciel = "'C:\Program Files\MicroSoft Office\Office\EXCEL.EXE'" fichier = "'Q:\GESTION\Tableaux de gestion\monFichier.txt'"

---

Ca me met toujours l'erreur 53 : "Fichier introuvable"...

Que faire maintenant ???

j'ai essayé de tenter autre chose :

Code:

---

1 2 3 4 5 6 7

Public Function test()   Dim nomFichier As String nomFichier = "Q:\GESTION\Tableaux de gestion\monFichier.txt" Workbooks.OpenText Filename:=nomFichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Tab:=True   End Function

---

Cette fois pas de plantage mais il ne se passe rien non plus ...
Je précise que mon code se trouve dans VBA Access (et non dans VBA Excel) car dans Excel cela fonctionne.

Bon j'ai le code qui m'ouvre le fichier avec Excel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function ColonnesMajuscules()   Dim nomFichier As String Dim xls As Excel.Application   Set xls = CreateObject("Excel.Application") xls.Workbooks.Open "Q:\GESTION\Tableaux de gestion\monFichier.txt" xls.Visible = True   'Sauvegarde et ferme le classeur ActiveWorkbook.SaveAs nomFichier   xls.Quit Set xls = Nothing   End Function

---

Tout fonctionne bien sauf que au niveau de la suvegarde des messages apparaissent pour savoir si je souhaite remplacez le fichier existant, etc ...

Comment faire que ces messages n'apparaissent pas et donc n'arrête pas ma macro ???