Supprimer lignes dans Excel

Version imprimable

03/01/2018, 10h22
thovan

Supprimer lignes dans Excel

Bonjour,

Question toute simple et pourtant pour laquelle je ne trouve rien dans Google :(...

Comment supprimer des lignes dans un fichier excel par code VB?

Plus en détail :
J'ai un ERP professionnel dans lequel j'extrais des données statistiques dans un fichier excel que je réintègre dans une base de donnée access et que j'exploite dans un applicatif VB.
Mon problème c'est que lors de chaque extraction, l'ERP construit le fichier excel avec des lignes dont je n'ai pas besoin : les lignes 1 à 9 et la colonne A.

J'aimerais donc avoir un bouton pour nettoyer mes fichiers ensuite un bouton pour les intégrer dans la DB (ça sera pour plus tard...).

Merci pour votre aide :)

Salut,

Par exemple :

Code:

1
2
3
4
5
6
7
8
Dim ApplicationExcel As New Excel.Application() 'Ouvre Excel
Dim ClasseurExcel As Workbook = ApplicationExcel.Workbooks.Open(Nomdemonfichier) 'Ouvre le classeur spécifié
Dim FeuilleExcel As Worksheet = CType(ClasseurExcel.Worksheets(1), Worksheet) 'Sélectionne la première feuille
 
For n As Integer = 1 To 9 'Pour n = 1 jusqu'à 9
     Dim Ligne As Range = CType(FeuilleExcel.Rows(n), Range) 'Sélectionne la ligne
     Ligne.Delete() 'Supprime la ligne
Next

03/01/2018, 14h59
thovan

Hello,

Merci pour la réponse :)
Cela dit j'ai toujours un problème... le code que tu donnes me semble du VBA et je travaille en VB...
J'ai donc quelques fonctions qui ne sont pas reconnues :

Excel.Application()
Workbook
Worksheet
Range

Existent-elles en VB ?
03/01/2018, 15h06
r.morel

C'est du VB.net et non du VBA !
Tu as ajouté la référence Microsoft.Office.Interop.Excel à ton projet ?
03/01/2018, 16h39
thovan

Je l'ai ajoutée...et plus rien ne fonctionnait :(
Impossible de retrouver l'interface graphique....
J'ai su revenir en arrière en chipotant et j'ai voulu refaire la manip dans une copie du projet au cas ou.... et maintenant je ne trouve plus la référence.....
03/01/2018, 16h58
r.morel

Regarde ceci.
04/01/2018, 07h54
Invité

Bonjour,
Certaines diront que je n'ai rien compris comme dab, je fais une dernière tentative avant d'aller à la pêche!

Tu peux considérer Excel comme une base de données et faire une jointure externe entre Access et Excel! Tu peux même fournir. Une plage de données B10:E500 par exemple!

Citation:

J'aimerais donc avoir un bouton pour nettoyer mes fichiers ensuite un bouton pour les intégrer dans la DB (ça sera pour plus tard...).

Avec un requête Sql tu pourras supprimer les 9 première ligne la colonne A et intégrer directement dans Access 2 en 1!

https://www.developpez.net/forums/d1...t/#post9666110
09/01/2018, 16h16
thovan

Hello,

J'ai lu les infos... j'ai réussi à ajouter la référence mais j'ai quand même un petit bug après... des polices utilisées dans mes boutons ne sont plus disponibles et l'interface graphique plante...
Enfin, j'ai su corriger ça !

Par contre, les fonctions ne sont toujours pas disponibles :(

Après si ça peut se faire par du SQL ça m'intéresse aussi :)
09/01/2018, 16h24
r.morel

Citation:

Envoyé par thovan

Par contre, les fonctions ne sont toujours pas disponibles :(

Merci de préciser ! Quels sont les éléments concernés ? Quels sont les messages d'erreurs ?
10/01/2018, 03h39
clementmarcotte

Bonjour,

Citation:

Supprimer lignes dans Excel

Cela veut dire quoi vraiment ?

Parce que, pour un habitué d'Excel, supprimer une ligne c'est enlever la ligne au complet. Quand on supprime la ligne 1, la ligne 2 devient la ligne 1. Quand on efface les cellules, la ligne reste mais avec de cellules vides.

Si, supprimer les lignes 1 à 9 veut dire que la ligne 10 devient la première ligne directement en dessous des lettres, le code de r.morel constitue une bonne base, sauf que tu dois boucler à rebours de 9 à 1. Parce que c'est la seule façon de garder synchronisés le compteur de la boucle et le numéro de la ligne. (Les numéros de lignes ne sont pas figés et changent automatiquement dès que la ligne est zigouillée.

Mais tant que tu ne diras pas exactement quels problèmes tu as et quand, les lignes en erreurs et les textes des messages d'erreur, cela ne sert à rien de juste venir voir le sujet.

:cristal:
10/01/2018, 06h20
r.morel

Citation:

Envoyé par clementmarcotte

(...) Quand on supprime la ligne 1, la ligne 2 devient la ligne 1. (..)

Salut,
Merci de cette correction. ;) J'avais oublié. :oops: Pourtant je me suis déjà confronté à ce problème.
Bonne journée
10/01/2018, 07h16
Invité

Bonjour,
Dans ce lien https://www.developpez.net/forums/d1...t/#post9666110

Je te propose une solution, j'y propose même une vidéo montrant la marche a suivre!

Tu peux faire une requête avec jointure externe entre Access et Excel!

Code:

select * From [Feuille1$B10:E150] in 'C:\rep\Classeur1.xls' 'Excel 12.0;HDR=No')

