Comment forcer un enregistrement sur VBA
Résolu
keep
-
Proxymax -
Proxymax -
A voir également:
- Comment forcer un enregistrement sur VBA
- Forcer demarrage pc - Guide
- Forcer la suppression d'un fichier - Guide
- Forcer la reinitialisation pc - Guide
- Forcer à quitter - Guide
- Comment couper un enregistrement audio - Guide
6 réponses
Voilà un bout de proc que j'utilise (ChDir "C:\tonchemin" est ce que tu cherches) :
ChDir "C:\Documents and Settings"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
A+
ChDir "C:\Documents and Settings"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
A+
Salut,
ChDir "C:\Documents and Settings\user\bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\user\bureau\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
a+
ChDir "C:\Documents and Settings\user\bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\user\bureau\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
a+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
ChDir "C:\Documents and Settings\All Users\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\All Users\Bureau\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Et voilà...
A+
ChDir "C:\Documents and Settings\All Users\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\All Users\Bureau\Classeur2.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Et voilà...
A+
Re,
dsl mais là,je bloque...La fonction =INFO() doit pouvoir donner ça mais je sais pas avec quel argument...
Essaie ici : http://www.excel-downloads.com/forums/2.htm
A+
dsl mais là,je bloque...La fonction =INFO() doit pouvoir donner ça mais je sais pas avec quel argument...
Essaie ici : http://www.excel-downloads.com/forums/2.htm
A+
g trouvé une solution
Il existe des api qui permettais de trouver le user de l'ordi
Le code est le suivant:
'Déclaration api GetUserName
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'le code pour l'utiliser'
Private Sub Command6_Click()
Dim dwLen As Long
Dim strString As String
'Creer un buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'prend le nom
GetUserName strString, dwLen
'Affiche le nom utilisateur
MsgBox strString
End Sub
Il existe des api qui permettais de trouver le user de l'ordi
Le code est le suivant:
'Déclaration api GetUserName
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'le code pour l'utiliser'
Private Sub Command6_Click()
Dim dwLen As Long
Dim strString As String
'Creer un buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'prend le nom
GetUserName strString, dwLen
'Affiche le nom utilisateur
MsgBox strString
End Sub