Le grenier Access

Auto-complétion

Hervé Inisan — Wed, 14 Dec 2011 10:13:00 +0100

Le saviez-vous ?

Lorsque vous tapez du code VBA, Visual Basic Editor vous suggère automatiquement les paramètres de procédures ou fonctions, les valeurs d'énumérations, etc.

Saviez-vous qu'on peut aussi utiliser l'auto-complétion manuellement ? Exemple : vous devez taper le bout de code suivant, qui fait appel à une variable... très longue :

Sub BoutDeCode()

    Dim strUneVariableTresLongue As String

    strUneVariableTresLongue = "Bonjour"

    MsgBox strUneVariableTresLongue, vbExclamation

End Sub

Sur la ligne de déclaration (Dim), vous ne pouvez pas gagner beaucoup de temps, parce qu'il faut bien nommer la variable au départ.

Mais à partir de la ligne suivante, vous pouvez taper seulement strU puis la combinaison Ctrl + Espace ; la variable s'écrira automatiquement. Pratique, non ?

La majuscule n'est même pas utile (tapez seulement stru puis Ctrl + Espace, pour voir). Et cela fonctionne pour les variables, les noms de procédures ou de fonctions, les instructions VB, etc. Lorsqu'il y a plusieurs choix possibles (plusieurs variables ou instructions démarrant par les lettres tapées), VBE affiche une liste déroulante pour vous aider à choisir.

Liste déroulante limitée à 255 caractères

Hervé Inisan — Tue, 13 Dec 2011 20:34:00 +0100

J'extrais des valeurs Texte d'une liste déroulante, par exemple par la méthode Column(x). Mais lorsque certains textes sont longs, Access n'affiche que 255 caractères. Comment faire ?

Exemple

Effectivement, les textes des listes déroulantes sont limités à 255 caractères, même si le champ de table est un Mémo qui contiendrait 2000 caractères.

Dans l'exemple ci-dessous, la liste déroulante extrait des informations de la table tbl Environnement dont il était question dans l'article Nom d'utilisateur et autres informations. Pour mémoire, cette table contient 3 champs : Id (NuméroAuto), Variable (Texte) et Valeur (Mémo). La liste a donc pour source la requête suivante :

SELECT Id, Variable, Valeur

FROM [tbl Environnement] 

ORDER BY Variable;

La liste s'appelle cmbEnvironnement.
La zone de texte de gauche ("Valeur extraite de la liste") a pour source cette formule :
=[cmbEnvironnement].[Column](2)
comme vous avez pu le voir dans ces articles.

Il se trouve que la variable d'environnement PATH sélectionnée ici fait 432 caractères. Mais la valeur extraite de la liste par la fonction Column() n'en renvoie que 255.

Une solution

La solution pour palier ce problème consiste à extraire les données par un autre moyen que la liste, par exemple directement de la table. Voici la source de la zone de droite :

=RechDom("[Valeur]";"tbl Environnement";"Id = " & [cmbEnvironnement])

Nous utilisons la fonction RechDom() - ou DLookup() en anglais, qui effectue une recherche dans une table. La fonction est traitée en détail dans cet article. Cette fonction nous sert à chercher...

le champ Valeur...
dans la table tbl Environnement...
sur la ligne dont la clef Id est égale au choix fait dans la liste cmbEnvironnement.

Et cette fois, on extrait bien tous les caractères !

Petit détail cosmétique

La zone de droite affiche la mention #Erreur lorsque le formulaire s'ouvre et qu'aucun choix n'est encore fait dans la liste déroulante cmbEnvironnement. La raison est que, dans ce cas, le filtre de la fonction RechDom() devient : "Id=" (rien après le signe "="). Ajoutez un traitement de ce vide par la fonction Nz(), et ce sera réglé :

=RechDom("[Valeur]";"tbl Environnement";"Id = " & Nz([cmbEnvironnement];0))

Ah, j'oubliais...

Le nombre de caractères est calculé par la fonction Len() - ou NbCar() en français. Donc si les 2 zones d'affichage s'appellent txtValeur1 et txtValeur2, les 2 tailles se calculent par :

=Len(txtValeur1)
=Len(txtValeur2)

Imbriquer les procédures et les fonctions

Hervé Inisan — Mon, 12 Dec 2011 16:47:00 +0100

Le saviez-vous ?

(pas tout le monde, si j'en crois un message récent sur le blog)

En VBA, il n'est pas possible (et pas utile, en fait) d'imbriquer les blocs de procédures et de fonctions. Vous pouvez seulement les disposer les uns à la suite des autres. Donc ceci est correct :

Sub Procedure1()

' ...

End Sub

Sub Procedure2()

' ...

End Sub

Function Fonction1()

' ...

End Function

Par contre, ça c'est interdit :

Sub Procedure1()

  Sub Procedure2()

  ' ...

  End Sub

  Function Fonction1()

  ' ...

  End Function

End Sub

self-access.com référencé par Microsoft !

Hervé Inisan — Fri, 09 Dec 2011 10:23:00 +0100

Tout est dans le titre : les sites www.self-access.com et grenier.self-access.com sont désormais référencés par le Centre de Solutions Access de Microsoft.

D'autres ressources Access (et autres) sont également présentées là-bas, pensez à y faire un tour ! :-)

Lecture de flux RSS - Episode 5

Hervé Inisan — Thu, 08 Dec 2011 19:33:00 +0100

Suite de la saga "Lecture de flux RSS" : maintenant que les flux s'affichent correctement dans la fenêtre Exécution, nous allons préparer leur stockage dans la base de données. Cet article traite principalement de la mise en place des tables, la mise à jour des flux sera ajoutée ultérieurement.

Si vous avez manqué le début...

La saga "Lecture de flux RSS" a commencé par ces articles :

Mise en place des tables

Notre système repose sur 2 tables :

une table des flux, qui stocke principalement l'URL et le titre en clair de chaque flux ;
une table des articles, qui stocke l'URL et le titre d'un article de flux.

Il y a une relation 1:plusieurs entre les flux et leurs articles (1 flux / plusieurs articles).

Structure de la table des flux

Numéro Flux : NuméroAuto (clef primaire)
URL : Texte, 255 caractères
Titre : Texte, 255 caractères

Structure de la table des articles

Numéro Article : NuméroAuto (clef primaire)
Numéro Flux : Numérique / Entier long (clef étrangère reliée à la clef primaire de la table des flux)
Indice : Numérique / Entier long
Titre Article : Texte, 255 caractères
URL Article : Texte, 255 caractères

Le formulaire

Les flux doivent être ajoutés manuellement dans la table... des flux. Pour faciliter la saisie, créez un formulaire basé sur cette table. Le nôtre est en mode Tabulaire (ou "formulaires continus").

Au prochain épisode, nous verrons comment alimenter la table des articles automatiquement.

Nom d'utilisateur et autres informations utiles : le retour !

Hervé Inisan — Wed, 07 Dec 2011 12:04:00 +0100

Suite à l'article Nom d'utilisateur et autres informations utiles, un lecteur du blog a souhaité savoir comment stocker les variables d'environnement dans une table, plutôt que de les afficher à l'écran. Voici la solution.

Mise en place

Créez une table tbl Environnement, avec 3 champs :

Id (NuméroAuto, clef primaire)
Un numéro attribué automatiquement pour différencier les valeurs (inutile dans le scénario d'aujourd'hui).
Variable (Texte / 255 caractères)
Colonne pour stocker le nom de la variable d'environnement (USERNAME, PATH, etc.).
Valeur (Mémo)
Colonne pour stocker la valeur de la variable d'environnement. Certaines variables d'environnement (comme PATH) peuvent être plutôt longues, d'où le type Mémo.

Le code

Voici le code, à recopier comme d'habitude dans un module standard de votre base de données :

' ---

' VARIABLE D'ENVIRONNEMENT - TABLE

' ---

Function VariablesEnvironnementTable()

    Dim varEnv As Variant

    Dim v As Variant

    Dim rst As DAO.Recordset

    ' On vide au préalable la table

    CurrentDb.Execute "DELETE * FROM [tbl Environnement];"

    ' On ouvre un Recordset sur la table

    Set rst = CurrentDb.OpenRecordset("tbl Environnement", dbOpenDynaset)

    ' Liste des variables d'environnement

    varEnv = Array("ALLUSERSPROFILE", "APPDATA", _

      "COMPUTERNAME", "HOMEDRIVE", "HOMEPATH", _

      "LOGONSERVER", "NUMBER_OF_PROCESSORS", "OS", _

      "PATH", "PATHEXT", "PROCESSOR_ARCHITECTURE", _

      "PROCESSOR_IDENTIFIER", "PROCESSOR_LEVEL", _

      "PROCESSOR_REVISION", "PROMPT", _

      "SYSTEMDRIVE", "SYSTEMROOT", "TEMP", "TMP", _

      "USERDOMAIN", "USERNAME", "USERPROFILE")

    ' Lecture de toutes les valeurs

    For Each v In varEnv

      ' Stockage de la valeur

      rst.AddNew

      rst("Variable") = v

      rst("Valeur") = Environ(v)

      rst.Update

    Next

    ' On ferme !

    rst.Close

    Set rst = Nothing

    ' Affichage final

    MsgBox "Opération terminée !", vbInformation

End Function

Important

A savoir...

Notre bout de code vide systématiquement la table avant de l'alimenter, pour éviter de "doublonner" les variables d'environnement.

Banque d'images : ouvrir l'aperçu Windows

Hervé Inisan — Tue, 06 Dec 2011 11:40:00 +0100

Une question posée par un lecteur du blog, dans la saga Banque d'images : comment déclencher, à partir d'Access, l'aperçu Windows ?

Le principe

En fait, pour être plus précis, on ne va pas nécessairement déclencher l'aperçu Windows, on va plutôt "ouvrir l'application associée aux images". En d'autres termes, si votre Windows est d'origine, ce sera bien l'aperçu qui s'ouvrira. Mais si vous avez associé un autre logiciel aux extensions de type JPG, par exemple, ce sera cette application qui s'ouvrira.

On va utiliser pour ça la commande ShellExec (et sa base ShellExecute), qui a été présentée dans l'article Ouvrir ou imprimer un fichier quelconque à partir de son nom. Le code qui suit utilise aussi la fonction AddBackslash(), que vous avez déjà dû recopier dans un module standard de votre base !

Le code

Ajoutez un bouton sur votre formulaire d'images, sans assistant (le mien s'appelle btnApercuWindows).
Faites apparaître les propriétés du bouton, onglet Evénement.
Choisissez Propriété événementielle pour l'événement Sur clic.
Cliquez sur les points de suspension à droite de l'événement, et recopiez le code suivant :

