Chemin du bureau
Résolu
jean300
Messages postés
382
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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 :
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
2 réponses
-
Bonjour,
cheminBureau = CreateObject("WScript.Shell").specialFolders("Desktop")
eric
PS, au cas ou... :
Public\Desktop : "AllUsersDesktop"
Mes documents : "MyDocuments"
-
-
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
-
-
Bonjour Eriiic, Fabien, f89,
Je vous remercie et vous souhaite un bon dimanche
