10 fichiers textes a transférer dans excel

Question

Bonjour a tous

J'ai actuellement un petit soucis avec 10 fichiers au format cvs (ce sont des fichiers qui peuvent &#234;tre ouvert avec le bloc note).

Les 10 fichiers sont les suivants: date.cvs, heure&prod.cvs et poste1.cvs &#224; poste8.cvs

Dans le fichiers date on retrouve la date sous cette forme : 02,05,10,05 (le premier des chiffres correspond au jour de la semaine ici 02 pour mardi et les 3 autres chiffres correspondent a la date ici 05/10/05).

Dans le fichier heure&prod on retrouve l'heure et la production journali&#232;re sous cette forme: 15248,19,56,58 (le premier des chiffres est la production journali&#232;re et les 3 chiffres qui suivent correspondent a l'heure ici 19H 56Min 58Sec).

Les fichiers poste1 &#224; poste8 on retrouve le nombre d'erreurs par poste et le temps pendant lequel le poste &#224; &#233;t&#233; en erreur, ils se pr&#233;sentent sous cette forme : 15,00,32,12 (ce qui signifie que le poste a eu 15 erreurs ce qui a conduit a 32Min et 12Sec d'arr&#234;t).

Ces 10 fichiers peuvent &#234;tre compl&#233;t&#233;s &#224; diff&#233;rent moment de la journ&#233;e ce qui peux donner:
date.cvs -> 02,05,10,05;02,05,10,05;03,06,10,05
heure&prod.cvs -> 15248,19,56,58;12354,22,35,24;13548,12,15,22
poste1.cvs -> 15,00,32,12;23,00,44,34;6,00,15,39
J'ai mis des couleurs pour mieux comprendre ce qui va ensemble (les autres postes se pr&#233;sentent sous la m&#234;me forme que le poste1).

Apr&#232;s ces longues explications (j'esp&#232;re que j'ai &#233;t&#233; clair), j'en viens a mon probl&#232;me.
En fait je voudrais pouvoir r&#233;cup&#233;rer ces donn&#233;es sous excel afin de pouvoir les traiter selon mes besoin. Le probl&#232;me principale est que toutes les donn&#233;es des fichiers ne doivent pas &#234;tre appell&#233;e dans le excel, l'utilisateur doit pouvoir choisir lequels ils veux en fonction de l'heure et de la date.
Une fois que l'utilisateur a choisi ces les dates et les heures qu'il veux le prog en VB doit envoyer les donn&#233;es sous excel.

Voila j'esp&#232;re avoir &#233;t&#233; clair. Sinon demandez moi.

Svp r&#233;pondez c'est tr&#232;s important pour moi, merci.

cs_snake57 · Answer

Svp aidez moi j'en ai besoin assez rapidement!

chad_mat · Answer

Bonjour, 

       j'ai eu le m&#234;me probl&#233;me il y a quelques temps, la solution la plus simples que j'ai trouv&#233; est de faire une importation b&#234;te et m&#233;chante des fichiers d'entr&#233;e dans une (ou plusieurs) feuille excel, de creer les listes de choix a partir de ces feuilles et de mettre les r&#233;sultats dans une feuille diff&#233;rente.
      l'autre solution consisterait a faire du traitement de caract&#233;res (tu recr&#233; les donn&#233;es que tu veux dans des variables et tu cr&#233;e les listes a partir de ces variables), le probl&#233;me que peut poser cette methode et que ca devient rapidement une usine a gaz.

En &#233;sperant t'avoir aid&#233;

Mat

cs_snake57 · Answer

Ta premi&#232;re solution me parait int&#233;ressante, mais comment fais tu pour cr&#233;er la liste une fois l'importation faite?

chad_mat · Answer

Salut,

J'ai pas tres bien compris ta question c la forme des donn&#233;es import&#233;es qui te d&#233;range ou la cr&#233;ation de la liste ?
Ce que j'avais oubli&#233; de te dire la d&#233;rniere fois est que tu peux aussi creer de feuilles intermediaire dans lesquelles tu trie et tu met en forme les donn&#233;es 
   ex:03,06,10,05 ==> 06/10/05
c du traitement de chaine mais bon de toute facon faudra que tu passe par la a un moment ou un autre
une fois que c fait tu cr&#233;e une list box et tu utilise le code qui va bien pour la remplir

Mat

cs_snake57 · Answer

Oui en fait je voudrais pouvoir analys&#233; les donn&#233;es sous excel.
Le but &#233;tant au final de voir les postes les plus p&#233;nalisant.

