[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 2 / 5
Trier par : date / pertinence
Péhemme
Le #26462561
Merci Geo,
Dans : Options DossiersAffichageFichiers et Dossiers cachés,
l'option "Afficher les fichiers, dossiers et lecteurs cachés" est bien
cochée.
Michel
"Geo" a écrit dans le message de groupe de discussion :

Bonjour
Notamment ceux de C:UsersMichelDesktop et ceux de : D:Desktop
sachant que ces chemins n'existent plus/pas sur mon ordi ; peut-être
également que je n'ai pas été capable de les retrouver.

Si vous avez écrit dans ces dossiers, c'est qu'il existent, par contre
ils sont peut-être cachés.
Vérifier si la case ad hoc a été cochée dans l'explorateur de fichiers.
Michd
Le #26462560
Le bureau est toujours dans le profil de l'usager qui est connecté (logué) à
l'ordinateur.
Il y a peut-être des spécialistes de Windows qui peuvent contredire cet
énoncé...! ;-)
MichD
Péhemme
Le #26462564
Eh bien ! Voyez quand vous voulez !
:-)))
Je vous chahute ; vous avez trouvé la réponse à la question.
Pour HD :
Je ne comprends rien à ce qu'il y a écrit dans cette procédure mais ce n'est
pas grave, cela fonctionne parfaitement bien.
:-))
Mille mercis.
Pour MichD :
Sub Test()
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")
MsgBox WSHShell.SpecialFolders.Item(4)
Set WSHShell = Nothing
End Sub
répond parfaitement bien à la question.
Mille mercis (encore !?) à toi aussi.
:-))
Egalement tous mes remerciements à Jacquouille (malgré ses 70 ans passés), à
Geo et à Jièl pour ce lien que je conserve auprès de moi.
Vous êtes formidable, mais çà, vous le savez déjà.
:-))
Bien amicalement
Michel

"Michd" a écrit dans le message de groupe de discussion :
p4sdmh$h8f$
Bonjour,
Cette macro retourne les chemins disponibles des différents répertoires :
'------------------------------------
Sub test()
Dim A As Long
For A = 1 To 40
Range("A" & A) = Environ(A)
Next
End Sub
'------------------------------------
Toi, ce que tu recherches est représenté par cette ligne de code :
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
Il y a ceci aussi:
'------------------------------------
Sub Test()
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")
MsgBox WSHShell.SpecialFolders.Item(4)
Set WSHShell = Nothing
End Sub
'------------------------------------
MichD
Michd
Le #26462570
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD
Michd
Le #26462569
Ceci est suffisant -))^
MsgBox Environ("USERPROFILE") & "Desk"
MichD
Michd
Le #26462568
Ceci est suffisant -))^
MsgBox Environ("USERPROFILE") & "Desk"
MichD
Péhemme
Le #26462575
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
Jacquouille
Le #26462623
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
Péhemme
Le #26462649
Oui mon bon Jacques, ce que j'ai fait à plusieurs reprises, sans succès.
Après d'autres tests de recherches, j'en conclus que, comme le chemin
n'existait pas, les fichiers n'ont pas été enregistrés.
Comme le soulignait Denis, c'est maintenant un problème Windows...
Merci encore de tes ides
Bonne soirée
Michel
"Jacquouille" a écrit dans le message de groupe de discussion :
p4sub7$1it4$
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
Jacquouille
Le #26462648
Heureux le pèlerin qui cherche son chemin ....
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Péhemme" a écrit dans le message de groupe de discussion :
p4t2hh$1qh5$
Oui mon bon Jacques, ce que j'ai fait à plusieurs reprises, sans succès.
Après d'autres tests de recherches, j'en conclus que, comme le chemin
n'existait pas, les fichiers n'ont pas été enregistrés.
Comme le soulignait Denis, c'est maintenant un problème Windows...
Merci encore de tes ides
Bonne soirée
Michel
"Jacquouille" a écrit dans le message de groupe de discussion :
p4sub7$1it4$
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
Poster une réponse
Anonyme