Discussion :

[berthold67]

17/06/2026
Bonjour,
Je programme toujours avec les macros de la version 2000.
Je travaille les programmes avec une version 2016 avec les macros.
La commande DéfinirValeur (2000) s’exécute normalement mais 2016 me signale que la commande présente un risque (unsafe action)
Quelle commande puis-je utiliser dans 2016 pour remplacer DéfinirValeur et que ce message n’apparaisse plus dans les macros.
Merci pour votre soutien.
Berthold

[argyronet]

Bonjour,

Si vous souhaitez conserver votre macro DéfinirValeur, vous devez déclarer le dossier contenant votre base de données comme "Emplacement approuvé".
C'est la seule façon de dire à Access "Je fais confiance à ce fichier, n'affiche plus d'alertes".

Voici comment :

Cliquez sur l'onglet Fichier > Options.
Dans la colonne de gauche, cliquez sur Centre de gestion de la confidentialité.
Cliquez sur le bouton Paramètres du Centre de gestion de la confidentialité.
Dans la colonne de gauche, sélectionnez Emplacements approuvés.
Cliquez sur Ajouter un nouvel emplacement...
Cliquez sur Parcourir et sélectionnez le dossier où se trouve votre base de données (cochez la case "Sous-dossiers de cet emplacement sont également approuvés" si nécessaire).
Validez par OK

Il est nécessaire de recharger l'application pour que ça prenne effet.

Sinon, vous pouvez substituer votre macro par du VBA :

Code :

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

Me.NomDeVotreChamp = 2000

Argy

[berthold67]

Bonjour,

Si vous souhaitez conserver votre macro DéfinirValeur, vous devez déclarer le dossier contenant votre base de données comme "Emplacement approuvé".
C'est la seule façon de dire à Access "Je fais confiance à ce fichier, n'affiche plus d'alertes".

Voici comment :

Cliquez sur l'onglet Fichier > Options.
Dans la colonne de gauche, cliquez sur Centre de gestion de la confidentialité.
Cliquez sur le bouton Paramètres du Centre de gestion de la confidentialité.
Dans la colonne de gauche, sélectionnez Emplacements approuvés.
Cliquez sur Ajouter un nouvel emplacement...
Cliquez sur Parcourir et sélectionnez le dossier où se trouve votre base de données (cochez la case "Sous-dossiers de cet emplacement sont également approuvés" si nécessaire).
Validez par OK

Il est nécessaire de recharger l'application pour que ça prenne effet.

Sinon, vous pouvez substituer votre macro par du VBA :

Code :

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

Me.NomDeVotreChamp = 2000

Bonjour Argy

Merci pour votre explication. Je vais tenter la procédure.
Berthold