Comment forcer un enregistrement sur VBA
Résolu/Fermé
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 windows - Guide
- Comment enregistrer une musique sur youtube en mp3 - Guide
6 réponses
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
1 mars 2005 à 17:52
1 mars 2005 à 17:52
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+
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
1 mars 2005 à 17:48
1 mars 2005 à 17:48
salut,
ActiveWorkbook.SaveAs "C:\Temp\MonFichier.xls"
ActiveWorkbook.SaveAs "C:\Temp\MonFichier.xls"
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
2 mars 2005 à 15:44
2 mars 2005 à 15:44
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
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
2 mars 2005 à 16:25
2 mars 2005 à 16:25
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+
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
2 mars 2005 à 16:58
2 mars 2005 à 16:58
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+
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
>
keep
2 mars 2005 à 17:15
2 mars 2005 à 17:15
De rien, tiens-moi au courant si tu as une solution, ça pourrait tjs me servir un de ces jours ;-)...
A+
A+
keep
>
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
4 mars 2005 à 13:35
4 mars 2005 à 13:35
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