Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:\Documents and Settings\Nom d'utilisateur\
Application Data\toto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
--
Cordialement,
Jacques.
Bonjour Alain Lebayle,
En VBA :
MsgBox Environ("AppData") & "Toto"
Dans une invide de commnande :
Echo %appdata%
Alain Lebayle a écrit :
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
--
Cordialement,
Jacques.
Alain Lebayle
Bonjour, Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ? Je te remercie encore une fois ;-) Alain
Jacques93 a écrit :
Bonjour Alain Lebayle,
En VBA :
MsgBox Environ("AppData") & "Toto"
Dans une invide de commnande :
Echo %appdata%
Alain Lebayle a écrit :
Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Bonjour,
Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ?
Je te remercie encore une fois ;-)
Alain
Jacques93 a écrit :
Bonjour Alain Lebayle,
En VBA :
MsgBox Environ("AppData") & "Toto"
Dans une invide de commnande :
Echo %appdata%
Alain Lebayle a écrit :
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Bonjour, Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ? Je te remercie encore une fois ;-) Alain
Jacques93 a écrit :
Bonjour Alain Lebayle,
En VBA :
MsgBox Environ("AppData") & "Toto"
Dans une invide de commnande :
Echo %appdata%
Alain Lebayle a écrit :
Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
michdenis
Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Bonjour,
Dim Usager As string
Dim Chemin As String
Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message de groupe de
discussion : uohSg1O1KHA.5828@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
michdenis
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Il y a aussi :
Usager = Environ("USERPROFILE")
qui te retourne toute cette section :
"C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'--------------------------
Sub test1()
For a = 1 To 50
Worksheets("Feuil1").Range("A" & a) = Environ(a)
Next
End Sub
'--------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
CEF3BB6A-45ED-419B-8635-9C9587FFFE4E@microsoft.com...
Bonjour,
Dim Usager As string
Dim Chemin As String
Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message de groupe de
discussion : uohSg1O1KHA.5828@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Jacques93
Oui, mais pas avec la même syntaxe :
Dim oShell
Set oShell = CreateObject( "WScript.Shell" ) MsgBox oShell.ExpandEnvironmentStrings("%AppData%") & "Toto" set oShell = Nothing
Alain Lebayle a écrit :
Bonjour, Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ? Je te remercie encore une fois ;-) Alain
Jacques93 a écrit :
Bonjour Alain Lebayle,
En VBA :
MsgBox Environ("AppData") & "Toto"
Dans une invide de commnande :
Echo %appdata%
--
Cordialement,
Jacques.
Oui, mais pas avec la même syntaxe :
Dim oShell
Set oShell = CreateObject( "WScript.Shell" )
MsgBox oShell.ExpandEnvironmentStrings("%AppData%") & "Toto"
set oShell = Nothing
Alain Lebayle a écrit :
Bonjour,
Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ?
Je te remercie encore une fois ;-)
Alain
NB : Il y groupe dédié au scripting (pas uniquement VBS)
microsoft.public.fr.scripting
Alain Lebayle a écrit :
Bonjour, Et en VBS, puis-je utiliser Environ("AppData") & "Toto" ? Je te remercie encore une fois ;-) Alain
--
Cordialement,
Jacques.
Alain Lebayle
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Bonjour MichDenis et Jacques93
Je vous remercie de vous pencher sur mon problème, mais cela ne
fonctionne pas, en VBS.
Voici un bout du code et je souhaite que cela fonctionne malgré un
utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication
DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie
Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE")
qui te retourne toute cette section :
"C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'--------------------------
Sub test1()
For a = 1 To 50
Worksheets("Feuil1").Range("A" & a) = Environ(a)
Next
End Sub
'--------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
CEF3BB6A-45ED-419B-8635-9C9587FFFE4E@microsoft.com...
Bonjour,
Dim Usager As string
Dim Chemin As String
Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le message de groupe de
discussion : uohSg1O1KHA.5828@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Jacques93
Comme indiqué par 'at' sur le forum vb, dans un script VBS il faut utiliser la méthode CopyFile du FileSystemObject :
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion : Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
--
Cordialement,
Jacques.
Comme indiqué par 'at' sur le forum vb, dans un script VBS il faut
utiliser la méthode CopyFile du FileSystemObject :
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93
Je vous remercie de vous pencher sur mon problème, mais cela ne
fonctionne pas, en VBS.
Voici un bout du code et je souhaite que cela fonctionne malgré un
utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication
DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie
Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE")
qui te retourne toute cette section :
"C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'--------------------------
Sub test1()
For a = 1 To 50
Worksheets("Feuil1").Range("A" & a) = Environ(a)
Next
End Sub
'--------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe
de discussion : CEF3BB6A-45ED-419B-8635-9C9587FFFE4E@microsoft.com...
Bonjour,
Dim Usager As string
Dim Chemin As String
Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le
message de groupe de
discussion : uohSg1O1KHA.5828@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion : Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
--
Cordialement,
Jacques.
Alain Lebayle
Bonsoir Jacques93, le script avec Copy fonctionne très bien, En fait, je souhaite installer ce script dans le groupe de démarrage de chaque PC de mon service, mais le pb est que cela change suivant chaque utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Je te remercie
Alain
mais je souhaite
Jacques93 a écrit :
Comme indiqué par 'at' sur le forum vb, dans un script VBS il faut utiliser la méthode CopyFile du FileSystemObject :
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion : Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Bonsoir Jacques93,
le script avec Copy fonctionne très bien,
En fait, je souhaite installer ce script dans le groupe de démarrage de
chaque PC de mon service, mais le pb est que cela change suivant chaque
utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication
DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Je te remercie
Alain
mais je souhaite
Jacques93 a écrit :
Comme indiqué par 'at' sur le forum vb, dans un script VBS il faut
utiliser la méthode CopyFile du FileSystemObject :
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93
Je vous remercie de vous pencher sur mon problème, mais cela ne
fonctionne pas, en VBS.
Voici un bout du code et je souhaite que cela fonctionne malgré un
utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication
DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie
Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE")
qui te retourne toute cette section :
"C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'--------------------------
Sub test1()
For a = 1 To 50
Worksheets("Feuil1").Range("A" & a) = Environ(a)
Next
End Sub
'--------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe
de discussion : CEF3BB6A-45ED-419B-8635-9C9587FFFE4E@microsoft.com...
Bonjour,
Dim Usager As string
Dim Chemin As String
Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application
Datatoto"
"Alain Lebayle" <alain.lebayle@club-internet.fr> a écrit dans le
message de groupe de
discussion : uohSg1O1KHA.5828@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à contourner un problème, je souhaite atteindre un fichier
toto, qui se trouve en C:Documents and SettingsNom d'utilisateur
Application Datatoto, le problème est que le nom d'utilisateur est
forcément différend d'un poste à l'autre.
Comment faire afin de contourner le pb ?
Je vous remercie
Alain
Bonsoir Jacques93, le script avec Copy fonctionne très bien, En fait, je souhaite installer ce script dans le groupe de démarrage de chaque PC de mon service, mais le pb est que cela change suivant chaque utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Je te remercie
Alain
mais je souhaite
Jacques93 a écrit :
Comme indiqué par 'at' sur le forum vb, dans un script VBS il faut utiliser la méthode CopyFile du FileSystemObject :
Copy tout court, tu ne peux l'utiliser que dans un .bat ou un .cmd
Alain Lebayle a écrit :
Bonjour MichDenis et Jacques93 Je vous remercie de vous pencher sur mon problème, mais cela ne fonctionne pas, en VBS. Voici un bout du code et je souhaite que cela fonctionne malgré un utilisateur différent.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
copy Origine,"C:PREFS.JSpref.js" & " " & jma
Je vous remercie Alain
michdenis a écrit :
Il y a aussi :
Usager = Environ("USERPROFILE") qui te retourne toute cette section : "C:Documents and SettingsNom d'utilisateur"
Et pour avoir la liste complète, utilise cette petite macro
'-------------------------- Sub test1() For a = 1 To 50 Worksheets("Feuil1").Range("A" & a) = Environ(a) Next End Sub '--------------------------
"michdenis" a écrit dans le message de groupe de discussion : Bonjour,
Dim Usager As string Dim Chemin As String Usager = Environ("UserName")
Chemin = "C:Documents and Settings" & Usager & Application Datatoto"
"Alain Lebayle" a écrit dans le message de groupe de discussion : Bonjour, Je cherche à contourner un problème, je souhaite atteindre un fichier toto, qui se trouve en C:Documents and SettingsNom d'utilisateur Application Datatoto, le problème est que le nom d'utilisateur est forcément différend d'un poste à l'autre. Comment faire afin de contourner le pb ? Je vous remercie Alain
Jacques93
Alain Lebayle a écrit :
Bonsoir Jacques93, le script avec Copy fonctionne très bien,
On ne doit pas avoir la même version de VBS ...
En fait, je souhaite installer ce script dans le groupe de démarrage de chaque PC de mon service, mais le pb est que cela change suivant chaque utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Pour l'utilisateur, voir ma réponse du 05/04/10 à 22:48
Dim oShell
Set oShell = CreateObject( "WScript.Shell" ) MsgBox oShell.ExpandEnvironmentStrings("%AppData%") & "Toto" Set oShell = Nothing
Mais ça ne réglera pas tout, car le nom du profil TB, dans ton exemple ia02c5qy est lui aussi variable.
--
Cordialement,
Jacques.
Alain Lebayle a écrit :
Bonsoir Jacques93,
le script avec Copy fonctionne très bien,
On ne doit pas avoir la même version de VBS ...
En fait, je souhaite installer ce script dans le groupe de démarrage de
chaque PC de mon service, mais le pb est que cela change suivant chaque
utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication
DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Pour l'utilisateur, voir ma réponse du 05/04/10 à 22:48
Dim oShell
Set oShell = CreateObject( "WScript.Shell" )
MsgBox oShell.ExpandEnvironmentStrings("%AppData%") & "Toto"
Set oShell = Nothing
Mais ça ne réglera pas tout, car le nom du profil TB, dans ton exemple
ia02c5qy est lui aussi variable.
Bonsoir Jacques93, le script avec Copy fonctionne très bien,
On ne doit pas avoir la même version de VBS ...
En fait, je souhaite installer ce script dans le groupe de démarrage de chaque PC de mon service, mais le pb est que cela change suivant chaque utilisateur, j'ai un pb avec l'utilisateur.
Origine = "C:Documents and Settingsl'utilisateurApplication DataThunderbirdProfilesia02c5qy.defaultprefs.js"
Pour l'utilisateur, voir ma réponse du 05/04/10 à 22:48
Dim oShell
Set oShell = CreateObject( "WScript.Shell" ) MsgBox oShell.ExpandEnvironmentStrings("%AppData%") & "Toto" Set oShell = Nothing
Mais ça ne réglera pas tout, car le nom du profil TB, dans ton exemple ia02c5qy est lui aussi variable.