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
Péhemme
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.
Avatar
Michd
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
Avatar
Péhemme
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
Avatar
Michd
Moi, je préfère celle-ci pour sa simplicité!
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD
Avatar
Michd
Ceci est suffisant -))^
MsgBox Environ("USERPROFILE") & "Desk"
MichD
Avatar
Michd
Ceci est suffisant -))^
MsgBox Environ("USERPROFILE") & "Desk"
MichD
Avatar
Péhemme
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
Avatar
Jacquouille
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
Avatar
Péhemme
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
Avatar
Jacquouille
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
1 2 3 4 5