Discussion :

[Jusomi31]

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

[Jean-Philippe André]

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.

[Jusomi31]

euh... enmettant des simples quotes :

Code :

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

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 ?

[Jean-Philippe André]

essaie plutôt comme ceci :

Code :

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

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

[Jusomi31]

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

Que faire maintenant ???

[Jusomi31]

j'ai essayé de tenter autre chose :

Code :

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

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.

[Jusomi31]

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

Code :

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

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