Chemin du bureau

Résolu

jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23538 Date d'inscription Statut Contributeur Dernière intervention - 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
Icone blanche sur le bureau - Guide
Chemin fichier host - Guide

2 réponses

Réponse 1 / 2

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 264

Bonjour,

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

eric

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

fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention 59

Bonjour à vous 2,
J'aurai écrit

cheminbureau = ThisWorkbook.Path

c'est une erreur?

f894009 Messages postés 17268 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 14

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

yg_be Messages postés 23538 Date d'inscription Statut Contributeur Dernière intervention 1 583

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

Discussions similaires

Chemin Logo du site de la Cité de l'espace

comment faire pour trouver un chemin d'accès

Chemin d'accès des données sur serveur

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

supprimer une icône du bureau

Votre réponse

Discussions similaires