Discussion :

[DeFCrew]

Bonjour à toutes et à tous !!

Voilà, cela fait maintenant une bonne demi journée que je cherche (à priori mal, j'admet...) la façon d'effacer toutes les lignes vierges contenu dans une table qui elle même vient d'un import de fichier .xls.

Ce fichier ayant une taille variable, lors de l'import des données, je lui demande de balayer de A7 à T150. Pour être à peu près sûr qu'il n'y aura pas de données oubliés.

Code :

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

DoCmd.TransferSpreadsheet acImport, 8, "ApproGoss", "C:\fichier.xls", True, "A7:T150"

Mais le problème c'est que du coup, j'ai plein de lignes viergesdans ma table car ce tableau xls ne fait pas forcément 143 lignes de textes.

Je pense qu'il y a plusieurs possibilité soit :

- il existe une fonction qui permet de ne selectionné que le texte lors de l'import du fichier xls, soit
- il faut supprimer avec la fonction DELETE + la clause WHERE mais lorsque j'utilise cet methode Access m'envoye un jolie message d'erreur type

Sub ou Fonction inexistante

Si des avis éclairés pouvait éclairer le mien, merci par avance.


Et vive developpez.com et .net car sans toute la communauté je serai resté au stade de la programmation en QBasic !!! sisi sérieux !!

[veriecherie]

Bonjour DeFCrew,

Pour l'importation tu as une autre solution qui t'importera seulement les lignes remplies. Cette solution c'est aller dans l'onglet "macro", tu cliques sur "nouveau" et là tu as une nouvelle page qui s'ouvre. Dans la première case action tu mets "TransférerFeuilleCalcul" et tu renseignes en bas les propriétés. Les deux premières tu laisses comme c'est, la troisième c'est le nom de la table dans laquelle tu souhaites enregistrer tes données, la quatrième tu mets le chemin pour accéder à ton fichier Excel à importer (moi en général je crée un dossier Transfert dans C:\ et donc mon chemin pour accéder au fichier à importer devient C:\Transfert\nomFichierAImporter.xls) et ensuite la propriété suivante tu dis si ton fichier Excel contient les champs d'en-tête ou pas et la dernière propriété tu la laisses telle quelle.
Ensuite il te reste plus qu'a lancer cette macro depuis ton code vba de cette façon :

Code :

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

1
2
3
 
stDocName = "import"
DoCmd.RunMacro stDocName

Voilà, j'espère que j'ai été claire dans mes explications, mais je suis dispo pour plus de détails si tu le souhaites.

A+

[DeFCrew]

Bonjour veriecherie, merci de t'être intéressé à mon problème.

Saurait-tu par hasard si dans la macro il est possible de définir les en tête à partir de A7 dans le fichier xls et non pas A1 et de ne pas importer les données avant A7 ?

Et est-il possible dans la macro de prendre le fichier xls le plus récent ?
Car j'en ai au moins une cinquantaine plus un nouveau toutes les semaines ; le tout dans un même dossier.

Exemple :

dans le dossier "Transfer" il y a 52 fichier xls.
Lorsque je clique sur un bouton dans access celui-ci importe le fichier xls le plus récent dans une table en important les données qu'à partir de A7 à T7 jusqu'a ce qu'il n'y est plus de données a transférer pour éviter les lignes blanches

[veriecherie]

Oula, tu compliques tout d'un coup

Saurait-tu par hasard si dans la macro il est possible de définir les en tête à partir de A7 dans le fichier xls et non pas A1 et de ne pas importer les données avant A7 ?

oui tu peux lui dire de n'importer que de A7 à T7, c'est la dernière propriété à renseigner. Je t'ai mis un aperçu écran avec les propriétés remplies.

Et est-il possible dans la macro de prendre le fichier xls le plus récent ?

Là je dirai que c'est à toi de nommer ton fichier le plus récent d'une autre façon que les autres. Je ne pense pas qu'il soit possible de faire automatiquement l'import d'un fichier en regardant si c'est le plus récent.

Voilà en espérant que ça t'avancera...
A+

[DeFCrew]

Oui j'ai compliqué d'un coup pour voir si tu suivait

(joke) Bref, merci encore de ta réponse. J'avais completement oublié que les macros existait et que ça pouvait facilité la tâche mais il me semble avoir lu quelque part que c'est pas le best pour la programmation avec Access et si tu pense qu'il n'est pas possible de prendre le fichier le plus récent et qu'il faut le renommer à chaque fois... c'est pas vraiment ce que je veux (à un poil de cul près mais bon...)

J'ai entre temps trouvé la parade, pour n'afficher que les lignes pleines dans une zone de liste avec une clause WHERE len(commande) = 10 car tout les chiffre dans la colonne "commande" font 10 chiffre de long.
Du coup sa n'affiche que les lignes ou il y a quelque chose d'écrit.

Un grand merci à toi encore car je vais surement utilisé ta technique pour d'autre programme

[veriecherie]

Je ne savais pas que c'était pas top ce genre de macro avec Access, mais bon pour le moment chez moi ça marche pas trop mal. Mais je note ça dans ma petite tête histoire de ne pas m'en servir tous les 4 matins Mais c'est quand même bien pratique de temps à autre...

Et ta parade est pas mal effectivement, tu obtiens le résultat souhaité c'est le principal !

A+