Chemin du bureau

Résolu

jean300 Messages postés 374 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23541 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
Mettre icone sur bureau - Guide
Pourquoi les icones du bureau sont blanches - 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
Afficher la corbeille sur le bureau - Guide

2 réponses

Réponse 1 / 2

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

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

Bonjour à vous 2,
J'aurai écrit

cheminbureau = ThisWorkbook.Path

c'est une erreur?

f894009 Messages postés 17277 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 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

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

Connexion SCTR / Aucun chemin d'accès audio DISCORD

comment faire pour trouver un chemin d'accès

Connexion SCTR discord/ aucun de chemin de connexion

stream discord crash, suivit d'un problème de connexion SCTR

Votre réponse

Discussions similaires