Constante requise

[RONIBO]

Bonjour,

J'ai un petit problème sur un bout de code,

Public Const CheminSauvegardeDocument As String = "C:\Users\" & Application.UserName & "\Desktop\"

Mon problème concerne plutôt cette partie ".UserName"

J'ai un message : Erreur de compilation. Constante requise.

Vous avez une idée?

Dois-je joindre un fichier?

Merci d'avance

Bonne journée.

 

[Pierrot93]

Re : Constante requise

Bonjour,

ce que dit l'aide vba sur les "constantes" :

Vous ne pouvez utiliser ni variables, ni fonctions définies par l'utilisateur ni fonctions Visual Basic intrinsèques (telles que Chr) dans des expressions attribuées à des constantes.

bonne journée
@+

 

[Guest]

Re : Constante requise

Bonjour,

Normal, le message de l'erreur de le dit il faut une constante! Application.UserName est une variable!
Ecriture Normale:

Const A ="Je suis"
Const B = " une constante"
Const C = A & B

Soit tu déclares une variable String que tu initialises ensuite au besoin,

Public CheminSauvegardeDocument As String

Sub t()
Dim fichier as String
'initialisation varialble
CheminSauvegardeDocument = "C:\Users\" & Application.UserName & "\Desktop\"

'Code utilisation variable
Fichier = Dir(CheminSauvegardeDocument & "LeFichier.xls")
end sub

Soit tu utilises une constante que tu modifies ultérieurement:

Public Const CheminSauvegardeDocument As String = "C:\Users\???\Desktop\"

Sub t()

dim F as string
F=replace(CheminSauvegardeDocument,"???",Application.UserName)

Autre idée, une fonction qui te retourne la chaine complète:

Public Function CheminSauvegardeDocument() as String
    CheminSauvegardeDocument="C\users\" & Application.UserName & "\Desktop\"
End Function

A+

[Edit] Avais pas vu Pierrot🙂 que je salue.

 

[RONIBO]

Re : Constante requise

Merci pour vos solutions 🙂

Hasco tu m'as appris quelque chose aujourd'hui 😉

A bientôt