Discussion :

[Dralnor]

Bonjour/Bonsoir

dans le cadre de mon travail, j'ai due apprendre à coder sur access afin de pouvoir tirer des stat d'une boite mail. Cela impliqué chaque dossiers, sous-dossiers, sous-sous-dossiers etc...
Débutant complet, ça n'a pas été simple mais j'y suis arrivé Cependant, niveau souplesse, c'est pas ça....

En simple ça donne (car je n'ai pas l'autorisation hiérarchique pour communiquer le code :s):
Création d'une table dans access "lier à la source de données" pour chaque dossiers et sous-dossiers etc... (ex: table1 pour dossier1, table2 pour sous-dossier2 etc...)
Ensuite, en vba: une variable "

Code :

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

note(k) as string

" pour chaque tables (en dur donc note(1)=table1 note(2)=table2 etc.... bonjour la souplesse)
toujours en vba: set rec =

Code :

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

 CurrentDb.OpenRecordset(note(k), dbOpenSnapshot)

et mon traitement pour chaque valeur de k

Donc je me demande s'il y a moyen pour rendre cela plus souple car, si un dossier est renommé/déplacé/supprimé dans ma boite mail, alors le code passe hs et je dois refaire la table correspondante au dossier pour qu'il fonctionne à nouveau

[loufab]

Bonjour,

Pourquoi ne pas boucler sur la liste des tables ?

Code :

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

1
2
3
4
5
6
dim tbl as tabledef
 
for each tbl in currentdb.tabledefs
     CurrentDb.OpenRecordset(tbl.name, dbOpenSnapshot)
     ...
next

Ce code ne peut être utilisé en l'état, c'est juste pour donner une idée de la syntaxe à utiliser. Il manque les contrôles sur le type de table (système ou utilisateur)...

Cordialement,

[Dralnor]

Bonjour Loufab,

merci pour l’intérêt que tu porte à ma demande

Je vais tester cela le plus rapidement possible (effectivement, en l'état, il essaye de me traiter la table MySysAccessStorage notamment)n je regarde comment gérer les contrôles et reviens par ici au plus vite.

[loufab]

Dans la faq tu as tout ce qu'il faut pour ce genre de chose.

[Dralnor]

ça fonctionne parfaitement merci !
Pour la faq, j'essaye d'y regarder à chaque fois, mais c'est parfois un peu compliqué quand on sait pas vraiment ce qu'on cherche ^^"

Pitite question (et je cherche dans la faq en parallèle ) : peut on encore assouplir le système en n'ayant pas des tables rigides (tables défini en dur comme fait actuellement) mais plutôt soit en générant les tables au lancement de la macro (ce qui va certainement allongé la durée d’exécution) , ou alors en en ne créant pas de table mais en allant chercher directement les données sur outlook ? Ou une autre possibilité ?
edit: un collègue m'a parlé de requête SQL, j'avoue ne rien y connaitre donc je sais pas si ça serait adapté

[loufab]

Bonjour,

Au lieu de faire de l'import tu peux lier les tables.

Utilise le ruban Données Externes, Importer et lier, Plus, Dossier Outlook, Lier la source (3ème option), Ok
Sélectionne ton compte mail et le dossier concerné, Suivant, Nomme-le. Terminer.

Ton dossier est à présent une table liée, comme une table classique mais représentant en temps réel les données de ton mail.

Ton code n'a pas besoin d'être modifié. Sauf peut être ton tableau de nom de table.

Cordialement,

[Dralnor]

Bonjour Loufab,

c'est actuellement la méthode que j'utilise effectivement, du coup le problème que je rencontre c’est que si un dossier est renommé/déplacé/supprimé alors la table ne fonctionne plus, et par extension mon code

[loufab]

A part détecter le problème et proposer de refaire l'attache il n'y a pas beaucoup de solution.

Pour refaire l'attache tu peux paramétrer la propriété connect de la table.

Code :

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

currentdb.tabledefs("nom de la table").connect

C'est une chaine facilement modifiable.