Discussion :

[vinkey_33]

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

[Pierre Fauconnier]

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 :

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

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 :

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

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

[vinkey_33]

Code :

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

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?

[Pierre Fauconnier]

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?

[vinkey_33]

Voici le code

Code :

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

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