[VBA] Le Bureau
Le
Péhemme

Bonjour à Tous,
J'ai 2 questions sur ce sujet.
Matériel : W7 - XL 2010
1°) Comment en VBA récupérer le chemin du Bureau ?
2°) Comment tester l'existence d'un chemin pour le Bureau ?
J'ai écrit :
Sub TesteChemin()
Dim CheminPDF
CheminPDF = "C:UsersMichelDesktop"
If CheminPDF = "" Then
MsgBox "NON"
Else
MsgBox "OK"
End If
CheminPDF = "D:Bureau"
If CheminPDF = "" Then
MsgBox "NON"
Else
MsgBox "OK"
End If
End Sub
Bête que je suis, cela me revoit toujours OK car ma variable est
renseignée
Mais comment dois-je rédiger ce test afin d'obtenir la bonne réponse ?
Je ne vois pas par quel bout je dois prendre mon problème.
Merci d'avance à tous ceux qui pourront me (re)mettre sur la voie.
Michel
J'ai 2 questions sur ce sujet.
Matériel : W7 - XL 2010
1°) Comment en VBA récupérer le chemin du Bureau ?
2°) Comment tester l'existence d'un chemin pour le Bureau ?
J'ai écrit :
Sub TesteChemin()
Dim CheminPDF
CheminPDF = "C:UsersMichelDesktop"
If CheminPDF = "" Then
MsgBox "NON"
Else
MsgBox "OK"
End If
CheminPDF = "D:Bureau"
If CheminPDF = "" Then
MsgBox "NON"
Else
MsgBox "OK"
End If
End Sub
Bête que je suis, cela me revoit toujours OK car ma variable est
renseignée
Mais comment dois-je rédiger ce test afin d'obtenir la bonne réponse ?
Je ne vois pas par quel bout je dois prendre mon problème.
Merci d'avance à tous ceux qui pourront me (re)mettre sur la voie.
Michel
et que te donne %homepath%destop
bonne soirée
Jacquouille a pensé très fort :
--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
:
--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
MsgBox Environ("USERPROFILE") & "Desktop"
MichD
Michel, as-tu plusieurs partition sur pc ?
isabelle
Le 2018-01-31 à 08:42, Péhemme a écrit :
et qui au tournant reçois 70 bisou* pour ces 70 printemps,
bonanniv mon très cher Jacques,
isabelle
Sans doute, il parle de C: et D:.
J'ai 2 disques physiques différents : C: et D:.
Bises
Michel
"isabelle" a écrit dans le message de groupe de discussion :
p4u7tc$1ij3$
salutàtous,
Michel, as-tu plusieurs partition sur pc ?
isabelle
Le 2018-01-31 à 08:42, Péhemme a écrit :
Merci de te pencher sur cette question.
Cependant, comment dois-je l'écrire ?
Afin de récupérer l'information dans une variable, j'ai écrit :
Chemin_1 = %homepath%desktop
Msgbox Chemin_1
Je me fait jeter :-(
Mais je crains (pas testé) que cela me donne UsersMicheldesktop sachant
que mon chemin est D:Bureau.
HD et MichD m'ont donné des solutions que je mettrai en ½uvre dans mon
nouveau .xlam
Bien amicalement
Michel
"eddymaue" a écrit dans le message de groupe de discussion :
allo
et que te donne %homepath%destop
bonne soirée
Jacquouille a pensé très fort :
--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
***** MsgBox Environ("homepath") & "Desktop"
Mais je crains (pas testé) que cela me donne UsersMicheldesktop
***** C'est ce que tu vas obtenir!
MichD
....
Jacques, cool à la campagne, troisième à droite.
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4ukdi$41o$
Bonjour Eddymaue,
Merci de te pencher sur cette question.
Cependant, comment dois-je l'écrire ?
Afin de récupérer l'information dans une variable, j'ai écrit :
Chemin_1 = %homepath%desktop
Msgbox Chemin_1
Je me fait jeter :-(
Mais je crains (pas testé) que cela me donne UsersMicheldesktop sachant
que mon chemin est D:Bureau.
HD et MichD m'ont donné des solutions que je mettrai en ½uvre dans mon
nouveau .xlam
Bien amicalement
Michel
"eddymaue" a écrit dans le message de groupe de discussion :
allo
et que te donne %homepath%destop
bonne soirée
Jacquouille a pensé très fort :
--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé