Chemin du bureau
Résolu
jean300
Messages postés
382
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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
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
J'aurai écrit c'est une erreur?
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