Pour se faire je voudrais pouvoir afficher les donn&#233;es dans une feuille interm&#233;diaire et ensuite pouvoir choisir les donn&#233;es que je veux mettre dans la feuille excel d&#233;finitive.

Etant donn&#233;e que les donn&#233;es sont a chaque fois 4 chiffres j'aimerais les afficher sous forme de colonne. Avec en premi&#232;re ligne la date en deuxi&#232;me ligne l'heure et la production et ensuite sur les autres lignes faire suivre les differents postes.

Et donc une fois que ces colonnes sont cr&#233;es je voudrais pouvoir choisir les donn&#233;es que je d&#233;sire envoyer dans la feuille d&#233;finitive.

Voila j'esp&#232;re avoir &#233;t&#233; clair. Et j'esp&#232;re sinc&#233;rement que tu pourras m'aider car je n'ai aucune id&#233;e sur la mani&#232;re de proc&#233;d&#233;, je n'ai jamais fais de traitement de donn&#233;es En plus je n'ai plus que deux semaine pour r&#233;aliser ceci donc je suis en panique totale...

chad_mat · Answer

Bonjour,

deja ce que tu peux faire lors de l'importatoin c'est de choisir les virgules et les points virgules comme separateurs de colonnes ensuite il te reste plus qu'a concatener les valeurs des differentes colonnes dans ta feuille intermediaire

ex : sheets("Int").cells(1,1)=sheets("Import").cells(1,1) & sheets("Import").cells(1,2)

apres pour creer tes liste t'a plus qu'a creer plusieurs listbox et faire des petites boucles du style pour les remplir

for i=1 to 10
list1.AddItem (sheets("Int").cells(1,i).value)
next i

Mat

cs_snake57 · Answer

Mais pour l'importation je dois faire comment? Parce qu'en fait l'utilisateur doit pouvoir choisir le dossier dans lequel se trouve mes fichiers .csv 

C'est avec une boite common dialogue non?

chad_mat · Answer

tout a fait,

tu place un boite Common Dialog
et ensuite la comande est assez simple
commondialg.showopen
fichier=commondialiog.filename
voila pour l'utilisation du common dialog

apr&#233;s pour l'importation le plus simple est d'enrigistrer un macro dans laquelle tu remplace le fichier appell&#233; par la variable fichier renseign&#233; par le common dialog

ca donne un truc comme ca :
     With Sheets("txt").QueryTables.Add(Connection:="TEXT;" & fichier & "", Destination:=Range("A1"))
        .Name = pathname
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With

voila
si tu as encore besoin n'h&#233;site pas

Mat

cs_snake57 · Answer

Je ne comprend pas trop ce que tu appelles "variable fichier" et les macros je ne sais pas trop ce que c'est non plus.

Je suis d&#233;sol&#233; mais comme je l'ai dit pr&#233;c&#233;dement, c'est la premi&#232;re fois que je fais un prog dans ce genre la.

En tout cas merci pour l'aide que tu m'apporte.

chad_mat · Answer

Bon a va reprendre depuis le d&#233;but c vrai j'ai pas &#233;t&#233; tres clair
fichier est le nom de la variable contenant le chemin (endroit ou se trouve le fichier sur le HD) du fichier que tu veux importer on va l'appeller toto ce sera moins ambigu

