modification ligne VBA sans rentrer sur VBA

Bonjour, j'aimerais créé un formulaire ou un etat peut importe pour pourvoir modifié une ligne de code sur VBA sans rentré sur VBA c'est-à-dire, j'ai une ligne de code qui contient le chemin d'un document, j'aimerais via un formulaire ou etat pourvoir modifié la ligne du chemin sans rentré dans VBA
merci pour vos réponse

Salut.

Ce n'est jamais bon de "hardcoder"... => écrire des données métier directement dans le code.

Tu aurais intérêt à passer par une table de paramètres dans laquelle tu pourrais déterminer les valeurs à utiliser dans ton code.

Tu pourrais avoir par exemple une table appelée Parameter dans laquelle tu aurais deux champs Key et Value, tous deux en texte court, Key étant la clé primaire de ta table.

Dans ton code VBA, tu pourrais récupérer la valeur d'un paramètre via une fonction perso que tu créerais, par exemple

Code:

---

1 2 3

function getParameterValue(Key as string) as string getparametervalue = nz(dlookup("Value","parameter","key = '" & key & "'"),"") end function

---

Cette fonction renverrait soit la valeur du paramètre, soit la chaine "" si la clé passée n'existe pas.

Dans la table, tu crées alors un enregistrement avec "Chemin" comme Key et par exemple "d:\mes données\source\monfichier.xlsx" comme Value. Tu récupères le chemin avec

Code:

---

1 2 3

dim Path as string   path = getparametervalue("Chemin")

---

Devoir modifier ton code vba par code pour modifier une donnée qui n'a rien à faire dans le code est tout sauf une bonne idée ;)

PS: pas testé le code car pas d'accès sous la main, mais ça doit être bon ;)

Code:

---

1 2 3

function getParameterValue(Key as string) as string getparametervalue = nz(dlookup("Value","parameter","key = '" & key & "'"),"") end function

---

Je le met sur le bouton qui appel la valeur de la table paramater, c'est ça?

Je ne suis pas certain d'avoir été clair.

Ce que je te propose, c'est de remplacer le texte en dur dans ton code par un texte que tu récupères d'une table de paramètres.

Mais avant de continuer, j'ai deux questions:

• Peux-tu montrer le code dans lequel tu as le chemin écrit en dur? (pas juste la ligne, aussi le contexte, surtout ce que tu fais de ce texte et comment tu l'utilises dans le code;
• Le nouveau chemin doit-il être saisi par l'utilisateur ou bien dois-tu le pérenniser, par exemple dans une table?

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Creation_PDF_Click() Dim strFichier As String Dim strFichierPDF As String   strFichier = "C:\Users\goncak\Desktop\GESMOB\Fiche Retour SAV "   strFichierPDF = strFichier & Me.numenerg & " " & Me.Prénom_Nom & " " & Replace(Replace(Now(), ":", "-"), "/", "-") & ".pdf"   DoCmd.OpenForm "Récap de Fiche retour SAVPDF"   DoCmd.OutputTo acOutputForm, "Récap de Fiche retour SAVPDF", acFormatPDF, strFichierPDF, False   DoCmd.Close acForm, "Récap de Fiche retour SAVPDF" MsgBox "Opération terminée !", vbInformation End Sub

---

et oui l'utilisateur doit saisir le chemin