Importer fichier excel à partir de la 3è ligne dans access avec VBA

Version imprimable

25/05/2016, 15h13
as1211

Importer fichier excel à partir de la 3è ligne dans access avec VBA

Bonjour,

Je souhaite importer un fichier excel dans access à l'aide de VBA (c'est ok, mission réussie :yaisse2:)
Par contre, je souhaite importer ce fichier qu'à partir de la 3è ligne (donc les 2 premières lignes ne doivent pas être importées).

Comment puis-je procéder ?

Faut-il tout importer et supprimer ensuite les 2 premières lignes ou peut-on importer le fichier à partir de la ligne 3 ? Et comment faire ?

Merci
25/05/2016, 15h43
marot_r

Bonjour.

En fait il n'y a pas réponse simple à cette demande.

Si tu le peux, la solution la plus simple est de supprimer les lignes inutiles avant l'importation.
Sinon, tu peux aussi définir une plage de données (zone nommée) et importer cette plage de données.
Tu peux aussi enregistrer ton fichier au format CSV puis le lire en VBA et ignorer les 2 lignes inutiles.
Enfin tu peux copier tes données, cellule par cellule.

Toutes ces options peuvent être automatiser en utilisant le VBA de Excel.

Laquelle t'intéresse ?

A+
25/05/2016, 15h48
as1211

Bonjour Marot_r,

Merci pour ta réponse.

Je ne peux pas modifier le fichier excel avant l'importation.
Ta solution csv n'est pas possible car je dois me baser absolument sur des fichiers xlsx.

Comme je l'ai déjà importé, il me paraît donc plus "simple" de supprimer les lignes directement dans la table access mais je ne trouve pas le code VBA qui le permet...
25/05/2016, 15h58
marot_r

Ok, quel est le critère qui te permet de savoir que ces lignes doivent être supprimées ?

À priori, il serait imprudent de se fier à leur position dans la table car rien ne garanti que les 2 premières lignes seront les 2 premiers enregistrements.

A+

Bonjour,
Test comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
cSQL = "SELECT [Id_pays], [Nom_pays],[Resultat] FROM  [Resultats$] in 'c:\MyRepertoire\MyFichier.xlsx' 'excel 8.0;HDR=Yes;IMEX=1;' ;"
 
Set Rs=CurrentDb.Openrecordset(cSQL)
 
Set rsAccess= CurrentDb.openrecordset("select * from MyTable")
Dim Id as integer
 
While rs.eof=false
If Id>2 then
   with rsAccess
        .addnew
         .fields("Id_pays").value=Rs.fields("Id_pays").value
         .fields("Nom_pays").value=Rs.fields("Nom_pays").value
         .fields("Resultat").value=Rs.fields("Resultat").value
         .update
   end with
End if
Rs.Movenext
Id=Id + 1
Wend

Mais on peut également définir un plage de cellules dans la requête et là c'est encore plus simple!

27/05/2016, 17h36
as1211

Citation:

Envoyé par marot_r

Ok, quel est le critère qui te permet de savoir que ces lignes doivent être supprimées ?

À priori, il serait imprudent de se fier à leur position dans la table car rien ne garanti que les 2 premières lignes seront les 2 premiers enregistrements.

A+

Bonjour Marot_r,

Les lignes à supprimer sont celles qui ont une case vide dans ma colonne F1.
J'ai essayé de faire : CurrentDb.Execute "Delete * From temporaire Where F1 = NULL;"
Mais cela ne fonctionne pas.

Merci pour votre aide.

Bonsoir,

Code:

1
2
     cSQL = "INSERT INTO test ( [champ1], [champ2], [champ3], [champ4], [champ5], [champ6],[champ7] ,[champ8] ,[champ9]  ) SELECT F1, F2, F3, F4, F5, F6, F7, F8, F9 FROM  [" & Feuille & "$] in '" & Dossier & "\" & Fichier & "' 'excel 8.0;HDR=No;IMEX=1;' Where [F1] Is not null;"
CurrentDb.Execute cSQL

30/05/2016, 18h21
marot_r

Bonjour, au cas où la solution de rdurupt ne te conviendait pas :

Code:

"Delete * From temporaire Where F1 IS NULL;"

A+
03/06/2016, 14h50
as1211

Merci rdurupt et marot_r !
Les deux solutions fonctionnent parfaitement! :P