' ---

' APERCU WINDOWS

' ---

Private Sub btnApercuWindows_Click()

    Dim strChemin As String

    strChemin = """" & AddBackslash(Me.txtRepBase) _

        & Me.Nom_Fichier & """"

    ShellExec strChemin, "open", vbNormalFocus

End Sub

Banque d'images : ouvrir le dossier des images

Hervé Inisan — Mon, 05 Dec 2011 11:22:00 +0100

Un nouvel épisode de notre saga Banque d'images : comment ouvrir, à partir d'Access, le dossier qui contient les images d'origine ?

Le principe

En fait, il suffit d'adapter le code traité dans l'article Ouvrir un dossier Windows, qui repose sur l'instruction Shell (vous pouvez consulter, en passant, tous les autres articles qui exploitent cette instruction !).

Le code

Ajoutez un bouton sur votre formulaire d'images, sans assistant (le mien s'appelle btnOuvrirDossier).
Faites apparaître les propriétés du bouton, onglet Evénement.
Choisissez Propriété événementielle pour l'événement Sur clic.
Cliquez sur les points de suspension à droite de l'événement, et recopiez le code suivant :

' ---

' OUVERTURE DU DOSSIER IMAGES

' ---

Private Sub btnOuvrirDossier_Click()

  If IsNull(Me.txtRepBase) Then

    MsgBox "Le dossier n'est pas renseigné !", _

      vbExclamation

    Exit Sub

  End If

  Shell "explorer """ & Me.txtRepBase & """", vbNormalFocus

End Sub

Evernote et VBA - Episode 5

Hervé Inisan — Fri, 02 Dec 2011 08:34:00 +0100

Déjà la fin de notre semaine Evernote... Pour clôturer cette série d'articles, il est temps de revenir un peu à Access ! Dans cet article, il sera question de transmettre le contenu d'une table sous forme d'evernote.

Résumé des épisodes précédents

Tout ce qui suit dépend des articles précédents. Pensez à les consulter si vous passez pour la première fois par ici :

Le principe

On dispose d'une table simple, avec des personnes (Nom, Prénom, Email). L'objectif est de lister toutes les personnes de cette table dans une evernote.

Le code

Je suppose que votre base de données contient la classe EvernoteClient qui a été décrite dans les précédents épisodes de la série. Aucun rajout n'est nécessaire sur cette classe, nous pouvons l'exploiter en l'état.

Créez un module standard dans votre base de données.
Recopiez-y la procédure suivante, puis exécutez-la. Vous devriez obtenir ceci dans le classeur par défaut de Evernote :

'---

' ENVOI DE DONNEES ACCESS DANS EVERNOTE

' ---

'

Sub Access2Evernote()

  Dim rst As DAO.Recordset

  Dim strNote As String

  Dim ec As EvernoteClient

  ' Début de la note

  strNote = "<h1>Liste des personnes</h1>" _

    & "Voici la liste des <b>personnes à inviter</b> !" _

    & "<ul>"

  ' Obtenir la liste des personnes à partir

  ' d'une table Access

  Set rst = CurrentDb.OpenRecordset("tbl Destinataires", dbOpenSnapshot)

  While Not rst.EOF

    ' Corps de la note

    strNote = strNote _

      & StringFormat("<li>{0} {1} - <a href="http://grenier.self-access.com/?post/2011/12/02/"{2}"">{3}</a></li>", _

        rst("Nom"), _

        rst("Prénom"), _

        rst("Email"), _

        GetHyperlink(rst("Email"), mailto))

    ' Personne suivante

    rst.MoveNext

  Wend

  ' Fin de la note

  strNote = strNote & "</ul>"

  ' Une instance du client EvernoteNote

  Set ec = New EvernoteClient

  ' Identifiants

  ec.Utilisateur = EN_UTILISATEUR

  ec.MotDePasse = EN_MOTDEPASSE

  ' Création de la note dans le

  ' classeur par défaut

  If ec.CreerNote("Access Personnes", strNote) Then

    MsgBox "Note créée !", vbInformation

  Else

    MsgBox "Impossible de créer la note !", vbExclamation

  End If

  ' On ferme !

  rst.Close

  Set rst = Nothing

  Set ec = Nothing

End Sub

Important

L'exemple de code ci-dessus fait appel à la bibliothèque DAO (Microsoft DAO Object Library). Cette bibliothèque doit être associée à votre base de données pour que le programme fonctionne.

Pour plus de détails sur les références, consultez cette page.

Le code utilise également des fonctions VBA traitées dans des articles précédents : StringFormat() pour formater les chaînes plus clairement, et GetHyperlink() pour extraire les e-mails bruts d'un champ Lien hypertexte.

Explications

Voici les points importants à noter dans la procédure d'exemple :

On utilise un Recordset DAO pour parcourir toute la table et obtenir les nom, prénom et e-mail de chaque personne. Ça, c'est pour la partie Access.
Le corps de la note est créé au format ENML, par concaténation de portions de code HTML. Si vous avez suivi l'article précédent, on crée seulement le corps de la note (la classe EvernoteClient rajoute l'en-tête et le pied de note automatiquement).

Le titre de la note est créé comme en HTML, par les balises <h1></h1>.
Le reste de la note est une liste de personnes (balises <ul></ul>)
Chaque personne est un élément de liste (balises <li></li>).
Chaque email est un lien mailto: (balise <a href="http://grenier.self-access.com/?post/2011/12/02/..."></a>).

Ce qui équivaut à générer le corps de note ci-dessous :

<h1>Liste des personnes</h1>

<ul>

  <li>

    Zeblouze Agathe - 

    <a href="http://grenier.self-access.com/?post/2011/12/02/mailto:agathe.zeblouze@free.fr">

      agathe.zeblouze@free.fr

    </a>

  </li>

  <li>...</li>

</ul>

Evernote et VBA - Episode 4

Hervé Inisan — Thu, 01 Dec 2011 09:21:00 +0100

Dans le dernier épisode, il était question de créer un classeur Evernote à partir de VBA. Suite logique, il ne nous reste plus qu'à inscrire une note dans ce classeur... ou dans n'importe quel classeur, d'ailleurs !.

Résumé des épisodes précédents

Tout ce qui suit dépend des articles précédents. Pensez à les consulter si vous passez pour la première fois par ici :

Le code

Reprenez une nouvelle fois le module de classe EvernoteClient des articles précédents. Ajoutez-y tout ceci :

' ---

' EVERNOTE - CREATION D'UNE NOTE

' ---

'

Function CreerNote( _

  ByVal strTitre As String, _

  ByVal strContenu As String, _

  Optional ByVal strClasseur As String = "") _

  As Boolean

  ' Quelques variables

  Dim nb As enapiLib.Notebook

  Dim nt As enapiLib.note

  ' Instance d'Evernote

  If Not Me.Connecter() Then

      CreerNote = False

      Exit Function

  End If

  ' Obtenir le classeur, s'il a été spécifié

  If strClasseur <> "" Then

      Set nb = Me.ExtraireClasseur(strClasseur)

  End If

  If nb Is Nothing Then

      Set nb = Me.Evernote.DefaultNotebook

  End If

  ' Encapsuler le contenu de la note

  ' par les balises XML nécessaires

  strContenu = EnteteNote() & strContenu & PiedNote()

  ' On crée la note

  Set nt = Me.Evernote.CreateNote(strTitre, strContenu)

  nt.Notebook = nb

  CreerNote = (Err.Number = 0)

  ' Un peu de ménage...

  Set nt = Nothing

  Set nb = Nothing

  Exit Function

NouvelleNoteErr:

  CreerNote = False

  Exit Function

End Function

' ---

' EN-TETE DE NOTE

' ---

'

Private Function EnteteNote() As String

  EnteteNote = "<?xml version=""1.0"" encoding=""UTF-8""?>" _

    & "<!DOCTYPE en-note SYSTEM ""http://xml.evernote.com/pub/enml2.dtd"">" _

    & "<en-note>"

End Function

' ---

' PIED DE NOTE

' ---

'

Private Function PiedNote() As String

  PiedNote = "</en-note>"

End Function

Explications

La méthode CreerNote() doit recevoir 2 paramètres obligatoires, et un paramètre optionnel :

Le premier paramètre est le titre de la note.
Le second paramètre est le corps de la note (voir plus loin).
Le troisième paramètre est le nom du classeur dans lequel créer la note. Si ce paramètre est omis, la note est créée dans le classeur Evernote par défaut.

Format des notes

Une "evernote" est créée dans un format XML qui doit respecter un certain nombre de balises. Ces balises sont un sous-ensemble des balises HTML, appelé "ENML" (EverNote Markup Language). La définition du format est disponible sous forme de DTD (Document Type Definition), à cette adresse (il vous faut un éditeur de texte pour lire cette DTD).

Comme il s'agit de XML, l'ensemble de la note doit démarrer par en-tête précis et se terminer par un pied précis. Pour simplifier la gestion, ces 2 parties sont gérées par des fonctions dédiées EnteteNote() et PiedNote(). Du coup, lorsque vous créerez une note à partir d'Access, vous n'aurez plus à fournir l'en-tête et le pied de note ; il suffira de renseigner le corps de la note.

Attention

Si le corps de la note ne respecte pas le format ENML, la note ne pourra pas être stockée.

Tester le code

Vous savez que les modules de classe ne peuvent pas être testés directement : il faut un bloc de code, dans un module standard, pour les "mettre en scène". Par conséquent, créez (ou reprenez) un module standard, et recopiez-y ce bout de code, qui crée 2 notes, l'une dans le classeur par défaut, l'autre dans un classeur nommé :

' ---

' EVERNOTE - CREATION DE NOTES

' ---

'

Sub TestEvernoteClient()

  Dim ec As EvernoteClient

  ' Une instance du client EvernoteNote

  Set ec = New EvernoteClient

  ' Identifiants

  ec.Utilisateur = EN_UTILISATEUR

  ec.MotDePasse = EN_MOTDEPASSE

  ' Création d'une note dans le classeur par défaut

  ec.CreerNote "Evernote, Hello World!", _

    " Ceci est ma première evernote postée par Access..."

  ' Création d'une note dans un classeur précis

  ec.CreerNote "Evernote, note 2", _

    "Et hop, une deuxième note !", _

    "SelfAccess")

    ' On ferme !

    Set ec = Nothing

End Sub

Le format ENML reprend un certain nombre de balises HTML. Si vous connaissez la mise en page Web, vous ne serez pas dépaysé ! Par exemple, pour obtenir une note avec du gras et de l'italique, vous écrirez :

ec.CreerNote "Evernote, note 3, _

  "Voici une <b>evernote</b> avec de <i>l'italique</i>." 

Evernote et VBA - Episode 3

Hervé Inisan — Wed, 30 Nov 2011 22:21:00 +0100

Suite de la semaine Evernote ! Dans les épisodes précédents, nous avons d'abord testé Evernote en direct, puis mis en place une classe VBA qui encapsule l'accès à Evernote. Aujourd'hui, nous allons enrichir cette classe pour permettre la création de classeurs dans Evernote.

Si vous avez manqué le début

Tout ce qui suit dépend des articles précédents. Pensez à les consulter si vous passez pour la première fois par ici :

Le code

Reprenez le module de classe créé dans l'article Evernote et VBA - Episode 2, et ajoutez-y le bloc de code suivant, par exemple sous la fonction Connecter() :

' ---

' EVERNOTE - CREATION D'UN CLASSEUR

' ---

'

Function CreerClasseur( _

  ByVal strNomClasseur As String, _

  ByVal ntTypeClasseur As enapiLib.NotebookType_t) _

  As Boolean

  ' Quelques variables

  Dim nb As enapiLib.Notebook

  ' Instance d'Evernote

  If Not Me.Connecter() Then

      CreerClasseur = False

      Exit Function

  End If

  ' Classeur

  On Error Resume Next

  Set nb = Me.Evernote.CreateNotebook( _

      ntTypeClasseur, _

      strNomClasseur)

  CreerClasseur = (Err.Number = 0)

  ' Un peu de ménage...

  Set nb = Nothing

End Function

' ---

' OBTENIR UN CLASSEUR PAR SON NOM

' ---

'

' Note : On suppose que la connexion est établie

'

Function ExtraireClasseur( _

  ByVal strClasseur As String) _

  As enapiLib.Notebook

  ' Le classeur

  Dim nb As enapiLib.Notebook

  ' On parcourt les classeurs

  ' jusqu'à trouver une concordance

  ' sur le nom

  For Each nb In Me.Evernote.Notebooks

    If LCase(nb.Name) = LCase(strClasseur) Then

      Set ExtraireClasseur = nb

        Exit Function

    End If

  Next

  Set ExtraireClasseur = Nothing

End Function

Globalement, la fonction CreerClasseur() encapsule la méthode Evernote.CreateNotebook().
Vous devez lui fournir :

le nom du classeur à créer
le type de classeur ; dans Evernote, un classeur peut être synchronisé dans le cloud (SynchronizedNotebook) ou seulement stocké sur votre ordinateur (LocalNotebook).

La fonction CreerClasseur() renvoie True si la création s'est bien effectuée. Sinon, elle renvoie... devinez ! :-)

Une deuxième fonction, ExtraireClasseur() permet de récupérer une instance de classeur à partir de son nom. Elle ne sert pas pour l'instant, mais elle sera utilisée dans les prochains articles.

Tester !

Pour tester tout ça, recopiez le code qui suit dans un module standard, et exécutez-le. Vous devriez obtenir 2 nouveaux classeurs dans votre Evernote (l'un local, l'autre synchronisé dans le nuage).

' ---

' EVERNOTE - CREATION DE CLASSEURS

' ---

'

Sub TestEvernoteClient()

  Dim ec As EvernoteClient

  ' Une instance du client EvernoteNote

  Set ec = New EvernoteClient

  ' Identifiants

  ec.Utilisateur = EN_UTILISATEUR

  ec.MotDePasse = EN_MOTDEPASSE

  ' Création d'un classeur local

  ec.CreerClasseur "Classeur LOCAL", LocalNotebook

  ' Création d'un classeur synchronisé

  ec.CreerClasseur "Classeur CLOUD", SynchronizedNotebook

  ' On ferme !

  Set ec = Nothing

End Sub

Information

Les classeurs créés par code n'apparaissent pas immédiatement dans l'application Evernote. Si vous avez un doute, quittez Evernote et rouvrez-le.

Evernote et VBA - Episode 2

Hervé Inisan — Tue, 29 Nov 2011 07:59:00 +0100

Semaine spéciale Evernote dans le Grenier self-access.com ! Cet article fait suite à celui intitulé Evernote et VBA - Episode 1 qui affichait des vos classeurs et vos notes Evernote.

Aujourd'hui, pas grand chose de spectaculaire : nous allons préparer une classe VBA pour "encapsuler" l'accès à l'application Evernote, et pour éviter de réécrire 30 fois les mêmes choses plus tard.

Objectif

L'objectif de notre classe EvernoteClient est pour l'instant :

De stocker (le temps d'une exécution) les identifiants de connexion à Evernote.
De gérer la connexion.

Le code

Dans votre base de données, créez un module de classe (attention : pas un module standard).
Recopiez-y le code suivant :

Option Compare Database

Option Explicit

' Variables de classe

Private m_strUtilisateur As String

Private m_strMotDePasse As String

Private m_enApp As enapiLib.Evernote

' ---

' CONSTRUCTEUR / DESTRUCTEUR

' ---

'

Private Sub Class_Initialize()

    Set m_enApp = Nothing

End Sub

Private Sub Class_Terminate()

    Set m_enApp = Nothing

End Sub

' ---

' PROPRIETES

' ---

Property Let Utilisateur(ByVal strUtilisateur As String)

    m_strUtilisateur = strUtilisateur

End Property

Property Get Utilisateur() As String

    Utilisateur = m_strUtilisateur

End Property

Property Let MotDePasse(ByVal strMotDePasse As String)

    m_strMotDePasse = strMotDePasse

End Property

Property Get MotDePasse() As String

    MotDePasse = m_strMotDePasse

End Property

Property Get Evernote() As enapiLib.Evernote

    Set Evernote = m_enApp

End Property

' ---

' METHODES

' ---

' ---

' CONNEXION

' ---

Function Connecter() As Boolean

    ' Est-on déjà connecté ?

    If Not (Me.Evernote Is Nothing) Then

        Connecter = True

        Exit Function

    End If

    ' Connexion

    On Error Resume Next

    Set m_enApp = New enapiLib.Evernote

    m_enApp.Login Me.Utilisateur, Me.MotDePasse, ""

    ' Valeur de retour

    Connecter = (Err.Number = 0)

End Function

Explications

Comme vous le voyez, cette classe ne fait pas encore grand chose :

La partie haute de la classe déclare les variables privées qui serviront à la gestion interne.
Vient ensuite une série de propriétés Get/Let qui permettent l'accès aux variables privées.
Et enfin, une méthode Connecter() pour ouvrir la connexion. La fonction renvoie True si tout s'est bien passé.

Tester

Voici une petite procédure (à recopier cette fois dans un module standard), pour tester si tout marche bien :

' ---

' TEST DE CONNEXION EVERNOTE

' ---

'

Sub TestEvernoteSimple()

    Dim ec As EvernoteClient

    ' Instance d'Evernote

    Set ec = New EvernoteClient

    ' Identifiants

    ec.Utilisateur = EN_UTILISATEUR

    ec.MotDePasse = EN_MOTDEPASSE

    ' On teste !

    MsgBox "Résultat de la connexion : " _

        & ec.Connecter(), vbInformation

    ' Et on libère... ;-)

    Set ec = Nothing

End Sub

Vous pouvez l'exécuter en plaçant le curseur à l'intérieur du bloc Sub / End Sub, puis en cliquant sur l'icône Exécuter Sub/UserForm. Vous devriez obtenir ceci :

Apuka patienter jusqu'au prochain épisode !

Evernote et VBA - Episode 1

Hervé Inisan — Mon, 28 Nov 2011 21:29:00 +0100

Vous connaissez certainement Evernote (www.evernote.com), le logiciel de prise de notes avec synchronisation dans le "nuage".

Evernote est à la fois une application de bureau (Windows et Mac), une application pour mobiles et tablettes (iPhone, Android, BlackBerry, Windows Phone) et une extension pour navigateur. Rien que ça ! Les notes que vous prenez sur n'importe lequel de ces supports sont transférées automatiquement sur le site Evernote, et peuvent être retrouvées sur les autres supports.

Dans cette nouvelle série, nous allons voir comment Access mais aussi Excel, Word... peuvent lire des données Evernote, ou envoyer des notes dans cette application.

Mise en place

Pour que votre connexion Evernote fonctionne, voici ce que vous devez préparer :

Créez-vous un compte sur le site Evernote, si ce n'est pas déjà le cas.
Installez le client Evernote (l'application de bureau) sur votre ordinateur. Celle-ci fournit les bibliothèques nécessaires pour interfacer efficacement Access et Evernote.
Dans votre base de données Access (ou dans votre classeur Excel, votre document Word), ouvrez Visual Basic Editor ([Alt] + [F11]).
Cliquez sur le menu Outils / Références.
Cochez la bibliothèque Evernote APi (enapi).

Les portions de VBA à venir font également appel à la fonction StringFormat() (voir cette page du blog).

Quelques classes à connaître

L'API Evernote (enapiLib) permet d'attaquer l'application du même nom à partir de VBA. Pour cela, elle expose un certain nombre d'objets dont :

L'application Evernote (Evernote)
Le classeur (Notebook)
La note (Note)

Et quelques collections utiles comme :

La liste des classeurs (Evernote.Notebooks)
La liste des notes d'un classeur donné (Notebook.Notes)

Exemple pratique

Dans ce premier exemple, nous allons tâcher d'afficher le contenu de votre base Evernote, à savoir : la liste des classeurs, le nombre de notes qui s'y trouvent, le titre et la date de création de chaque note (vous noterez le format curieux des dates pour l'instant).

Créez un module standard dans votre base de données.
Ajoutez les 2 constantes et la procédure qui suit dans le module (les constantes servent à centraliser vos identifiants Evernote).

Private Const EN_UTILISATEUR As String = "identifiant_evernote"

Private Const EN_MOTDEPASSE As String = "mot_de_passe_evernote"

' ---

' DETAIL DES CLASSEURS EVERNOTE

' ---

'

Sub EvernoteInfo()

    Dim en As enapiLib.Evernote

    Dim nb As enapiLib.Notebook

    Dim nt As enapiLib.note

    ' Instance d'Evernote

    Set en = New enapiLib.Evernote

    ' Connexion

    en.Login EN_UTILISATEUR, EN_MOTDEPASSE, ""

    ' Nombre de classeurs

    Debug.Print "Classeurs : " & en.Notebooks.Count

    ' Classeur par défaut

    Set nb = en.DefaultNotebook

    Debug.Print "Classeur par défaut : " & nb.Name

    ' Liste des classeurs

    For Each nb In en.Notebooks

        ' Infos sur le classeur

        Debug.Print StringFormat("{0} - {1} ({2})", _

            nb.Id, nb.Name, nb.Notes.Count)

        ' Détail des notes du classeur

        For Each nt In nb.Notes

            Debug.Print StringFormat("  > {0} - {1}", _

                nt.DateCreated, nt.Title)

        Next

    Next

    ' Un peu de ménage...

    Set en = Nothing

End Sub

Attention

Le mot de passe ne devrait pas être stocké "en dur" dans la base. Vous devriez le demander à l'utilisateur à chaque session Access.

Explications

La variable en pointe une instance de l'application Evernote. Les instructions principales sont appelées à partir de cette variable.
Parmi elles, la méthode Login sert à ouvrir la connexion (vous lui fournissez logiquement votre identifiant et votre mot de passe).
On affiche ensuite le nombre de classeurs disponibles (en.Notebooks.Count), et le nom du classeur par défaut (en.DefaultNotebook.Name).
Enfin, on parcourt par une boucle la collection des classeurs (en.Notebooks) pour afficher le code (ID), le nom (Name) et le nombre de notes (Notes.Count) de chaque classeur.
A l'intérieur de la boucle "Classeurs", une boucle "Notes" affiche la date de création (DateCreated) et le titre (Title) de chaque note.

Tester le code

Affichez la fenêtre Exécution (CTRL + G).
Placez le curseur dans la portion de code précédente.
Cliquez sur l'icône Exécuter Sub/UserForm, en haut de votre écran.
Exécutez la procédure, les résultats s'affichent dans la fenêtre Exécution.

Vérifier l'intersection de dates - Episode 2

Hervé Inisan — Fri, 25 Nov 2011 12:26:00 +0100

L'article Vérifier l'intersection de dates nous a permis de mettre en place une fonction VBA capable de vérifier si 2 créneaux de temps se chevauchent. Aujourd'hui, nous allons voir une application pratique de cette fonction, au travers d'un mini système de réservation.

Le principe

Dans ce scénario, vous gérez un hôtel de plusieurs chambres (un hôtel, quoi !). Les réservations sont stockées dans une table (dans le modèle complet, on peut imaginer d'autres tables : Clients, Chambres, etc.).

L'idée consiste à vérifier, avant d'ajouter de nouvelles données dans la table, qu'une nouvelle réservation ne rentre pas en conflit avec une réservation existante. On n'est pas le Carlton de Lille non plus ;-)

La table

On dispose d'une table qui contient les informations suivantes (et d'autres encore, inutiles ici) :

Numéro Réservation (un NuméroAuto)
Date Arrivée (Date/Heure)
Date Départ (Date/Heure)
Numéro Chambre (Numérique)
Numéro Client (Numérique)

Le formulaire

Le formulaire est constitué :

D'un champ txtDateArrivee, au format jj/mm/aaaa hh:nn
D'un champ txtDateDepart, au format jj/mm/aaaa hh:nn
D'une liste déroulante cmbChambre qui permet de choisir les numéros de chambres.
D'un bouton btnVerifier qui va s'occuper de la vérification des disponibilités pour la chambre choisie.

Le code VBA du formulaire

Faites apparaître les propriétés du bouton, onglet Événements.
Renseignez l'événement Sur clic sur Procédure événementielle.
Cliquez sur les points de suspension à droite de l'événement.
Recopiez le code VBA suivant :

Private Sub btnVerifier_Click()

  Dim strSQL As String

  Dim strCritere As String

  ' Vérifier que toutes les infos sont renseignées

  If IsNull(Me.txtDateArrivee) _

    Or IsNull(Me.txtDateDepart) _

    Or IsNull(Me.cmbChambre) Then

    MsgBox "Toutes les informations doivent être renseignées !", _

      vbExclamation

    Exit Sub

  End If

  ' Chaîne SQL de base

  strSQL = _

    "(DatesIntersect({0}, {1}, [Date Arrivée], [Date Départ]) = True)" _

    & " AND ([Numéro Chambre] = {2})"

  ' Critère final

  strCritere = StringFormat(strSQL, _

    DateHeureUS(Me.txtDateArrivee), _

    DateHeureUS(Me.txtDateDepart), _

    Me.cmbChambre)

  ' Si au moins 1 enregistrement répond au critère,

  ' la période est déjà réservée...

  If DCount("*", "tbl Réservations", strCritere) > 0 Then

    MsgBox "Une réservation existe déjà sur cette période !", _

      vbExclamation

  Else

    MsgBox "La période est disponible pour cette chambre.", _

      vbInformation

  End If

End Sub

Important

Le code VBA du bouton fait appel à 2 autres fonctions traitées sur ce blog : la fonction DateHeureUS() et la fonction StringFormat(). Consultez les articles Dates anglo-saxonnes et Marre des concaténations ? pour récupérer ces fonctions dans votre propre base de données.

Explications

Le bouton procède en 3 temps :

Dans un premier temps, on vérifie que les 3 informations ont bien été renseignées par l'utilisateur. Il est inutile de continuer si ce n'est pas le cas !
Ensuite, on construit le filtre SQL qui va chercher - pour la chambre concernée - une intersection entre les dates souhaitées et les dates de la table de réservations. J'ai décomposé la construction du critère en 2 chaînes pour que vous voyiez mieux le processus. C'est à ce niveau que la fonction StringFormat() nous épargne des concaténations laborieuses...
Enfin, on utilise la fonction DCount() pour compter les réservations répondant au critère (donc les réservations en conflit avec la période cherchée). On aurait pu aussi utiliser DLookup() pour trouver la première réservation en conflit (au lieu de compter toutes les réservations).

Vérifier l'intersection de dates - Episode 1

Hervé Inisan — Thu, 24 Nov 2011 10:56:00 +0100

J'ai une réservation de dates (du tant au tant). Comment vérifier si cette réservation tombe sur une période déjà réservée ? En d'autres termes : comment tester l'intersection de 2 fenêtres de temps ?

Le code

Comme ce type de vérification revient assez souvent, nous allons en faire une fonction VBA qui sera utilisable plus rapidement ensuite dans Access. La fonction recevra 4 dates :

les 2 dates du premier créneau temps (on suppose que date1 est inférieure ou égale à date2)
les 2 dates du deuxième créneau temps (la fenêtre de temps à comparer).

Pour mettre en place la fonction :

Démarrez Visual Basic Editor (touches ALT + F11).
Ouvrez un module standard, sinon cliquez sur le menu Insertion / Module, pour en créer un nouveau.
Recopiez dans le module le code suivant :

' ---

' INTERSECTION DE CRENEAUX DE DATES

' ---

' Entrée : dtDate1        <- Première date

'          dtDate2        <- Deuxième date (>= dtDate1)

'          dtFenetreDebut <- Départ du créneau temps

'          dtFenetreFin   <- Fin du créneau temps

' Sortie : True si les 2 créneaux se chevauchent.

'

Function DatesIntersect( _

    ByVal dtDate1 As Date, _

    ByVal dtDate2 As Date, _

    ByVal dtFenetreDebut As Date, _

    ByVal dtFenetreFin As Date) _

    As Boolean

    DatesIntersect = (dtDate2 >= dtFenetreDebut) And (dtDate1 <= dtFenetreFin)

End Function

Explications

La fonction renvoie True (Vrai) si le premier créneau temps chevauche le deuxième, et False sinon.

Vous pouvez la tester directement dans la fenêtre Exécution :

Faites apparaître la fenêtre Exécution (CTRL + G).
Tapez quelque chose comme :
? DatesIntersect(#1/1/2012#, #1/15/2012#, #2/1/2012#, #2/10/2012#)
Appuyez sur [Entrée] pour valider.
Vous devriez obtenir False.
Cette variante devrait par contre donner True :
? DatesIntersect(#1/1/2012#, #1/15/2012#, #1/15/2012#, #2/10/2012#)

Note

Pour les tests dans VBE, les dates sont écrites au format anglo-saxon #mm/jj/aaaa#. La fonction marchera bien sûr dans des requêtes ou des formulaires Access, avec des dates françaises.

Prochainement sur le blog, un article pour mettre cette fonction en application. Stay tuned!

Transmettre des données Access via HTTP

Hervé Inisan — Wed, 23 Nov 2011 09:49:00 +0100

A partir d'Access, je souhaiterais remplir un formulaire Web via le protocole HTTP. Comment faire ?

Scénario

Dans cet article, on part d'un scénario simple, pour poser les bases. Je dispose :

D'un serveur HTTP de test Apache, avec quelques bouts de code en PHP. En pratique, il s'agit d'un serveur WAMP installé sur une machine de test (WAMP = Windows, Apache, MySQL et PHP, plus quelques outils supplémentaires).
Les serveurs Apache et MySQL sont supposés en cours d'exécution.
Sur ce serveur, un dossier access_tests. Sur une installation standard de WAMP, ce dossier est physiquement situé dans C:\wamp\www\access_tests. Son adresse HTTP est par conséquent : http://SERVEUR/access_tests, où SERVEUR est soit le nom du serveur, soit son adresse IP.
Dans le dossier, un formulaire HTML a été créé. La page qui contient ce formulaire s'appelle formulaire.html.
Le formulaire est lui-même transmis à une page de traitement appelée resultat.php.

Le formulaire HTML

La construction du formulaire n'est pas le sujet de cet article. Voici simplement à quoi ressemble le formulaire :

Les champs, de haut en bas, s'appellent (attribut name de la balise <input>, en HTML) :

nom
prenom
email

Ce sont ces noms de champs qui vont servir à la transmission de données.
Le formulaire HTML a pour méthode POST, et pour action resultat.php (la page qui traitera les résultats).

La page de traitement de résultats

La page de traitement des résultats s'appelle donc resultat.php. Voici le code simplifié de cette page (le code gagnerait à être amélioré et sécurisé, mais nous irons à l'essentiel pour la démo, puisque l'exemple tourne sur un serveur fermé).

<?php

  header('Content-Type: text/html; charset=UTF-8');

  echo 'NOM = ' . $_POST['nom'] . "\n";

  echo 'PRENOM = ' . $_POST['prenom'] . "\n";

  echo 'EMAIL = ' . $_POST['email'] . "\n";

?>

Si vous êtes habitué à PHP, vous voyez que ce code affiche les champs nom, prenom et email transmis par la méthode POST. J'ai supposé que ces champs étaient vraiment transmis (qu'il n'en manque pas lors de la transmission). On pourra ajouter des vérifications plus fines plus tard.

A ce stade, si vous remplissez le formulaire et cliquez sur le bouton Envoyer, le formulaire est transmis à la page de traitement, et les résultats bruts sont affichés dans le navigateur.

Envoi des données à partir d'Access

Maintenant que tout est en place et que l'enchaînement formulaire / traitement a pu être testé, nous souhaitons transférer les mêmes données à partir d'Access. En d'autres termes : le formulaire HTML ne sert plus, c'est Access qui va transmettre directement les résultats à la page resultat.php. De retour à votre base de données Access :

Démarrez Visual Basic Editor (touches ALT + F11).
Commencez par établir une référence à Microsoft XML, dans le menu Outils / Références (si vous avez plusieurs bibliothèques de même nom, prenez la plus récente).
Cliquez sur le menu Insertion / Module, puis recopiez dans le module le code suivant :

' ---

' REMPLISSAGE DE FORMULAIRE VIA HTTP

' ---

Sub RemplissageFormulaire()

    Dim strURL As String

    Dim strParams As String

    Dim http As MsXML2.ServerXMLHTTP

    ' URL du flux à lire

    strURL = "http://192.168.1.8/access_tests/resultat.php"

    strParams = "nom=Inisan&prenom=Hervé&email=webmaster@self-access.com"

    ' Objet XMLHTTP

    Set http = New MsXML2.ServerXMLHTTP

    ' Ouverture de l'URL

    http.Open "POST", strURL, False

    ' En-tête de la requête

    http.setRequestHeader "Content-encoding", "UTF-8"

    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    http.setRequestHeader "Content-Length", Str(Len(strParams))

    ' Envoi

    http.Send strParams

    ' En cas de réussite, le code renvoyé est 200

    If (http.Status = 200) Then

        ' Afficher la réponse du serveur

        ' dans la fenêtre Exécution

        Debug.Print "REPONSE HTTP : "

        Debug.Print http.responseText

    Else

        Debug.Print "ERREUR : " & http.Status & " - " & http.statusText

    End If

    ' On libère les objets

    Set http = Nothing

End Sub

Quelques explications

Le code repose principalement sur l'objet ServerXMLHTTP déjà abordé dans la série Lecture de flux RSS. D'où la référence faite plus haut, et la variable http.
La variable strURL contient l'adresse de la page PHP de traitement (encore une fois : le formulaire HTML ne joue plus aucun rôle ici, on transmet directement les résultats à la page finale).
La chaîne strParams contient la liste des valeurs à transmettre (celles qui au départ étaient renseignée dans le formulaire HTML). Les valeurs sont écrites sous la forme "champ1=valeur1&champ2=valeur2". Les noms de champs doivent respecter ceux traités par la page PHP (nom, prenom et email).
L'adresse est ensuite ouverte par l'instruction http.Open.
Quelques paramètres sont ensuite définis pour préciser le type de demande : encodage des caractères, type de contenu et taille des données (il s'agit de la taille de la chaîne de paramètres). Dans un exemple simple, le code devrait fonctionner même si ces paramètres sont manquants.
Une fois la communication paramétrée, on peut envoyer les paramètres via la commande http.Send.
Les résultats sont cette fois affichés dans Access, et plus dans le navigateur. Le serveur répond par un statut de 200 si tout s'est bien passé, auquel cas on peut afficher sa réponse (http.responseText). Dans le cas contraire, on affiche les valeurs d'erreur.

Il y a bien d'autres améliorations à prévoir par la suite, mais vous avez déjà les principes pour tester !

Transformer un champ Lien hypertexte en champ Texte

Hervé Inisan — Tue, 22 Nov 2011 14:11:00 +0100

Dans une table, j'ai un champ de type Lien hypertexte. Mais ce champ me pose régulièrement des soucis lors d'exportation de données vers des logiciels externes (comme Excel). Je souhaiterais remplacer ce champ par un champ Texte simple... en conservant bien sûr tous les données déjà saisies. Comment faire ?

Avant de démarrer...

Nous allons ici effectuer une modification de structure sur votre table. Anodine, mais quand même... Du coup, pensez à tous les effets que cela pourrait avoir sur votre base de données, si toute votre logique actuelle repose sur les liens hypertexte.
En vous reportant à l'article Nettoyer des liens hypertexte à la volée, vous pouvez conserver votre champ Lien hypertexte, sans modifier l'application, et tout en l'exportant correctement vers Excel.

Modification de la table

Si vous êtes arrivé jusqu'ici, c'est que vous avez finalement décidé de modifier votre table. Soit !

Ouvrez votre table en mode Création.
Positionnez-vous sur le champ de type Lien hypertexte à modifier.
Changez le type en : Texte.
Définissez une taille assez grande pour le champ (les 50 caractères proposés par Access seront-il suffisants ?)
Enregistrez la table. Access vous prévient que des données pourraient être perdues suite à la transformation.

On pourrait imaginer que cela se termine là. En fait, Access a bien transformé le champ, mais il a repris tout le contenu du lien hypertexte d'origine, avec ses signes # parasites (voir l'article Nettoyer des liens hypertexte à la volée pour plus de détails). J'imagine que les données obtenues ne vous intéressent pas : seules les adresses pures doivent être conservées. Dans ce cas, faites encore ceci :

Prévoyez peut-être une sauvegarde de votre base avant de lancer les hostilités !
Recopiez dans un module standard tout le code donnée dans l'article Nettoyer des liens hypertexte à la volée.
Créez une nouvelle requête basée sur la table concernée.
Sur le ruban d'Access 2007/2010 (ou les icônes d'Access 2003), cliquez sur l'icône Mise à jour, pour transformer votre requête... en requête de Mise à jour.
Déposez le champ Email sur la grille de requête.
Dans la case Mise à jour, tapez comme formule :
GetHyperlink([Email])
Entre crochets, le nom de votre champ (adaptez si nécessaire).
Cliquez sur le bouton Exécuter pour déclencher la mise à jour.

L'opération est terminée, la table actualisée. Vous n'êtes pas obligé de conserver la requête de mise à jour...

Version SQL

En SQL, vous auriez obtenu le même résultat en tapant :

UPDATE [Nom de votre TABLE]

  SET [Email] = GetHyperlink([Email]);

Nettoyer des liens hypertexte à la volée

Hervé Inisan — Mon, 21 Nov 2011 13:47:00 +0100

Dans une table, j'ai un champ de type Lien hypertexte. Ça marche très bien dans Access, mais lorsque j'exporte la table vers Excel ou Word, les liens sont réécrits différemment et deviennent inexploitables. Comment faire ?

Le problème

Les liens hypertextes permettent de stocker des adresses de sites Web (http://), des adresses e-mail (mailto:), ou des fichiers de votre réseau informatique, et de les rendre cliquable dans l'interface d'Access (dans une table, une requête, un formulaire par exemple). Très pratique...

Le problème est que, lorsque ces liens sont exportés sous forme de données brutes, ils s'affichent de cette manière :

Cette forme empêche certains types d'exploitations, comme l'envoi de mails, puisque le lien complet n'est pas une adresse e-mail valide. Ce qui est un comble, puisque c'était l'objectif de départ !

Structure des liens hypertexte

En fait, un lien hypertexte peut être découpé en 3 parties, séparées par un signe # (certaines parties étant facultatives).
Partie affichée#Adresse#Sous-adresse

De gauche à droite :

La partie affichée (lisible par l'utilisateur) ;
L'adresse du lien proprement dite ; elle débute par mailto: dans le cas d'un e-mail ;
La sous-adresse, si l'adresse du lien doit être complétée par d'autres informations. Par exemple, si le lien pointe vers un fichier Excel, la sous-adresse peut être une feuille et une plage de cellules. Dans le cas d'un fichier Word, la sous-adresse peut-être un signet dans le document. La sous-adresse n'est pas utilisée dans le cas d'un e-mail.

Quelques exemples :

herve.inisan@provider.com#mailto:herve.inisan@provider.com#
Le site Self-Access.com#http://www.self-access.com#
CV#C:\Users\Hervé\Documents\CV.docx#
Statistiques 2011#stats.xlsx#Feuil3!B5

Solution 1

La première solution pour éviter ce problème serait finalement de ne plus utiliser les liens hypertexte, et de les remplacer par des champs Texte.

Avantage : un champ Texte ne contient que ce que vous y tapez ; plus de codes parasites !
Inconvénient : vous perdez le côté "cliquable" des liens hypertexte. (Vous pouvez cependant obtenir des équivalent grâce à la méthode FollowHyperlink).

Solution 2

Vous souhaitez peut être conserver le meilleur des 2 mondes : garder les liens hypertextes cliquables, et pouvoir les exploiter correctement. C'est ce que nous allons faire ici.
Dans le cas d'un e-mail, seule la partie Adresse nous intéresse. Cette partie est toujours située après le premier signe # (et avant le second #). Il suffit d'extraire cette portion de chaîne pour obtenir l'e-mail. Autre précaution à prendre, quand même : il faut pouvoir enlever le mailto: dans certains cas (il sera généralement inutile).

Le code VBA

Voici un bout de code VBA à recopier dans un module standard de votre base de données. L'énumération (le bloc Enum / End Enum) sera placé en haut du module.

Public Enum HyperlinkPrefix

    none = 0

    all = 1

    http = 2

    mailto = 3

End Enum

' ---

' EXTRACTION DE L'ADRESSE D'UN LIEN HYPERTEXTE

' ---

'

Function GetHyperlink( _

    ByVal strLink As String, _

    Optional ByVal hlpClearPrefix As HyperlinkPrefix _

        = HyperlinkPrefix.none) As String

    ' Quelques variables

    Dim strTemp As String

    Dim intI As Integer

    Dim intJ As Integer

    ' Position du premier #

    strTemp = ""

    intI = InStr(1, strLink, "#", vbTextCompare)

    If intI > 0 Then

        ' Position du second #

        intJ = InStr(intI + 1, strLink, "#", vbTextCompare)

        If intJ > 0 Then

            ' Partie Adresse

            strTemp = Trim(Mid(strLink, intI + 1, intJ - intI - 1))

            ' Suppression du mailto: si nécessaire

            If ((hlpClearPrefix = HyperlinkPrefix.all) _

                Or (hlpClearPrefix = HyperlinkPrefix.mailto)) _

                And (LCase(Left(strTemp, 7)) = "mailto:") Then

                strTemp = Mid(strTemp, 8)

            End If

            ' Suppression du http:// si nécessaire

            If ((hlpClearPrefix = HyperlinkPrefix.all) _

                Or (hlpClearPrefix = HyperlinkPrefix.http)) _

                And (LCase(Left(strTemp, 7)) = "http://") Then

                strTemp = Mid(strTemp, 8)

            End If

        End If

    End If

    GetHyperlink = strTemp

End Function

Explications

La fonction GetHyperlink() reçoit 2 paramètres :

Une chaîne qui donne le lien hypertexte d'origine (avec ses signes #), et de laquelle nous allons extraire l'adresse véritable ;
Une valeur qui indique s'il faut "nettoyer" l'adresse obtenue. Par "nettoyer", il faut entendre :

Supprimer le mailto: à gauche de l'adresse (utilisez la valeur HyperlinkPrefix.mailto)
Supprimer le http:// à gauche de l'adresse (utilisez la valeur HyperlinkPrefix.http)
Supprimer les mailto: et les http:// (utilisez la valeur HyperlinkPrefix.all)
Ne rien supprimer (utilisez la valeur HyperlinkPrefix.none, ou n'alimentez pas le second paramètre).

Pour tester...

Ouvrez la fenêtre Exécution (CTRL + G).
Tapez dans cette fenêtre :
? GetHyperlink("inisan@provider.com#mailto:inisan@provider.com#")
puis Entrée.
Vous obtenez comme résultat : mailto:herve.inisan@provider.com
Tapez :
? GetHyperlink("herve.inisan@provider.com#mailto:herve.inisan@provider.com#", mailto)
puis Entrée.
Vous obtenez : herve.inisan@provider.com

Vous auriez pu aussi utiliser all à la place de mailto, ou leurs valeurs numériques : 1 pour all, 3 pour mailto (cf. l'énumération en début de listing). En VBA, passez plutôt par l'énumération. Par contre, dans un objet graphique d'Access comme une requête, vous devrez taper les valeurs numériques.

Un exemple pratique

L'objectif de départ, rappelez-vous, était d'exporter une requête Access et ses liens hypertexte vers Excel, en ne transmettant que l'adresse du lien. Voici comment faire :

Créez une nouvelle requête basée sur la table à exporter.
Placez les champs à exporter sur la grille de requête, sauf l'e-mail d'origine (sa syntaxe avec signes # le rend inutile).
Ajoutez le champ calculé suivant sur la grille de requête :
Email réel: GetHyperlink([Email]; 3)

Une fois exécutée, la requête devrait donner ceci :

Vous pouvez maintenant exporter cette requête vers Excel (entre autres) : le lien hypertexte obtenu est enfin exploitable !

Requête UNION dans Excel

Hervé Inisan — Fri, 22 Jul 2011 10:26:00 +0200

J'ai créé une requête UNION (simple association de deux tables avec champs Nom et Prénom). Le fonctionnement est normal dans Access sauf qu'il ne m'est pas possible d'importer la requête sur Excel. La requête n'apparaît pas sur la liste lors de l'exécution de la procédure d'importation de Données Externes. Comment faire ?

Rappel

Une requête UNION est une requête qui permet de joindre les enregistrements de plusieurs tables. Vous trouverez un exemple sur la page Requête UNION du blog. Et en voici un autre (simple) dans une base Access 2010 :

Et effectivement, ce type de requête n'apparaît ni dans Excel (en importation de données externes), ni dans Word (en publipostage par exemple). Voici ce qu'on voit dans Excel, après avoir cliqué sur Données externes / Depuis Access. La requête rqt Union est invisible :

Astuce rapide

Une petite astuce devrait faire l'affaire : elle consiste à "encapsuler" votre requête UNION dans une requête standard. Pour cela :

Dans Access, activez l'onglet Créer, sur le ruban.
Cliquez sur l'icône Création de requête.
Dans la boîte de dialogue Afficher la table, au lieu de sélectionner une table (comme vous le faites généralement), activez l'onglet Requêtes, et sélectionnez la requête UNION.
Construisez votre deuxième requête comme d'habitude, en plaçant les champs qui vous intéressent (a priori tous !) sur la grille.
Enregistrez votre requête (pour la suite : rqt Union2).

Retour dans Excel

Cette fois, dans Excel, vous voyez ceci :

... et la requête peut être importée dans Excel.

Plusieurs valeurs dans OpenArgs

Hervé Inisan — Thu, 23 Jun 2011 15:58:00 +0200

Comment transmettre plusieurs arguments d'ouverture (OpenArgs) dans les commandes OpenForm et OpenReport ?

Principe

OpenArgs est le dernier argument de la commande OpenReport et, pour les versions récentes d'Access, de la commande OpenForm. OpenArgs permet de passer des informations quelconques au formulaire ou à l'état qu'on est en train d'ouvrir. Le formulaire/l'état peut ensuite faire ce qu'il veut de ces OpenArgs (c'est vous qui voyez !).

Exemple :

DoCmd.OpenForm "frm Personnes", acNormal, ,, ,, "Inisan"

Dans le formulaire d'arrivée (frm Personnes), la valeur "Inisan" est récupérée par :

Dim strNom As String

strNom = Nz(Me.OpenArgs, "")

Le problème d'OpenArgs est qu'on ne peut transmettre qu'une seule valeur chaîne. Comment transmettre dans ce cas plusieurs valeurs ?

Première solution

Une première approche consiste à transmettre les différents arguments en les séparant par un délimiteur quelconque (un caractère non utilisé en général). Par exemple, pour transmettre un nom, un prénom et un score :

DoCmd.OpenForm "frm Personnes", acNormal, ,,,, "Inisan;Hervé;200"

Du côté du formulaire ou de l'état final, il faut ensuite séparer les valeurs en se repérant sur le délimiteur. La fonction Split() est votre amie pour cela. Du style :

Dim varValeurs As Variant

varValeurs = Split(Me.OpenArgs, ";")

Debug.Print "Valeur1 = " & varValeurs(0)

Debug.Print "Valeur2 = " & varValeurs(1)

Debug.Print "Valeur3 = " & varValeurs(2)

Cette gestion peut convenir dans certains cas. Mais j'y verrais quelques problèmes :

Les arguments ne sont pas identifiés clairement. C'est seulement l'ordre qui les différencie. Dans mon exemple, le nom est toujours supposé être avant le prénom, et avant le score. Vous devez par conséquent toujours savoir que la valeur 1 est le prénom. Ou définir des constantes pour éviter cela.
Les arguments doivent toujours être fournis dans l'ordre, pour la même raison.

Deuxième solution

Voici une variante, qui consiste à passer les paramètres d'une manière inspirée de XML. C'est un peu plus lourd, mais :

Les arguments sont identifiés par un nom, donc plus faciles à maintenir.
Ils peuvent être fournis dans le désordre.
Le système est extensible.

DoCmd.OpenForm "frm Personnes", acNormal, ,, ,, _

  "<nom>Inisan</nom><prénom>Hervé</prénom><score>200</score>"

Bien sûr, on ne vas pas s'emm...bêter à chaque fois à formater les arguments avant d'appeler OpenForm, et à les retranscrire dans l'autre sens pour les exploiter. Voici 2 fonctions qui vont nous simplifier la tâche (à recopier dans un module standard, vous commencez à être habitués :-)).

' ---

' AJOUT D'UN ARGUMENT OPENARG

' ---

'

Function ArgSet( _

  ByRef strArgs As String, _

  ByVal strArgName As String, _

  ByVal varArgValue As Variant) As String

  Dim strTemp As String

  strTemp = StringFormat("<{0}>{1}</{0}>", _

      strArgName, varArgValue)

  strArgs = strArgs & strTemp

  ArgSet = strTemp

End Function

' ---

' LECTURE D'UN ARGUMENT OPENARG

' ---

'

Function ArgGet( _

  ByVal strArgs As String, _

  ByVal strArgName As String) As String

  Dim regexp As VBScript_RegExp_55.regexp

  Dim mc As VBScript_RegExp_55.MatchCollection

  Dim m As VBScript_RegExp_55.Match

  Dim strResult As String

  ' RegExp pour lire l'argument de la forme <arg>xyz</arg>

  Set regexp = New VBScript_RegExp_55.regexp

  regexp.IgnoreCase = True

  regexp.Pattern = "<(" & strArgName & ")>(.*)</\1>"

  ' Extraction de la valeur

  strResult = ""

  Set mc = regexp.Execute(strArgs)

  If mc.Count > 0 Then

      Set m = mc(0)

      strResult = m.SubMatches(1)

  End If

  ' Valeur de retour

  ArgGet = strResult

End Function

Pour que les fonctions ci-dessus fonctionnent, vous devez...

Relier la bibliothèque d'expressions rationnelles VBScript à votre projet. Oui, je sais, on pourrait faire sans, mais le code est bien plus compact avec ! ;)
Intégrer également la fonction StringFormat() à votre projet (voir cette page du blog).

VBA ne gère pas nativement les expressions rationnelles, vous devez donc ajouter à votre projet la bibliothèque qui le fait :

Démarrez VBE (Visual Basic Editor).
Cliquez sur le menu Outils / Références.
Dans la liste des références, cochez Microsoft VBScript Regular Expressions (5.5, à ce jour).

Exemple

La première fonction - ArgSet() - ajoute un argument et sa valeur, formatés, à une chaîne de caractères destinée à servir d'OpenArgs. Vous l'utilisez comme ceci, avant d'ouvrir votre formulaire ou état :

Dim strArgs As String

ArgSet strArgs, "Nom", "Inisan"

ArgSet strArgs, "Prénom", "Hervé"

ArgSet strArgs, "Score", 200

DoCmd.OpenForm "frm Personnes", acNormal, ,, ,, strArgs

Ensuite, dans le formulaire ou l'état cible, vous pouvez extraire les arguments par leur nom, grâce à la fonction inverse, ArgGet() :

Dim strArgs As String

Dim strNom As String

Dim strPrenom As String

Dim intScore As Integer

strArgs = Nz(Me.OpenArgs, "")

strNom = ArgGet(strArgs, "Nom")

strPrenom = ArgGet(strArgs, "prénom")

intScore = Val(ArgGet(strArgs, "Score"))