ensuite tu dis que c la premiere fois que un prog dans ce genre mais rassure moi tu connait le language VB (je te prend pas pour un con j'essais juste de voir ou on en est) si tu le connai pas on peut s'en sortir mais ca risque d'etre un peut long

donc une macro c tout con sous excel tu va dans le menu outil => macro => nouvelle macro
tu fait ce que t'as a faire et ensuite t'appui sur stop (il enregistre tout ce que tu fais dans un modele VB donc fait gaffe a ce que tu fait le code devient vite impinable sinon).
une fois ca fait tu fais Alt + F11 t'ouvre le module en question et tu modifie le code comme tu le souhaite

si tu un compte ICQ envoie moi tes coordonn&#233;es en message priv&#233;e ce sera peut etre plus simple de discuter par messagerie instantan&#233;e

Mat

cs_snake57 · Answer

Oui j'ai d&#233;j&#224; programm&#233; en VB. Mais c'&#233;tait des petit prog pour les cours d'info.

Par contre pour ICQ j'ai pas. Mais si tu as MSN je l'ai aussi.

Le PB que j'ai avec mes fichiers textes c'est qu'il faut que je les traite en m&#234;me temps car j'ai la date dans un des fichier, l'heure et la production dans un autre et le nombre et le temps de d&#233;faut dans plusieurs autres.
Je voudrais donc afficher le nombre et le temps de d&#233;faut en fonction de l'heure et de la date, puis choisir en fonction de l'heure et de la date quelles donn&#233;es j'envoie vers le excel.

Donc a mon avis avant d'utiliser les macros il faut que je puisse r&#233;cup&#233;rer les fichiers CSV pour les mettre en forme sommairement afin de pouvoir choisir les donn&#233;es a envoyer vers excel.

Mais peut &#234;tre aussi que je me trompe...

chad_mat · Answer

dsl j'ai pas msn on va donc continuer comme ca !!!

Je pense que tu n'as pas compris ou je voulais en venir je vais donc essayer de recommencer du d&#233;but en &#233;tant le plus clair possible :

Etape 1 : tu commence par importer tes fichiers 2 choix sont possibles :
      soit ton programme ne sera utilis&#233; qu'une fois, dans ce cas la tu te fait pas chier t'importe a la main et ensuite tu traite
      soit ton truc sera utilis&#233; souvent (et pas forcement par toi) et dans ce cas t'automatise tout : ca te prendra plus de temps de d&#233;veloppement (quoique c pas sur) mais par contre tu gagnera un temps consid&#233;rable &#224; l'utilisation

Etape 2 : Si tu choisi d'automatiser tu cr&#233;e un fichier excel vide mais bourr&#233; de macro (l'astuce consiste a ne jamais enregister sur ce fichier comme ca tu peux le reutiliser a chaque fois). Et la tu utilise le code d'importation du post pr&#233;cedent. Pour importer plusieurs fichiers c tout con tu fait un boucle avec ce code et le common dialog : c pas tres propre mais ca marchera

     With Sheets("txt").QueryTables.Add(Connection:="TEXT;" & toto & "", Destination:=Range("A1"))
        .Name = pathname
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True

j'ai repris un bout du post pour t'expliquer comment faire
Sheets("txt")=> la feuille ou tu vas importer
toto => le chemin complet du fichiers
A1=>la cellule de la feuille ou commencera l'importation
pathname=>le nom du fichier a importer sans l'ext ex: coucou pour coucou.csv
Pour avoir la base de ton importation tu enregistre une macro et ensuite tu modifie les 4 variables ci-dessus suivant tes besoins.

Etape 3 : 
tu cr&#233;e la feuille intermediaire dans laquelle tu met en forme les donn&#233;es et a partir de laquelle tu cr&#233;era tes listes de choix

Etape 4 : 
tu met en place les procedures de traitement qui vont bien pour faire ce que tu as a faire. 

et voila le tour est jou&#233;

Dis moi une question me turlupine je serais pas en train de t'aider a r&#233;soudre ton projet de fin d'ann&#233;e d'info par hasard ???

Mat

cs_snake57 · Answer

Non non, ce n'est pas du tout pour mon projet de fin d'ann&#233;e. Je suis actuellement en stage en entreprise et j'ai besoin de faire cela.

Par contre j'aimerais que tu m'&#233;claircissent quelques points:

"Sheets("txt")=> la feuille ou tu vas importer" => que veux tu dire par la? tu parles de la feuille excel? Concr&#232;tement je dois remplacer quoi par quoi?

"Etape 3 : 
tu cr&#233;e la feuille intermediaire dans laquelle tu met en forme les donn&#233;es et a partir de laquelle tu cr&#233;era tes listes de choix" => la aussi je vois pas trop comment faire...

Sinon merci de m'accorder de temps, c'est sympa de ta part.

chad_mat · Answer

T'inqui&#233;te pas pour le temps que tu  me prend je suis aussi stagiaire te r&#233;pondre est le moyen de glandouiller tout en ayant l'air de bosser   

oui sheets("txt") est le nom de la feuille excel dans laquelle tu veux importer tes fichiers textes

Pour l'&#233;tape 3 je vais d&#233;tailler un peu plus donc on va dier que les importation sont faites dans un feuille nomm&#233;e "txt, que la feuille de mise en forme s'appelle "int" et surtout que tu a utilis&#233; les virgules et point virgules comme separateur de colonnes lors de l'importation (un colonne avec le jour, une avec le mois ...) pour ca enregistre una macro 
pour remplir la feuille "int" tu utilise les donn&#233;es de la feuille "txt" et la concatenation (post pr&#233;cedent) afin de r&#233;creer tes dates et heures
ex : sheets("Int").cells(1,1)=sheets("Import").cells(1,1) & "/" & sheets("Import").cells(1,2) pour une date comme ca ce te donnra 02/04 pae ex
une fois que c'est fait tu peut creer les listes pour ca tu fait une boucle en incrementant au choix l'indice de ligne ou de colonne suivant tes besoins
ex en incrementant l'index  de colonne
for i=1 to 10
list1.AddItem (sheets("Int").cells(1,i).value)
next i
ex en incrementant l'index  de ligne for i=1 to 10
list1.AddItem (sheets("Int").cells(i,1).value)
next i