Ton but étant de manipuler ces données dans ton application commencer par ce connecter à Access c'est pas une mauvaise idée!
11/01/2018, 09h59
thovan

Et bien, merci pour toutes vos réponses :)

Alors, je veux bien supprimer complètement les lignes en trop 1 à 9 et la colonne A.

Concernant les morceaux de codes qui ne vont pas :
Dim ApplicationExcel As New Excel.Application() "Type Excel.application not defined"
Dim ClasseurExcel As Workbook "Type Workbook is not defined"
Dim FeuilleExcel As Worksheet "Type Worksheet is not defined"
Dim Ligne As Range "Systen.Data.Range is not accessible in this context because it is 'friend'"

Voilà :)

Je vais jeter un oeil sur la solution SQL et tester !
11/01/2018, 10h03
thovan

Citation:

Envoyé par dysorthographie

Ton but étant de manipuler ces données dans ton application commencer par ce connecter à Access c'est pas une mauvaise idée!

En fait l'idée c'est de créer un applicatif externe qui nous permet d'exploiter les données d'un ERP/SGL quand on se trouve limité dedans...
J'en ai discuté avec la société qui développe ce soft et apparemment un accès direct à la DB serait possible en lecture seule.... ce qui veut dire, plus besoin d'export-import et en plus exploitation des données en temps réel...

Mais bref, j'aimerais quand même y arriver... pour ma culture personnelle :)
11/01/2018, 10h03
Invité

Bonjour,
pour ce qui me concerne, j’oublierais Excel, mais visiblement ce n'est pas ton option!
11/01/2018, 10h06
r.morel

Il te manque la référence pour Excel ! Tu dois ajouter la référence Microsoft.Office.Interop.Excel.
Comme indiqué dans ce post : https://www.developpez.net/forums/d1...l/#post9886161
11/01/2018, 10h11
thovan

Citation:

Envoyé par r.morel

Il te manque la référence pour Excel ! Tu dois ajouter la référence Microsoft.Office.Interop.Excel.
Comme indiqué dans ce post : https://www.developpez.net/forums/d1...l/#post9886161

Non je l'ai bien :( malheureusement, impossible de joindre une capture d'écran dans mon message...
11/01/2018, 10h16
thovan

Citation:

Envoyé par dysorthographie

Bonjour,
pour ce qui me concerne, j’oublierais Excel, mais visiblement ce n'est pas ton option!

Je peux essayer d'exporter en texte avec séparateur point virgule...

voila la requête que j'utilise dans l’exemple de la vidéo fournis!

Code:

1
2
INSERT INTO TestInsertDb ( NumDoc, Livrable, Jalon, DateS1, DateA1, DateS2, DateA2, DateS3, DateA3, A_consulter, Version )SELECT Frm.NumDoc, Frm.Livrable, Frm.Jalon, Frm.DateS1, Frm.DateA1, Frm.DateS2, Frm.DateA2, Frm.DateS3, Frm.DateA3, Frm.A_consulter, Frm.Version
FROM [TestInsertDb$] AS Frm IN 'C:\Users\.....\Desktop\TestInsertDb\TestInsertDb.xlsx'[excel 12.0;HDR=Yes;IMEX=1;];

Bonjour

Citation:

Envoyé par thovan

Non je l'ai bien :( malheureusement, impossible de joindre une capture d'écran dans mon message...

Commence par mettre dans l'entête de ton module:

Code:

Imports.Microsoft.Office.Interop.Excel

Mais. j'ai déjà eu des problèmes avec des versions de visual Studio qui de voulaient rien savoir d'importer office.interop.

J'ai pris l'habitude de toujours utiliser la chaîne complète de noms. Ils sont "inclus" dans l'intellisemce.

De mémoire uniquement
Code:

1 2 3 4 Dim ApplicationExcel As New Microsoft.Office.Interop Excel.Application() Dim ClasseurExcel As Microsoft.Office.Interop.excel.Workbook Dim FeuilleExcel As Microsoft.Office.Interop.excel.Worksheet Dim Ligne As Range as Microsoft.Office.Interop.excel.worksheet.range

Fuseau horaire GMT +2. Il est actuellement 03h40.

Partenaire : Hébergement Web