Chemin du bureau

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - Modifié le 7 oct. 2018 à 00:12
yg_be Messages postés 23440 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 janvier 2025 - 7 oct. 2018 à 13:50

Bonjour,
Je recherche une macro pour :
1 - Trouver le chemin du Bureau, car chemin différents sur 4 postes/120
2 - Inclure ce chemin dans une autre macro (ici E:\Utilisateurs\Castor\Desktop\BENON Lea.xls)
En vous remerciant et vous souhaitant une bonne nuit
exemple :

Sub Ouvre()
    ChDir "E:\Utilisateurs\Castor\Desktop"
    Workbooks.Open Filename:=<gras>"E:\Utilisateurs\Castor\Desktop\BENON  Lea.xls"</gras>
'ou
ActiveWorkbook.SaveAs Filename:="C:\ADD\Seigle\RecepFiche\" & Range("A4").Value & " " & Range("K4").Value & ".xls"
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
Application.Quit
End Sub

A voir également:

Createobject("wscript.shell").specialfolders("desktop")
Bureau virtuel windows 10 - Guide
Changer icone bureau - Guide
Bureau double ecran - Guide
Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. c’est le cas du fichier du logo présent sur la page de cette ville. quel est le chemin de ce fichier à partir de la racine du site ? ✓ - Forum Réseau
Juliette a supprimé l'icône encadrée de son bureau. que peut-on dire - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
Modifié le 7 oct. 2018 à 00:38

Bonjour,

cheminBureau = CreateObject("WScript.Shell").specialFolders("Desktop")

eric

PS, au cas ou... :
Public\Desktop : "AllUsersDesktop"
Mes documents : "MyDocuments"

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
7 oct. 2018 à 11:32

Bonjour à vous 2,
J'aurai écrit

cheminbureau = ThisWorkbook.Path

c'est une erreur?

f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
7 oct. 2018 à 11:48

Bonjour,

ThisWorkbook.Path

Donne le chemin du fichier en cours. Si celui-ci est sur le bureau c'est Ok, sinon pas bon.

Pour completer ce que vous a ecrit eeric, une fonction avec traitement d'erreur

Sub ExempleTrouverCheminBureau()
'par: http://excel-malin.com

    On Error GoTo TestErreur
    Dim CheminBureau As String
    
    CheminBureau = ObtenirCheminBureau()
    
    MsgBox CheminBureau 'affiche le chemin vers le dossier Bureau
    Exit Sub
TestErreur:
    MsgBox "Une erreur s'est produite..."
End Sub


Public Function ObtenirCheminBureau() As String
'par: Excel-Malin.com ( http://excel-malin.com )

    On Error GoTo ObtenirCheminBureauError
    Dim CheminBureau As String
    CheminBureau = ""
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
    
    CheminBureau = oWSHShell.SpecialFolders("Desktop")
    
    If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
    ObtenirCheminBureau = CheminBureau

    Exit Function
ObtenirCheminBureauError:
    If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
    ObtenirCheminBureau = ""
End Function

Réponse 2 / 2

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
7 oct. 2018 à 13:44

Bonjour Eriiic, Fabien, f89,
Je vous remercie et vous souhaite un bon dimanche

yg_be Messages postés 23440 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 janvier 2025 1 559
7 oct. 2018 à 13:50

bonjour, chdir est inutile dans ce contexte.
peux-tu marquer le sujet comme résolu?

Discussions similaires

supprimer une icône du bureau

comment faire pour trouver un chemin d'accès

Chemin d'accès spécifié est introuvable

Supprimer l'icone du ...

sommaire d'un fichier