deja essai de faire ces &#233;tapes la pour le traitement des listes on verra apr&#233;s

Mat

cs_snake57 · Answer

Je bloque compl&#232;tement. J'arrive m&#234;me pas a ouvrir les fichiers. En fait le truc c'est que j'arrive pas a voir la boite de dialogue qui permet d'ouvrir un fichier j'ai pourtant mis une commondialog et j'ai ajouter un drivlistbox, un dirlistbox et filelistbox. Mais apparement c'est pas sa que je dois faire.

Pour la feuille excel que tu appelle sheets("txt") Il faut que je la cr&#233;er ou? Que j'ajoute une feuille dans le prog VB?

chad_mat · Answer

deja desole de pas t'avoir repondu plus tot (tu laisse quelqu'un d'autre utiliser ton PC et voila quant tu le reprend en main c plein de spyware et de conneries du genre resultat deux jours et deux nuit de bataille pour tout nettoyer)
mais revenons a nos moutons 
ok t'as mis en place le common dialog mais a tu mis le code qui va bien avec : commondialog.showopen pour ouvrir la boite de dialogue d'ouverture et toto=commondialog.filename (a verifier pour la commande filename j'ai un doute) pour mettre le nom du fichier a ouvrir dans la variable toto (variable qui te permettra apres d'importer le fichiers qui va bien)

ensuite pour la feuille "txt" le plus simple est de la creer dans le fichiers excel

Mat

cs_snake57 · Answer

Pour le Pc je sais ce que c'est que d'avoir ce genre d'ennuie. J'ai d&#233;j&#224; donn&#233; aussi...

Sinon pour le prog j'ai bien mis le commondialog et les deux ligne de code que tu m's donn&#233;. Mais lorsque j'&#233;xecute sa me met "erreur d'execution 424. Un objet est requis" et lorsque je clique sur d&#233;boguage c'est la ligne "commondialog.showopen" qui est d&#233;sign&#233;.

Les deux lignes que tu m'as donn&#233; sont plac&#233;es dans un boutton. Et pour linstant c'est tout ce que j'ai.

cs_snake57 · Answer

Ok en fait c'est bon j'ai la boite de dialogue d'ouverture de fichier qui s'ouvre.
Je vais tenter de faire la suite.

D'apres ce que tu as dit je dois donc &#233;galement ouvrir monfichier excel avec VB. N'est ce pas?

cs_snake57 · Answer

Bon j'ai ajouter le rete du code a la suite de ce que j'avais d&#233;j&#224;. Mais sa marche pas. Voil&#224; ce que j'ai:
Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    toto = CommonDialog1.FileName
With Sheets("txt").QueryTables.Add(Connection:="TEXT;" & toto & "", Destination:=Range("A1"))
        .Name = Date
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With


End Sub

Et sa me dit proc&#233;dure sub ou fonction non d&#233;finit. C'est tu ce que je doit faire?

chad_mat · Answer

Salut

bon j'ai peut etre une id&#233;e (si c pas ca dis le moi je regarderait ca ce soir en sortant du boulot) &#224; la ligne 5 de ton code tu as :
         .name=Date
Date est un mot r&#233;serv&#233; c'est &#224; dire que pour VB il a unsignification bien pr&#233;cise en locurance faire d'une variable une date, il t'as mis ca la parceque ton fichiers d'entr&#233;e doit s'appeller Date.cvs si c ca faudrait que tu change le nom de ce fichier
si c pas ca dis moi exactement quelle ligne est surlign&#233; en jaune
Pour ton info je pense que tu as fait une macro pour cr&#233;er ce code tu viens donc de decouvrir la magie de VBA : tu fait une macro elle marche t'es content, tu l'automatise et la elle marche plus et oui il y a quelques diff&#233;rence entre le language utilis&#233; en interne par excel et celui que tu peux creer c completement con mais c comme ca.

Mat

cs_snake57 · Answer

Salut

Oui j'avais bien penser a ce que tu m'as dit, et j'ai essayer de remplacer mais sa ne change rien toujours le mm message d'erreur.

La ligne qui est en jaune c'est la toute premi&#232;re : Private Sub Command1_Click()

Et il me s&#233;lectionne le mot Range de la ligne 4.

