[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

  • Partager ce contenu :
Vos réponses Page 3 / 5
Trier par : date / pertinence
eddymaue
Le #26462700
allo
et que te donne %homepath%destop
bonne soirée
Jacquouille a pensé très fort :
Re bonsoir Michel
Une bête question: "démarrer, tous les programmes". Si tu inscris le nom
d'un doc, il va te donner tout son chemin (un vrai GPS, ça) ....
Bonne chance;
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4sh3q$o85$
Non Denis, cette macro me retourne :
C:UsersMichelDesk
Les autres approches me donnent bien :
D:Bureau
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais
où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
"Michd" a écrit dans le message de groupe de discussion :
p4sg94$mgf$
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD

--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
eddymaue
Le #26462712
desktop
:
allo
et que te donne %homepath%destop
bonne soirée
Jacquouille a pensé très fort :
Re bonsoir Michel
Une bête question: "démarrer, tous les programmes". Si tu inscris le nom
d'un doc, il va te donner tout son chemin (un vrai GPS, ça) ....
Bonne chance;
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4sh3q$o85$
Non Denis, cette macro me retourne :
C:UsersMichelDesk
Les autres approches me donnent bien :
D:Bureau
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais
où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
"Michd" a écrit dans le message de groupe de discussion :
p4sg94$mgf$
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD


--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
Michd
Le #26462713
Désolé, on aurait dû lire :
MsgBox Environ("USERPROFILE") & "Desktop"
MichD
isabelle
Le #26462717
salutàtous,
Michel, as-tu plusieurs partition sur pc ?
isabelle
Le 2018-01-31 à 08:42, Péhemme a écrit :
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
isabelle
Le #26462719
Le 2018-01-31 à 13:41, Jacquouille a écrit :
Heureux le pèlerin qui cherche son chemin ....

et qui au tournant reçois 70 bisou* pour ces 70 printemps,
bonanniv mon très cher Jacques,
isabelle
Geo
Le #26462736
Bonjour Isabelle
Michel, as-tu plusieurs partition sur pc ?

Sans doute, il parle de C: et D:.
Péhemme
Le #26462742
Bonjour Isabelle ma geôlière préférée,
Michel, as-tu plusieurs partition sur pc ?

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 :
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais
où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
Péhemme
Le #26462745
Bonjour Eddymaue,
et que te donne %homepath%destop

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 :
Re bonsoir Michel
Une bête question: "démarrer, tous les programmes". Si tu inscris le nom
d'un doc, il va te donner tout son chemin (un vrai GPS, ça) ....
Bonne chance;
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4sh3q$o85$
Non Denis, cette macro me retourne :
C:UsersMichelDesk
Les autres approches me donnent bien :
D:Bureau
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais
où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
"Michd" a écrit dans le message de groupe de discussion :
p4sg94$mgf$
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD

--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
Michd
Le #26462768
Cependant, comment dois-je l'écrire ?
***** MsgBox Environ("homepath") & "Desktop"
Mais je crains (pas testé) que cela me donne UsersMicheldesktop
***** C'est ce que tu vas obtenir!
MichD
Jacquouille
Le #26462775
C'est quand même fort de café qu'un retraité cherche le chemin du bureau
....
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,
et que te donne %homepath%destop

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 :
Re bonsoir Michel
Une bête question: "démarrer, tous les programmes". Si tu inscris le nom
d'un doc, il va te donner tout son chemin (un vrai GPS, ça) ....
Bonne chance;
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4sh3q$o85$
Non Denis, cette macro me retourne :
C:UsersMichelDesk
Les autres approches me donnent bien :
D:Bureau
Cela dit, j'ai fait mon deuil des fichiers de tests sauvegardés je ne sais
où...
Sans doute n'ont-ils été sauvegardés nulle part si les chemins testés
n'existaient pas.
Va savoir...
Merci encore de ton aide
Michel
"Michd" a écrit dans le message de groupe de discussion :
p4sg94$mgf$
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD

--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
Poster une réponse
Anonyme