Accueil > Forum > > > > determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
 determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
jeudi 21 juillet 2005 à 11:49:40 |
determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
hicham_a_t23
|
bonjour tout le monde, est ce que quelqu'un peut m'aider : j'ai besoin de determiner la derniere ligne d'un fichier excel pour la supprimer ( avec le code) en fait je suis sencé automatiser l'import d'un fichier text et le mettre sous excel en eliminant la premiere, deuxieme et dreniere ligne; pour l'importer ensuite a la base de donnees access( ca, j'ai arrivé à le faire) si quelqu'un peut m'aider je serai tres reconnaissant. et merci d'avance |
|
jeudi 21 juillet 2005 à 11:55:26 |
Re : automatiser l'import d'un fichier text et le mettre sous excel en eliminant la premiere
hicham_a_t23
|
bonjour tout le monde, est ce que quelqu'un peut m'aider : j'ai besoin de determiner la derniere ligne d'un fichier excel pour la supprimer ( avec le code)
en fait je suis sencé automatiser l'import de plusieurs fichiers text dans un dossier et les mettre sous excel en eliminant la premiere, deuxieme et dreniere ligne; pour les importer ensuite a la base de donnees access( ca càd l'import à access, j'ai arrivé à le faire)
si quelqu'un peut m'aider je serai tres reconnaissant. et merci d'avance
|
|
jeudi 21 juillet 2005 à 12:04:00 |
Re : determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
Molenn
|
Si j'ai bien compris ce que tu dis :
Tu importes un fichier text dans Excel.
Tu supprimes 3 lignes (les 2 premières et la dernière)
Tu exportes ton résultat dans ACCESS
Suivant le contenu du fichier texte (si l'organisation est la même que les autres lignes), tu aurais peut être intérêt à l'importer directement dans ACCESS et ensuite, à supprimer les 2 premières lignes et la dernière, ce qui est très simple :
table.movefirst
delete...
table.movefirst
delete...
table.movelast
delete...
Si ce sont des entêtes de colonnes que tu veux enlever, dans les options d'Excel autrement, tu peux choisir de ne pas les importer si ma mémoire est bonne.
Sinon, il te reste la solution suivante :
POur les 2 premières lignes rien de bien compliqué, je suppose que tu y arrives.
Tu as choisi une cellule pour l'importation de ton fichier texte, tu connais donc le numéro des 2 premières lignes.
Si ta première ligne est par exemple la 10 :
Rows("10:11").Delete Shift:=xlUp
Il reste à déterminer la dernière ligne.
Le plus simple je pense est de créer une cellule (par exemple A1) avec comme formule :
=nbval(A10:A...) Tumets ici un chiffre suffisament grand pour couvrir ton fichier texte (tu sais qu'il y a environ 500 lignes, etc .. sinon, tu colles A32000 par exemple).
A condition bien sur que ton import de texte commence dans la colonne A ^^
Ca va te donner le nombre de lignes non vides.
Ensuite, pour déterminer la dernière ligne :
DernièreLigne=Range("A1").value + 10 - 1 (le 10 est le numéro de la ligne où tu importes la 1ère donnée)
Plus qu'à la supprimer elle aussi :
DernièreLigne = DernièreLigne & ":" & DernièreLigne
Rows(DernièreLigne).Delete Shift:=xlUp
Voilà.
Molenn
|
|
jeudi 21 juillet 2005 à 14:08:05 |
Re : determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
hicham_a_t23
|
merci, tu m'as donné de bonnes idées pour commencer; je m'excuse;d'abbord je voulais dire la première; la troisieme et la derniere ligne; mais ca revient au même. Voici la structure des fichiers .txt ( il y ad'autres avec 1600 lignes)
je vais essayer et te repondre si ca marche
|
|
jeudi 21 juillet 2005 à 15:27:13 |
Re : determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
hicham_a_t23
|
merci ca marche mnt j'ai pu eliminer la derniere ligne en utilisant le code suivant :
nbre_lignes = excel.ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count
Rows(nbre_lignes).Delete Shift:=xlUp
|
|
jeudi 21 juillet 2005 à 17:05:10 |
Re : comment alligner les colonnes du fichier text lors de l'export vers un fichier excel
hicham_a_t23
|
merci Molenn pour ton aide.
j'ai utilisé une macro pour determiner le code pour voire comment alligner les colonnes du fichier text (le truc text to columns de excel ) ; si vous avez une idee pour le parametrer ( le fichier text est sous forme de table avec des champs) . voici le code :
/* strResFolder = chemin du dossier ds la boite du dialogue*/
Workbooks.OpenText FileName:= _
strResFolder & " \cell_bh050707.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(14 _
, 1), Array(27, 1), Array(39, 1), Array(49, 1), Array(59, 1), Array(69, 1), Array(79, 1), _
Array(89, 1), Array(99, 1), Array(109, 1), Array(119, 1), Array(129, 1), Array(139, 1), _
Array(149, 1), Array(159, 1), Array(169, 1), Array(179, 1), Array(190, 1), Array(200, 1), _
Array(210, 1), Array(220, 1), Array(230, 1), Array(240, 1), Array(250, 1), Array(260, 1), _
Array(270, 1), Array(280, 1), Array(292, 1), Array(302, 1), Array(314, 1), Array(328, 1), _
Array(338, 1), Array(348, 1), Array(358, 1), Array(369, 1), Array(382, 1), Array(396, 1), _
Array(406, 1), Array(419, 1), Array(433, 1), Array(447, 1), Array(461, 1), Array(471, 1), _
Array(481, 1), Array(491, 1), Array(501, 1), Array(511, 1), Array(521, 1), Array(531, 1), _
Array(541, 1), Array(557, 1), Array(573, 1), Array(591, 1), Array(603, 1), Array(615, 1), _
Array(629, 1), Array(647, 1), Array(657, 1), Array(669, 1), Array(679, 1), Array(689, 1), _
Array(701, 1), Array(711, 1), Array(721, 1), Array(731, 1), Array(743, 1), Array(755, 1), _
Array(767, 1), Array(784, 1), Array(804, 1), Array(819, 1), Array(839, 1), Array(849, 1), _
Array(859, 1), Array(869, 1), Array(879, 1), Array(889, 1), Array(899, 1), Array(909, 1), _
Array(919, 1), Array(929, 1))
Merci encore
|
|
vendredi 22 juillet 2005 à 09:41:55 |
Re : determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
Molenn
|
Je dois avouer que là je patauge.
En fait, je ne vois pas du tout ce que tu veux faire, si tu peux être un peu plus précis (ou alors, il est encore trop tôt pour moi et mon cerveau ne tourne pas encore à plein régime :)
|
|
vendredi 22 juillet 2005 à 12:19:30 |
Re : determiner la derniere ligne d'un fichier excel et l'eliminer en Visual Basic 6.0
hicham_a_t23
|
Réponse acceptée !
bonjour Molenn. je vais essayer de t'eclaircir mon objectif : j'ai tes fichiers txt (contenant des colonnes) qui doivent être importés vers access pour les exploiter pour des statistiques; mais d'abord, je dois les traiter en enlevant certaines lignes(première; troisième et dernière) avec excel: si je les traite manuellement avec excel j'otient le truc suivant qui justifie les champs. .  Mon probleme alors est d'automatiser cette opération pour l'exploiter pour plusieurs autres fichiers. j'ai utilisé une macro pour voire; mais elle s'adapte avec la taille du fichiers ; et je ne sais pas s'il existe un truc pour le faire; la partie du code associé dans la ,acro est le suivant : FieldInfo:=Array(Array(0, 1), Array(14 _ , 1), Array(27, 1), Array(39, 1), Array(49, 1), Array(59, 1), Array(69, 1), Array(79, 1), _ Array(89, 1), Array(99, 1), Array(109, 1), Array(119, 1), Array(129, 1), Array(139, 1), _ Array(149, 1), Array(159, 1), Array(169, 1), Array(179, 1), Array(190, 1), Array(200, 1), _ Array(210, 1), Array(220, 1), Array(230, 1), Array(240, 1), Array(250, 1), Array(260, 1), _ Array(270, 1), Array(280, 1), Array(292, 1), Array(302, 1), Array(314, 1), Array(328, 1), _ Array(338, 1), Array(348, 1), Array(358, 1), Array(369, 1), Array(382, 1), Array(396, 1), _ Array(406, 1), Array(419, 1), Array(433, 1), Array(447, 1), Array(461, 1), Array(471, 1), _ Array(481, 1), Array(491, 1), Array(501, 1), Array(511, 1), Array(521, 1), Array(531, 1), _ Array(541, 1), Array(557, 1), Array(573, 1), Array(591, 1), Array(603, 1), Array(615, 1), _ Array(629, 1), Array(647, 1), Array(657, 1), Array(669, 1), Array(679, 1), Array(689, 1), _ Array(701, 1), Array(711, 1), Array(721, 1), Array(731, 1), Array(743, 1), Array(755, 1), _ Array(767, 1), Array(784, 1), Array(804, 1), Array(819, 1), Array(839, 1), Array(849, 1), _ Array(859, 1), Array(869, 1), Array(879, 1), Array(889, 1), Array(899, 1), Array(909, 1), _ Array(919, 1), Array(929, 1)) Merci encore
|
|
Cette discussion est classée dans : fichier, ligne, excel, derniere, determiner
 Répondre à ce message
 Sujets en rapport avec ce message
A l'aide !!! XML vers Excel ...? [ par gaminou ]
Salut à tous. Mon problème est le suivant : un de mes logiciels génère un fichier xml du type ci-dessous, qu'il colle dans une cellule de fichier exc
[VBA] insérer une ligne dans un fichier excel [ par cokinoumasterflash ]
Bonjour, Je cherche à insérer une ligne dans un fichier excel depuis access. Pour cela en chercheant un peu partout j'ai trouvé ce code mais je n'arri
Parcourir fichier Excel jusqu'à la fin de la ligne et passer à la suivante [ par jiojio ]
Bonjour, Je réalise une application VB + Excel !Je dois prendre mes données de Excel pour ensuite les mettre dans des tables Oracle. Mais bon le probl
VBA Excel : test sur une ligne sélectionnée [ par haplo67 ]
Bonjour à tous,Je suis bloqué dans une application personnelle depuis le début de l'après-midi (ce qui est assez étonnant lorsqu'on arle de VBA, langa
VBS et excel [ par pcastain ]
Bonjour,je voudrais, avec un fichier vbs, chercher un mot dans un tableau excel,et que le vbs me dise dans une msgbox : le mot "toto" ce trouve ligne
Suppression derniere ligne d'un .txt [ par EBT_Cisia ]
Bonjour, lors de la création d'un fichier texte. EX: Open "C:\Test.txt" For Append As #1 Print #1, "Bonjours" Close #1lorsque l'
parcourir une ligne d'un fichier excel en VB6 [ par dadou20 ]
bonjour a tousje voulais savoir comment peut on parcourir une ligne d'un fichier excel dans le but de trouver un elelement donné.parcourir une colonne
Protéger une ligne dans le fichier excel vba [ par avyrex1926 ]
Bonjour à tous, Je désire protéger la ligne 2 de la feuil1 de mon document Excel, mais je ne veux pas utiliser l'option protection, car il t'empêche d
écrire une ligne d'un fichier excel dans un fichier txt [ par eldictator ]
Bonjour,Je voudrai écrire une ligne d'un fichier excel vers un fichier txt, avec comme séparateur la virgule.J'effecturai cette opération plusieur foi
Comment Ouvrir un gros fichier EXCEL à une certaine ligne dont le numéro serait passé en paramètre [ par takewing ]
Bonjour, Je souhaite lancer un gros fichier EXCEL à une certaine ligne dont le numéro serait passé en paramètre.Je lance ce fichier EXCEL en pointant
 Livres en rapport
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|