Par contre quand tu dis que j'ai fait une macro je ne vois pas trop de quoi tu parles.
En effet j'ai juste recopier le code dans le bouton. Donc c'est peut &#234;tre de la que vient le probl&#232;me...

Sinon je pensais a un truc:
Comme tout les fichiers sont dans le m&#234;me dossier. Ne serait il pas possible de les ouvrir automatiquement au lieu de les faire ouvrir un par un par l'utilisateur.

chad_mat · Answer

Bonjour,

tout d'abord as tu chang&#233; le nom du bouton (propri&#233;te name) parce que si il ne s'appelle plus command1 c normal que ca plante (pour en etre vraiment sur tu double clique sur ton bouton en mode d&#233;veloppement, il va t'ouvrir la proc&#233;dure li&#233; au bouton). ensuite en effet si tu as juste recopi&#233; le code ca vient peut etre de la essaie de faire une macro et tiens moi au courant.

pour ce qui est de les ouvrir en meme temps j'allai y venir mais avant de compliquer ton truc je voulais etre sur que t'arrive a les ouvrir un par un et a les mettre ou tu veux dans le fichiers excel. Pour les ouvrir tous en meme temps encore une fois il y a deux possibilit&#233;es : 
            - ils seront toujours dans le meme dossier dans ce cas tu cree une constante du style
         const chemin = "C:\..............."
            -ils peuvent changer de dossier dans ce cas tu met une boite de dialogue ou l'utilisateur peut choisir le dossier qu'il veut

Mat

cs_snake57 · Answer

Le nom du bouton est bien le bon.

Quand tu dis que je dois faire une macro, tu veux dire sous excel je suppose.
Mais sous excel le commondialogu et les bouton n'existe pas. Je sais que ce que je dis peut paraitre idiot mais je ne vois vraiment pas comment faire.
Comme je l'ai d&#233;j&#224; dis c'est la premi&#232;re fois que j'utilise les macros.
Maintenant si tu veux dire que la macro doit &#234;tre faite sous VB alors je comprends encore moins. Voila, jesp&#232;re que tu pourras m'apporter quelques explications...

chad_mat · Answer

Ca y est je viens de conprendre pourquoi ca marche pas en fait depuis le debut je pensait que tu &#233;tait exclusivement sous VBA pour que ton imprtation marche il faut que tu pose ton code d'importation dans le VBA d'excel et qu'ensuite tu appelle la fonction depuis VB
voila la marche a suivre

Sous VB 
dim fichierxls as object

Set fichierxls= GetObject(ici tu met le chemin complet du fichiers excel et son extension)

fichiersxls.import(ici tu met le chemin complet du fichiers excel et son extension)

Sous VBA

public sub import(fich as string)

la tu met la macro que tu aura faite avec excel 

end sub

le probleme avec ca est que ton fichiers excel doit imp&#233;rativement etre ouvert pour que ca marche (sous peine de plantage) pour remedier a ca va voir les sources depos&#233;es sur ce site il doit y avoir des modules permettant de lancer excel au lancement de ton programme

cs_snake57 · Answer

La ou tu dis que je dois mettre la macro c'est la ou je dois mettre tout le code qui commence par le commondialog?
Si c'est sa sa ne marche pas!

Juste une petite pr&#233;cision stp: Quel est la diff&#233;rence entre VB et VBA? Pour moi ya pas de diff&#233;rence. C'est peut &#234;tre pour sa que je m&#233;lange tout.

chad_mat · Answer

Bonjour,

Commencons par une mise au point VB et VBA sont des languages extremement proche (VBA est construit a partir de VB). La seule difference est que VBA est appliqu&#233; a une application donn&#233; c'est &#224; dire que dans le VBA d'Excel tu va retrouver une horde de fonctions propre &#224; Excel mais qui sont inconnue du VB pur et dur. Il faut donc que tu sache exactement quoi mettre ou : toutes les fonctions ou tu fait appel a des fonctions propre a excel (importation, ecriture/lecture de cellules, cr&#233;ation de feuilles) devront imp&#233;rativement aller dans le VBA et d'autres comme le common dialog devront aller dans le VB.

en ce qui concerne ton appli d&#233;sol&#233; si je suis pas clair je vais faire des efforts    

Sous VB (code visual basic)

tu cree un objet qui sera ton fichiers excel

dim fichierxls as object
Set fichierxls= GetObject(ici tu met le chemin complet du fichiers excel et son extension)

CommonDialog1.ShowOpen
toto = CommonDialog1.FileName

le code suivant te permet d'appeller un procedure dans le code de ton fichiers excel
fichiersxls.import(toto)
la partie entre parenth&#233;ses ce sont les informations que tu envoi a cette proc&#233;dure ici le nom et le chemin du fichiers (je pense que tu peux envoyer un tableau contenant le nom de tous tes fichiers)

Sous VBA (code excel)

public sub import(fich as string)

With Sheets("txt").QueryTables.Add(Connection:="TEXT;" & fich & "", Destination:=Range("A1"))
        .Name = fich
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With

end sub

a+
Mat

cs_snake57 · Answer

J'ai &#233;ssay&#233; de faire comme tu m'as dit. Malheureusement le VB bloque a la ligne
Set fichierxls= GetObject(ici tu met le chemin complet du fichiers excel et son extension)

Il me s&#233;lectionne le chemin du fichier alors j'ai essay&#233; de le mettre directement a la racine, mais sa ne marche pas non plus

chad_mat · Answer

Salut, 

a tu pens&#233; a mettre le chemin entre guillemets 
ben oui c une chaine de caract&#233;res si tu la pas fait c normal que c marche pas (dsl de pas te l'avoir dis plus tot)
ce que tu peut faire si ca marche pas c faire un copier coller de ton code dans un post je te dirait si ya des trucs qui me choquent ou si ca va 

Mat

cs_snake57 · Answer

Oui c'&#233;tait bien les guillemets. Par contre sa ne fonctionne toujours pas, sa me marque

erreur d'&#233;x&#233;cution'91':
variable objet ou variable bloc With non d&#233;finie.

Et quand je fais d&#233;bogagge c'est cette ligne qui est s&#233;lection&#233; :
fichiersxls.import(toto)

chad_mat · Answer

Question a tu fait du copiers coll&#233; du code que je t'ai donn&#233; si oui en relisant les posts pr&#233;cedents je viens de voir une erreur vraiment conne :

fichiersxls.import(toto)
Set fichierxls = ........

y sont pas &#233;crit pareil du coup pour lui c deux trucs diff&#233;rents
si c ca tant mieux si c pas ca va falloir que je tente de faire un prog &#233;quivalent pour voir pourquoi ca marche pas

Mat

cs_snake57 · Answer

Pour le "s" en trop c'&#233;tait bien sa. J'aurais du faire gaffe au copier-coller. D&#233;sol&#233;.

Mais bon malgr&#233; la correction sa ne marche toujours pas.

Cette fois sa me met: erreur d'execution 438
L'objet ne g&#232;re pas cette propri&#233;t&#233; ou cette m&#233;thode.

Et il me s&#233;lectionne la ligne : fichierxls.import (toto)

Voici le code que j'ai dans VB:

Dim fichierxls As Object


Private Sub Command1_Click()
Set fichierxls = GetObject("C:\excel_mp370.xls")
CommonDialog1.ShowOpen
toto = CommonDialog1.FileName
fichierxls.import (toto)
End Sub



Et voici mon code de la macro dans excel:

Sub Macro1()
Public Sub import(fich As String)
With Sheets("txt").QueryTables.Add(Connection:="TEXT;" & fich & "", Destination:=Range("A1"))
        .Name = fich
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With


End Sub
End Sub

J'esp&#232;re qu'encore une fois tu pourras m'aider.
Merci d'avance.

chad_mat · Answer

Mettre une proc&#233;dure dans une proc&#233;dure c pas vraiment l&#233;gal  ca je pense que l'erreur vient de la vire sub macro1() et le second end sub ca devrait deja fonctionner mieux

tant que j'y suis pense a creer la feuille nomm&#233;e txt dans le fichier excel  sinon ca va encore t'insulter

Mat

cs_snake57 · Answer

J'ai suprimer les deux lignes mais j'ai toujours la m&#234;me erreur...

chad_mat · Answer

Je crois que je sais d'ou ca vient si mes souvenir sont bon quand tu cr&#233;e un macro il te la met dans un module or cette cochonnerie n'est pas accessible directement pour que ca marche il faudrait que tu fasse un copier coller du code du module dans la feuille VBA s'appellant Thisworkbook (tu peut la trouver dans l'explorateur de projet si il est pas affich&#233; tu va dans affichage et tu clique dessus)

Mat

cs_snake57 · Answer

Maintenant sa me met une autre erreur:

erreur d'execution 1004
La m&#233;thode 'range' de l'objet '_global' a &#233;chou&#233;

Pourtant j'ai bien appel&#233; la feuille txt.

chad_mat · Answer

Pour l'importation as tu fait une macro ou as tu fait du copier coll&#233;. Si tu as fait du copi&#233; coll&#233; fait une vrai macro sinon je vois pas d'ou ca peut venir 
je tenterais de regarder ca ce soir j'ai pas VB au boulot

Mat

cs_snake57 · Answer

J'ai fait du simple copier-coller de ce que tu m'as dit la o&#249; tu m'as dit.

Je ne voit pas ce que tu veux dire en disant que je dois faire une macro. Je croyais que le fait de placer le code dans excel &#233;tait d&#233;j&#224; une macro. Apparament non...

chad_mat · Answer

D&#233;sol&#233; j'ai du mal m'expliquer
le code que je t'ai donn&#233; est li&#233; a mes fichiers texte (c pas gagn&#233; qu'il marche avec les tien). Pour enregistrer une macro c tout con tu va dans excel -> outil -> macro -> nouvelle macro
tu lui donne un nom 
tu fait ton importation donn&#233;es ->donn&#233;es externe -> importer le fichiers texte
un boite de dialogue va s'ouvrir tu param&#233;tre le truc pour importer comme tu veux
une fois que c fini tu clique sur stop
et voila ta macro est enregistr&#233;
a partir de la tu la copie dans la proc&#233;dure import, tu la modifie pour pouvoir importer le fichiers que tu veux (remplace le chemin du fichiers par " & fich & ") et normalement ca devrait marcher

