Version imprimable
J'ai le même soucis, je souhaite pouvoir changer le séparateur d'un fichier csv que j'ouvre avec mon prog sous VB5, en virgule ou point virgule..
J'ai essayé la deuxième solution de Théocourant mais VB5 ne connait pas le receplace()..
C'est la première fois que j'essaie de gérer des ouverture de fichier .csv, donc désolé de mes lacunes..
Merci d'avance de votre aide
Regarde là, tu as une solution qui fonctionne avec VBA 97 et une autre avec VBA 2003. Une fois ouvert avec le séparateur qu'il contient, tu peux l'enregistrer en csv. En txt, tu auras tab comme séparateur.
A+
Edit
Regarde si depuis VB5 tu peux utiliser la foonction Excel "Substitute" qui te permettrait de remplacer un séparateur par un autre.
J'ai regardé ce que tu m'as indiqué. J'avais vu ce post pendant mes recherches mais je m'étais obstinée sur une autre solution..
Donc je l'ai repris et c'est impeccable! Donc je te remercie beaucoup te ton aide..Du coup ce que je souhaite faire maintenant c'est retransformer le .txt en .csv à la fermeture de l'application. Juste au passage, comment puis-je savoir que mon application est fermée pour pouvoir ensuite renommer le fichier?
Montre-moi ton code d'appel, je te montrerai celui de fermeture :mouarf: Je me marre mais je suis sérieux 8O
A+
Tu as le droit de te marrer!! Je ne maîtrise vraiment pas ce genre de chose :oops:. Et c'est très sympa de ta part de prendre du temps pour aider une novice..
Donc voici l'ouverture de mon fichier
C'est donc après cette ligne que je souhaite tester si le fichier est fermé (boucle d'attente), si c'est le cas je le renomme en .csv et ensuite je termine le processus EXCEL.EXE..Comme ça il peut aller le consulter hors programme et l'ouvrir directement en format excel. Le programme lui, continue de tourner.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Voilà, Voilà..
Je ne comprends pas, tu veux le fermer sans l'enregistrer sous un autre format ?
Une autre question : Depuis VB5, tu ouvres le fichier sans instancier le fichier ?
A+
Si si, je souhaite l'enregistrer en .csv, comme ça l'utilisateur peux l'ouvrir directement sous excel en allant l'ouvrir depuis son emplacement sur le PC...
Ce que je fais, en gros, je vide la mémoire d'un appareil dans un fichier .csv.
Ce fichier est sauvegardé dans le PC, et je donne à l'utilisateur la possibilité de visualiser le fichier en l'ouvrant via le programme en VB (grâce à l'aide que tu m'as donné hier..) jusque là donc ça marche..Le programme ouvre le fichier en format .txt, et je souhaite renommé le .txt en .csv une fois que l'utilisateur a fermé le fichier...Comme ça l'utilisateur n'aura que des fichiers .csv dans ces archives d'enregistrements..
Donc je souhaite savoir à quel moment l'utilisateur ferme le fichier, pour pouvoir le renommé..
C'est peut-être un peu tordu, ou je manque cruellement de vocabulaire technique....(ou un peu des deux :oops:)
Ok. Le problème qui se pose est que la procédure se poursuit après avoir ouvert le csv. D'où la question, qui ferme le csv après l'avoir consulté, et comment (manuellement, je pense) auquel cas j'ai une solution un peu tordue à te proposer. Elle consiste à écrire du code dans l'événement Before close du csv, ce code lançant une macro du fichier principal qui, après une tempo pour laisser le temps au csv de se fermer sans enregistrement, renommerait le txt en csv.
Est-ce que ça te semble jouable ?
A+
C'est l'utilisateur qui ferme le fichier manuellement...
Et oui ta solution me semble jouable.
Ok.
A placer dans un module standard du classeur principal (celui qui ouvre le csv - rebaptisé txt )
La macro EcrireDansThisWorkbook doit être lancée après ouverture du .txt (la ligne suivant l'ouverture) voir PSCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24Sub EcrireDansThisWorkbook() Dim i, NomFich, x As Long NomFich = ActiveWorkbook.name ClasseurPrincipal = ThisWorkbook.Name 'à adapter For i = 1 To Application.VBE.VBProjects.Count If InStr(Application.VBE.VBProjects(i).Filename, NomFich) <> 0 Then For Each LeModule In Application.VBE.VBProjects(i).VBComponents If LeModule.Name = "ThisWorkbook" Then x = LeModule.CodeModule.CountOfLines LeModule.CodeModule.InsertLines x + 1, "Private Sub Workbook_BeforeClose(Cancel As Boolean)" LeModule.CodeModule.InsertLines x + 2, " Application.Run """ & ClasseurPrincipal & "!Tempo""" LeModule.CodeModule.InsertLines x + 3, "End sub" End If Next End If Next i End Sub Sub Tempo() Application.OnTime Now + TimeValue("00:00:02"), "RenommerCSV" End Sub Sub RenommerCSV() Name "D:\xls\Liste pour fusion.txt" As "D:\xls\Liste pour fusion.csv"End Sub
A la fermeture du txt, la macro placée par le code dans Thisworkbook du txt lancera la macro Tempo. Après deux secondes, la macro RenommerCSV s'exécutera.
Pour le moment le nom du txt est en dur mais je regarde pour mettre le nom en paramètre. Ce n'est qu'une question de secondes... ;)
Le problème qui reste, est double. Si l'opérateur enregistre le txt au moment de la fermeture, il va avoir un tas de questions. Je regarde afin qu'il n'en ait pas et que la question ne lui soit même pas posée.
Le second pb... si je règle le premier, il n'y a pas de second problème :mouarf:
A+
NB - On peut simplifier le code de EcrireDansThisWorkbook mais on verra plus tard. L'avantage de celui-ci étant que quelque soit le nom du txt, la macro retrouve ses petits...
PS - Pour que tout se passe normalement, le txt doit impérativement être ouvert pour que cette ligne donne un résulta exact
ActiveWorkbook doit être le txt.Citation:
NomFich = ActiveWorkbook.name
ThisWorkbook doit être le classeur contenant ces macros
Merci de ton code...
Dans la boucle For each Lemodule... je ne vois pas ce qu'est leModule??:oops:
Voici l'ouverture du fichier
comme je l'ai indiqué dans le code, j'ai une erreur:"La méthode thisworkbook de l'objet global a échouée" arrivé à la ligne en rouge.. Au fait, merci de ta patienceCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49Public appExcel As Excel.Application 'Application Excel Public wbExcel As Excel.Workbook 'Classeur Excel Public wsExcel As Excel.Worksheet 'Feuille Excel Private Sub Visu_fichier_Click() fichier = Mid(fichier_VIDAGE, 1, Len(fichier_VIDAGE) - 4) fichier = fichier & ".txt" Name fichier_VIDAGE As fichier fichiersave = App.Path + "\" + adresse_expl + ".AH" + "\" + fichier Set appExcel = CreateObject("Excel.Application") If Option1.Value = True Then Workbooks.OpenText filename:=fichiersave, Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, Comma:=True Else Workbooks.OpenText filename:=fichiersave, Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, Semicolon:=True End If Set wbExcel = appExcel.ActiveWorkbook appExcel.Visible = True Call EcrireDansThisWorkbook end sub Sub EcrireDansThisWorkbook() Dim i, NomFich, x As Long NomFich = ActiveWorkbook.Name wbExcel = ThisWorkbook.Name 'j'ai une erreur à ce moment là For i = 1 To Application.VBE.VBProjects.Count If InStr(Application.VBE.VBProjects(i).filename, NomFich) <> 0 Then For Each LeModule In Application.VBE.VBProjects(i).VBComponents If LeModule.Name = "ThisWorkbook" Then x = LeModule.CodeModule.CountOfLines LeModule.CodeModule.InsertLines x + 1, "Private Sub Workbook_BeforeClose(Cancel As Boolean)" LeModule.CodeModule.InsertLines x + 2, " Application.Run """ & ClasseurPrincipal & "!Tempo""" LeModule.CodeModule.InsertLines x + 3, "End sub" End If Next End If Next i End Sub
Où places-tu ta macro ? Cette macro, c'est bien dans un module standard d'un classeur.xls que tu la mets ?Citation:
ClasseurPrincipal = ThisWorkbook.Name 'à adapter
Pour les paramètres, ça fonctionne. Finalement je n'ai pas utilisé application.ontime, car si la syntaxe fournie par la FAQ fonctionne pour une fonction, je n'ai pas réussi à la faire tourner pour uns simple sub. Or, le principe étant de fermer le fichier qui fait appel à cette sub, si c'était une fonction on aurait un bug.
Bref, ça fonctionne mais j'attends de tes nouvelles quant à mes deux questions.
A+
On va dire que j'ai rien compris..
la macro je l'ai mise dans un module de VB :aie:...(là t'as le droit de te marrer et de te prendre la tête dans les mains..)
Si je comprend bien j'aurai du enregistrer la macro dans le classeur.xls qui ouvre mon csv (rassure toi je ne suis pas informaticienne). je t'avoue que je n'ai jamais travaillé avec des macros..Est-ce que cela veut dire que chaque classeur xls ouvrant un de mes fichier csv devra avoir cette macro?? mon prog génère des fichiers csv différents à chaque fois (leur nom contient la date et l'heure)..Est-ce que la macro devra être installée sur chaque PC sur lequel mon prog tournera? Si c'est le cas je ne sais pas si je vais pouvoir utiliser ta solution.
Comme je n'arrivais pas à faire marcher ta solution, j'ai réfléchis également de mon côté...
j'ai récupéré un morceau de prog qui liste les applications du gestionnaire de tâche. Une fois le fichier txt ouvert, je regarderai dans la liste des applications si il est toujours présent (vérif toutes les secondes)..Une fois disparu de la liste, je renomme le fichier.txt en csv...Je pense que ta solution est nettement plus évoluée mais comme je ne suis pas sure de pouvoir la mettre en oeuvre..Ma solution te semble t-elle correcte?
Un peu utiliser un char d'assaut pour écraser une mouche mais oui, pourquoi pas ? Je fais souvent ça quand je ne m'en sors pas :mouarf:Citation:
Envoyé par Manue
Tu devrais avoir une autre solution consistant à interrompre ta procédure dans VB (c'est un peu ce que tu fais en simulant un test sous interruption) mais tu peux sans doute faire ça en plaçant un simple msgbox "Frapper [Entrée]" à l'intention de l'opérateur. En principe, Excel et le txt devrait s'ouvrir en premier plan, ton msgbox serait visible à la fermeture d'Excel. Par contre, à la place ou en plus de appExcel.Visible = True, j'ajouterais appExcel.activate après ouverture du txt.
Si l'idée du msgbox ne te plait pas, tu peux te replier vers un userform, le résultat est le même.
Ceci dit, merci, j'ai cherché une partie de l'après-midi comment passer un paramètre à Application.OnTime... :furieux:
Bon, maintenant, avec l'aide de tout le forum mais surtout celle de Pierre Fauconnier, j'y suis parvenu. J'aurai au moins appris quelque chose. ;)
Tiens-nous au courant, il sera intéressant de savoir si le msgbox est une bonne idée depuis VB :roll:
A+
Je vais essayer ton idée de msgbox, c'est moins barbare que lire le contenu du gestionnaire de tâche toutes les secondes..
je culpabilise de t'avoir gâché ton après midi:(, mais si tu as appris des trucs alors je mes ens un tout petit peu mieux :)..
Moi j'ai appris pas mal de choses et surtout une dose de vocabulaire dont je manque cruellement pour être un peu plus efficace dans mes explications.. Je te tiens au courant de mes avancées, passes une bonne journée et encore merci
Pas de soucis, je repeins mon appart. Le forum, c'est mes "pauses" :mouarf:Citation:
Envoyé par manue22
J'ai un petit soucis que je n'arrive pas à résoudre..
Après l'ouverture d'un fichier csv (.txt) via mon prog, je le ferme (avec la croix), ma message box est visible et là je clique sur le "OK" qui m'indique que je peux terminer le processus excel.exe, et après ça impossible de réouvrir un autre fichier.csv via mon prog, j'ai une erreur:
"Erreur d'execution -2147023174 (800706ba), Erreur automation".
Si au contraire à la fermeture de mon fichier.csv, je choisit de ne pas terminer le processus EXCEL.EXE, et que j'essaie a nouveau d'ouvrir un fichier.csv, l'application Excel se lance mes sans ouvrir de classeur...
Si quelqu'un a une idée de la source de ma/ mes erreurs? L'erreur se produit à la ligne Workbooks.opentext....dans le "if" du "ouvrirfichier".Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Merci
J'ai résolu mon problème de l'erreur automation, donc ne pas tenir compte de mon précédent message...
J'ai trouvé la réponse sur le site de microsoft:
http://support.microsoft.com/kb/189618/fr
il fallait que je rajoute la variable objet de excel (pour moi: appexcel):
Donc mes problèmes sont, je pense, tous résolus. J'ai utilisé la msg box à la fermeture de mon fichier (simple et bonne idée) et donc plus de farfouillage dans le gestionnaire de tâche, juste un kill process pour pouvoir ouvrir d'autre fichiers excel alors que mon prog tourne...Code:
2
3appexcel.Workbooks.OpenText filename:=fichiersave, Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, Comma:=True
Donc spécial merci à ouskel'nor et à bientôt sur le forum.
En attendant j'essaierai d'aider les gens qui ont de tous tous petits soucis VB (a la hauteur de mes connaissances)..;)
Bonne soirée
Manue
Hi hi ! Tu avais la réponse dans la FAQ ou dans Contribuez. Pas sur l'erreur mais sur la manière de quitter Excel ;)
Mais qu'importe le moyen pourvu qu'on trouve... :lol:
Tu en es où ?
Ce n'était pas ma manière pour fermer excel qui posait soucis c'était à l'ouverture. Je m'étais basée sur ce que j'avais trouvé dans un tutoriel VB:
http://drq.developpez.com/vb/tutoriels/Excel/Chapitre2/
sur cette partie de code:
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
Si je ne faisais pas référence à appexcel à l'ouverture:
appexcel.workbooks.OpenText....
après il m'était impossible de réouvrir un fichier .csv avec mon programme..
J'ai regardé le lien que tu as donné, et si je comprend bien dans ce cas c'est le code qui ferme le fichier excel mais moi dans mon cas je voulais que ce soit l'utilisateur...mais j'ai peut-être pas compris ce que tu voulais me montrer avec ce morceau de code ( ce qui est fort probable..:mrgreen:).. Tu faisais référence à mon erreur automation ou à mon histoire de détection de la fermeture du fichier??
Pour l'instant j'ai réussi à faire ce que je voulais faire, quand l'utilisateur ferme le fichier.csv (txt) je n'ai plus de demande d'enregistrement de fichier (j'ai rajouté la ligne: "appexcel.displayalerts=false"..et j'ai une msgbox qui apparait et permet la fermeture du processus excel...
Donc ça fonctionne comme je le souhaitais..