[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
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
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.
l'ordinateur.
Il y a peut-être des spécialistes de Windows qui peuvent contredire cet
énoncé...! ;-)
MichD
:-)))
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
Msgbox MsgBox Environ("USERPROFILE") & "Desk"
MichD
MsgBox Environ("USERPROFILE") & "Desk"
MichD
MsgBox Environ("USERPROFILE") & "Desk"
MichD
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
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
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
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