Mat

cs_snake57 · Answer

D&#233;sol&#233; d'avoir arr&#233;ter de r&#233;pondre mais j'ai eu un grave probl&#232;me de PC. J'ai cramer le disque dur.

Tout est rentr&#233; dans l'ordre

Pour le prog j'ai tout refait mais sa marche toujours pas.

J'ai fais ma propre macro. Mais le prog bloq dans VB a la ligne ""fichierxls.import (toto)".

Il  me met erreur 450
nombre d'arguments incorret ou affectation de propri&#233;t&#233; incorrecte

Voila j'esp&#232;re que tu es toujours d'accord pour m'aider...

chad_mat · Answer

Cramer un disque dur c tr&#233;s con ca j'espere que t'as pas perdu trop de choses !

Bon normalement c pas grand chose ce qui se passe c que en faisant ta macro il a du la nommer a peu pr&#233;s comme ca Sub Macro1() ou Sub import()
le probl&#233;me en gros c que tu lui envoi une variable sans lui avoir dit qu'il allait la recevoir du coup il est paum&#233; et il t'insulte
Pour remedier a ton probl&#233;me il suffit de lui dire qu'il va recevoir quelque chose en modifiant le nom de la proc&#233;dure dans VBA :
Sub import(fich as string) 
pense aussi a modifier le code de la macro pour qu'il traite le fichiers fich

