Discussion :

[as1211]

Bonjour,

Je souhaite importer un fichier excel dans access à l'aide de VBA (c'est ok, mission réussie )
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

[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+

[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...

[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+

[Invité]

Bonjour,
Test comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[as1211]

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.

[Invité]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[marot_r]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Delete * From temporaire Where F1 IS NULL;"

A+

[as1211]

Merci rdurupt et marot_r !
Les deux solutions fonctionnent parfaitement!