Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick
Bonjour,
Tu peux utiliser la bibliothèque "Windows Script Host Object Model" comme ceci :
Public Const gFOLDER_DESKTOP As String = "Desktop" Public Const gFOLDER_MYDOC As String = "MyDocuments"
'FolderName est une des valeurs ci-dessus Function Special_Folder(ByVal FolderName As String) As String Dim wsShell As WshShell ' Set wsShell = New WshShell Special_Folder = wsShell.SpecialFolders(FolderName) & "" ' Set wsShell = Nothing End Function
-- Patrick
"Jac" wrote:
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
Bonjour,
Tu peux utiliser la bibliothèque "Windows Script Host Object Model" comme
ceci :
Public Const gFOLDER_DESKTOP As String = "Desktop"
Public Const gFOLDER_MYDOC As String = "MyDocuments"
'FolderName est une des valeurs ci-dessus
Function Special_Folder(ByVal FolderName As String) As String
Dim wsShell As WshShell
'
Set wsShell = New WshShell
Special_Folder = wsShell.SpecialFolders(FolderName) & ""
'
Set wsShell = Nothing
End Function
--
Patrick
"Jac" wrote:
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire
pour trouver l'adresse du bureau de l'utilisateur actuel ?
Tu peux utiliser la bibliothèque "Windows Script Host Object Model" comme ceci :
Public Const gFOLDER_DESKTOP As String = "Desktop" Public Const gFOLDER_MYDOC As String = "MyDocuments"
'FolderName est une des valeurs ci-dessus Function Special_Folder(ByVal FolderName As String) As String Dim wsShell As WshShell ' Set wsShell = New WshShell Special_Folder = wsShell.SpecialFolders(FolderName) & "" ' Set wsShell = Nothing End Function
-- Patrick
"Jac" wrote:
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
MichDenis
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" <Jsansp@mfra.net> a écrit dans le message de news: %231M3SRRLIHA.6008@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire
pour trouver l'adresse du bureau de l'utilisateur actuel ?
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
Jac
Bonjour MichDenis,
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC, "c:Documents and SettingsPCBureau" Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ? Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas du c des pc, et sur une machine hors réseau, quand il faut faire le tour de tous les petits morceaux à sauvegarder, on finit toujours par oublier dans l'urgence, quelque chose comme le bureau, mes documents, les polices, les contacts de messagerie, ... quand ce n'est pas la messagerie entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" a écrit dans le message de news: u33iM%
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
Bonjour MichDenis,
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC,
"c:Documents and SettingsPCBureau"
Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible
dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ?
Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas
du c des pc, et sur une machine hors réseau, quand il faut faire le tour
de tous les petits morceaux à sauvegarder, on finit toujours par oublier
dans l'urgence, quelque chose comme le bureau, mes documents, les
polices, les contacts de messagerie, ... quand ce n'est pas la messagerie
entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier
au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u33iM%23RLIHA.536@TK2MSFTNGP06.phx.gbl...
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
%231M3SRRLIHA.6008@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je
faire
pour trouver l'adresse du bureau de l'utilisateur actuel ?
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC, "c:Documents and SettingsPCBureau" Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ? Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas du c des pc, et sur une machine hors réseau, quand il faut faire le tour de tous les petits morceaux à sauvegarder, on finit toujours par oublier dans l'urgence, quelque chose comme le bureau, mes documents, les polices, les contacts de messagerie, ... quand ce n'est pas la messagerie entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" a écrit dans le message de news: u33iM%
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
MichDenis
Ce qui suit te donne toutes les caractéristiques d'un compte réseau. Comme je ne suis pas en réseau, il m'est difficile de tester ....! à toi de le faire en utilisant seulement les caractéristiques désirées
Next End Sub '------------------------------ Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid(dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _ 13, 2)) End If End Function '------------------------------
"Jac" a écrit dans le message de news: Bonjour MichDenis,
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC, "c:Documents and SettingsPCBureau" Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ? Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas du c des pc, et sur une machine hors réseau, quand il faut faire le tour de tous les petits morceaux à sauvegarder, on finit toujours par oublier dans l'urgence, quelque chose comme le bureau, mes documents, les polices, les contacts de messagerie, ... quand ce n'est pas la messagerie entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" a écrit dans le message de news: u33iM%
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?
Merci d'avance.
Jac
Ce qui suit te donne toutes les caractéristiques d'un compte réseau.
Comme je ne suis pas en réseau, il m'est difficile de tester ....!
à toi de le faire en utilisant seulement les caractéristiques désirées
Next
End Sub
'------------------------------
Function WMIDateStringToDate(dtmWMIDate)
If Not IsNull(dtmWMIDate) Then
WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _
Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _
& " " & Mid(dtmWMIDate, 9, 2) & ":" & _
Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _
13, 2))
End If
End Function
'------------------------------
"Jac" <Jsansp@mfra.net> a écrit dans le message de news: Ob6bCxXLIHA.748@TK2MSFTNGP04.phx.gbl...
Bonjour MichDenis,
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC,
"c:Documents and SettingsPCBureau"
Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible
dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ?
Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas
du c des pc, et sur une machine hors réseau, quand il faut faire le tour
de tous les petits morceaux à sauvegarder, on finit toujours par oublier
dans l'urgence, quelque chose comme le bureau, mes documents, les
polices, les contacts de messagerie, ... quand ce n'est pas la messagerie
entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier
au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
u33iM%23RLIHA.536@TK2MSFTNGP06.phx.gbl...
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
%231M3SRRLIHA.6008@TK2MSFTNGP05.phx.gbl...
Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je
faire
pour trouver l'adresse du bureau de l'utilisateur actuel ?
Ce qui suit te donne toutes les caractéristiques d'un compte réseau. Comme je ne suis pas en réseau, il m'est difficile de tester ....! à toi de le faire en utilisant seulement les caractéristiques désirées
Next End Sub '------------------------------ Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid(dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate, _ 13, 2)) End If End Function '------------------------------
"Jac" a écrit dans le message de news: Bonjour MichDenis,
j'obtiens un résultat qui correspond au bureau "théorique" de mon PC, "c:Documents and SettingsPCBureau" Or mon vrai bureau est dans "f:_Bureau_" tel que défini comme cible dans les propriétés de "Mes documents".
Pourquoi dans le f et pas dans le c, comme d'habitude ? Parce qu'en général, une sauvegarde sur un réseau ne s'occupe pas du c des pc, et sur une machine hors réseau, quand il faut faire le tour de tous les petits morceaux à sauvegarder, on finit toujours par oublier dans l'urgence, quelque chose comme le bureau, mes documents, les polices, les contacts de messagerie, ... quand ce n'est pas la messagerie entière...
D'où ma crainte de ne pas être sûr d'enregistrer par macro le fichier au bon endroit, sur des machines qui ne m'ont pas été présentées...
"MichDenis" a écrit dans le message de news: u33iM%
Bureau = Environ("USERPROFILE") & "Bureau"
"Jac" a écrit dans le message de news: % Bonjour à tous,
afin de pouvoir enregistrer un fichier sur le bureau, comment puis-je faire pour trouver l'adresse du bureau de l'utilisateur actuel ?