Mat

cs_snake57 · Answer

Cette fois j'ai une autre erreur.

erreur d'execution 1004
Impossible de trouver le fichier texte pour l'actualisation de cette plage de donn&#233;es externes.
Assurez vous que le texte n'a &#233;t&#233; ni d&#233;plac&#233; ni renom&#233; et r&#233;essayez.

L'erreur apparait juste apr&#232;s que j'ai s&#233;lectionn&#233; le fichier texte dans la boite de dialogue et le d&#233;bogueur me surligne la ligne "fichierxls.import (toto)".

PS: Lorsque j'execute le prog j'ai mon fichier excel qui est d&#233;j&#224; ouvert. Dois je le fermer?

chad_mat · Answer

laisse le fichiers excel ouvert ca change rien
ce que tu peux faire c une fois que ca a plant&#233; tu l'arrete pas et tu verifie la valeur de la variable toto (tu la selectionne tu clique droit et tu fais ajouter un espion)
tu verifie ensuite dans le fenetre en bas de l'ecran si elle a la bonne valeur (le chemin complet et l'extension) 
si c ca corrige le sinon envoie moi ton code je verrai ce que je peux faire

cs_snake57 · Answer

Oui, la valeur de "toto" est bonne.

Voici mon code:

Dim fichierxls As Object


Private Sub Command1_Click()
Set fichierxls = GetObject("C:\excel_mp370.xls")
CommonDialog1.ShowOpen
toto = CommonDialog1.FileName
fichierxls.import (toto)
End Sub


Sub import(fich As String)
'


'
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;&fich&", _
        Destination:=Range("B2"))
        .Name = "toto"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub



Pour ce qui est d'avoir le excel ouvert ou non, tu dis que sa ne change rien. Pourtant je n'ai pas la m&#234;me erreur si il l'est ou non.

