Comment forcer un enregistrement sur VBA
Résolu
keep
-
Proxymax -
Proxymax -
j'aimerais forcer l'enregistrement de ma feuille escel dans un répertoire précis comment puis je faire ca??
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+ -
salut,
ActiveWorkbook.SaveAs "C:\Temp\MonFichier.xls"
-
-
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+ -
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+ -
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+-
- 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
-
