Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [VBA] Le Bureau

[VBA] Le Bureau

42 réponses
Avatar
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:\Users\Michel\Desktop"
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
eddymaue
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é
Avatar
eddymaue
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é
Avatar
Michd
Désolé, on aurait dû lire :
MsgBox Environ("USERPROFILE") & "Desktop"
MichD
Avatar
isabelle
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
Avatar
isabelle
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
Avatar
Geo
Bonjour Isabelle
Michel, as-tu plusieurs partition sur pc ?

Sans doute, il parle de C: et D:.
Avatar
Péhemme
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
Avatar
Péhemme
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é
Avatar
Michd
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
Avatar
Jacquouille
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é
1 2 3 4 5