Lorsqu'il est ouvert j'ai l'erreur que je t'ai dis et lorsqu'il est ferm&#233; j'ai l'erreur d'execution 1004
La m&#233;thode 'range' de l'objet '_global' a &#233;chou&#233;

chad_mat · Answer

quelques post plus haut je t'avais dis de rechercher sur ce site un module pour l'ouverture d'excel si tu la pas fait c sur que ca change tout tu doit donc ouvrir excel avant de lancer ton programme

deja commence par remplacer ca 

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;&fich&", _
 par ca

    With ActiveSheet.QueryTables.Add(Connection:="TEXT; & fich & ", _
 parce que la pour lui il cherche un truc qui s'appelle &fich& du coup il trouve rien !

cs_snake57 · Answer

C'est bon j'ai ajouter le code pour ouvrir le excel et j'ai chang&#233; ce que tu m'as dit.

Mais j'ai toujours la m&#234;me erreur que pr&#233;c&#233;dement.

PS : Le excel s'ouvre en lecture seul car il est soit disant prot&#233;g&#233;. C'est normal?

chad_mat · Answer

l'ouverture du fichiers en lecture seule c pas vraiment normal ca ce que tu peux faire c le fermer faire un clic droit sur l'icone ouvrir propri&#233;te si ouverture en lecture seule est coch&#233; decoche le sinon fouille dans les menus excel (style option ou un truc du style) et regarde si tu peux faire un truc. la derniere solution c fouiller dans le module et voir si on lui dit pas de s'ouvrir en lecture seule quelque part.

sinon pour ton erreur en verifiant ton code j'ai trouv&#233; une bourde que j'avais rat&#233; la derni&#233;re fois d&#233;sol&#233;

With ActiveSheet.QueryTables.Add(Connection:="TEXT;& fich &"  vu comme ca fich n'est pas un variable mais une chaine de caract&#233;re
faut que tu remplace par
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fich & ""

chad_mat · Answer

Pour le fichiers excel en lecture seule ya plusieurs possibilit&#233;es :
         va voir dans les menu excel
         va voir dans les propri&#233;tes de fichiers (clic droit sur l'icone puis propri&#233;tes)
         decortique le code d'ouverture histoire d'etre sur que tu lui dit pas de s'ouvrir en lecture seule

pour ton erreur en reverifiant ton code j'ai trouv&#233; une bourde que j'avais rat&#233; la derniers fois d&#233;sol&#233;
remplace
With ActiveSheet.QueryTables.Add(Connection:="TEXT; & fich & "
par
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fich & ""
pour VB ce qui est entre guillemets c une chaine de caract&#233;rtes

cs_snake57 · Answer

Sa y'est en ayant changer les guillemets sa marche. J'arrive a r&#233;cup&#233;rer mon fichier texte dans excel.

Mais il faut que j'ai le excel qui soit d&#233;j&#224; ouvert. Le prog l'ouvre une deuxi&#232;me fois et les donn&#233;es sont mises dans celui qui &#233;tait ouvert en premier.

Si je ne l'ouvre pas moi m&#234;me j'ai une erreur qui me dit:

erreur d'&#233;xecution '-2147417846 (8001010a)':
Erreur Automation
Le filtre de maessages indiquait que l'application &#233;tait occup&#233;e.

Et j'ai cette ligne de s&#233;lectionn&#233; :
Set fichierxls = GetObject("C:\excel_mp370.xls")

chad_mat · Answer

ton probl&#233;me actuel doit venir de l'ordre dans lequel tu appelle les proc&#233;dures
d'abord tu dois ouvrir Excel 
et ensite cr&#233;er l'objet repr&#233;sentant ton fichier : Set fichiersxls

l'histoire d'ouverture en lecture seule viens sans doute de la (deux fichiers ouvert en memtemps)

cs_snake57 · Answer

Les proc&#233;dures sont bien effectuer dans le bonne ordre.

chad_mat · Answer

fais un copi&#233; coll&#233; de ton code et met le dans un post

cs_snake57 · Answer

Dim fichierxls As Object


Private Sub Command1_Click()
logiciel = "c:\program files\microsoft office\office10\excel.exe"
fichier = "c:\excel_mp370.xls"
alancer = logiciel & " " & fichier
appli = Shell(alancer, vbMaximizedFocus)
Set fichierxls = GetObject("C:\excel_mp370.xls")
CommonDialog1.ShowOpen
toto = CommonDialog1.FileName
fichierxls.Import (toto)
End Sub


Sub import(fich As String)
'
'


'
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fich & "", _
        Destination:=Range("B2"))
        .Name = "toto"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

10 fichiers textes a transférer dans excel

52 réponses

Discussions similaires