Par programmation VBA je souhaite mettre à jour un fichier Excel dans un
dossier Mes Documents\Toto. Le problème est que Mes Documents peut se
trouver sur C ou sur D selon les machines (cela aurait été trop simple de
les configurer toutes de la même manière :(
Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D
?
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
Daniel
Bonjour. Essaie :
Sub test1() Var = Dir("C:documents and settingsTON CHEMINmes documents", vbDirectory) If Var <> "" Then MsgBox "C:" Else MsgBox "D:" End If End Sub
Cordialement. Daniel "Newbie" a écrit dans le message de news: %
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
Merci pour votre aide.
Newbie.
Bonjour.
Essaie :
Sub test1()
Var = Dir("C:documents and settingsTON CHEMINmes documents",
vbDirectory)
If Var <> "" Then
MsgBox "C:"
Else
MsgBox "D:"
End If
End Sub
Cordialement.
Daniel
"Newbie" <newbie@libre.fr> a écrit dans le message de news:
%23fOifEaTGHA.5900@tk2msftngp13.phx.gbl...
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un
dossier Mes DocumentsToto. Le problème est que Mes Documents peut se
trouver sur C ou sur D selon les machines (cela aurait été trop simple de
les configurer toutes de la même manière :(
Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou
D
?
Sub test1() Var = Dir("C:documents and settingsTON CHEMINmes documents", vbDirectory) If Var <> "" Then MsgBox "C:" Else MsgBox "D:" End If End Sub
Cordialement. Daniel "Newbie" a écrit dans le message de news: %
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
Merci pour votre aide.
Newbie.
Elliac
Bonjour,
Sub Toto() On Error Resume Next Workbooks.Open "c:Mes DocumentsToto.XLS" Workbooks.Open "d:Mes DocumentsToto.XLS" End Sub
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
Merci pour votre aide.
Newbie.
Bonjour,
Sub Toto()
On Error Resume Next
Workbooks.Open "c:Mes DocumentsToto.XLS"
Workbooks.Open "d:Mes DocumentsToto.XLS"
End Sub
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un
dossier Mes DocumentsToto. Le problème est que Mes Documents peut se
trouver sur C ou sur D selon les machines (cela aurait été trop simple de
les configurer toutes de la même manière :(
Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D
?
Sub Toto() On Error Resume Next Workbooks.Open "c:Mes DocumentsToto.XLS" Workbooks.Open "d:Mes DocumentsToto.XLS" End Sub
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
Merci pour votre aide.
Newbie.
papou
Bonjour Dim fso, f Set fso = CreateObject("WScript.Shell") MsgBox Left(fso.SpecialFolders("MyDocuments"), 2)
Cordialement Pascal
Bonjour
Dim fso, f
Set fso = CreateObject("WScript.Shell")
MsgBox Left(fso.SpecialFolders("MyDocuments"), 2)
Re Ou sur une seule ligne : MsgBox Left(CreateObject("WScript.Shell").SpecialFolders("MyDocuments"), 2)
Cordialement Pascal
Jacques93
Bonjour Newbie,
Une manière simple et courte est d'utiliser la variable d'environnement "USERPROFILE" :
MsgBox Environ("USERPROFILE") & "Mes Documents"
Une manière plus longue, mais plus complète (bien qu'on ne soit pas obligé de déclarer toutes les CSIDL_VALUE, "Mes Documents" correspond à CSIDL_PERSONAL) :
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _ Alias "SHGetFolderPathA" _ (ByVal hwndOwner As Long, _ ByVal nFolder As Long, _ ByVal hToken As Long, _ ByVal dwReserved As Long, _ ByVal lpszPath As String) As Long
Private Sub CommandButton1_Click() Dim s As String
s = Space(MAX_LENGTH) If SHGetFolderPath(0&, CSIDL_PERSONAL, -1, SHGFP_TYPE_CURRENT, s) = 0 Then s = Left(s, InStr(s, Chr$(0)) - 1) MsgBox s End If End Sub
OK sous 2000/XP, non testé sous W9x
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
-- Cordialement,
Jacques.
Bonjour Newbie,
Une manière simple et courte est d'utiliser la variable d'environnement
"USERPROFILE" :
MsgBox Environ("USERPROFILE") & "Mes Documents"
Une manière plus longue, mais plus complète (bien qu'on ne soit pas
obligé de déclarer toutes les CSIDL_VALUE, "Mes Documents" correspond à
CSIDL_PERSONAL) :
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _
Alias "SHGetFolderPathA" _
(ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
ByVal hToken As Long, _
ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long
Private Sub CommandButton1_Click()
Dim s As String
s = Space(MAX_LENGTH)
If SHGetFolderPath(0&, CSIDL_PERSONAL, -1, SHGFP_TYPE_CURRENT, s) =
0
Then
s = Left(s, InStr(s, Chr$(0)) - 1)
MsgBox s
End If
End Sub
OK sous 2000/XP, non testé sous W9x
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un
dossier Mes DocumentsToto. Le problème est que Mes Documents peut se
trouver sur C ou sur D selon les machines (cela aurait été trop simple de
les configurer toutes de la même manière :(
Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D
?
Une manière simple et courte est d'utiliser la variable d'environnement "USERPROFILE" :
MsgBox Environ("USERPROFILE") & "Mes Documents"
Une manière plus longue, mais plus complète (bien qu'on ne soit pas obligé de déclarer toutes les CSIDL_VALUE, "Mes Documents" correspond à CSIDL_PERSONAL) :
Private Declare Function SHGetFolderPath Lib "shfolder.dll" _ Alias "SHGetFolderPathA" _ (ByVal hwndOwner As Long, _ ByVal nFolder As Long, _ ByVal hToken As Long, _ ByVal dwReserved As Long, _ ByVal lpszPath As String) As Long
Private Sub CommandButton1_Click() Dim s As String
s = Space(MAX_LENGTH) If SHGetFolderPath(0&, CSIDL_PERSONAL, -1, SHGFP_TYPE_CURRENT, s) = 0 Then s = Left(s, InStr(s, Chr$(0)) - 1) MsgBox s End If End Sub
OK sous 2000/XP, non testé sous W9x
Bonjour,
Par programmation VBA je souhaite mettre à jour un fichier Excel dans un dossier Mes DocumentsToto. Le problème est que Mes Documents peut se trouver sur C ou sur D selon les machines (cela aurait été trop simple de les configurer toutes de la même manière :( Comment peut-on en VBA demander de chercher si Mes Documents est sur C ou D ?
-- Cordialement,
Jacques.
Newbie
Simple et efficace ! Merci Pascal!
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
Re Ou sur une seule ligne : MsgBox Left(CreateObject("WScript.Shell").SpecialFolders("MyDocuments"), 2)
Cordialement Pascal
Simple et efficace !
Merci Pascal!
"papou" <cestpasbon@çanonplus> a écrit dans le message de
news:u5IDACbTGHA.4792@TK2MSFTNGP14.phx.gbl...
Re
Ou sur une seule ligne :
MsgBox Left(CreateObject("WScript.Shell").SpecialFolders("MyDocuments"),
2)