High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Comment forcer un enregistrement sur VBA

Dernière réponse le 4 mar 2005 à 13:35:51 keep, le 1 mar 2005 à 17:29:25 
 Signaler ce message aux modérateurs

J'aimerais forcer l'enregistrement de ma feuille escel dans un répertoire précis comment puis je faire ca??

Meilleures réponses pour « comment forcer un enregistrement sur VBA » dans :
Excel - Convertir fichier(s) CSV / XLS VoirComme dit dans le titre, cette application convertit des fichiers CSV en fichiers XLS N’est pas nécessaire pour Excel 2007, ce dernier faisant la conversion automatiquement La conversion n’ayant pas de mise en forme, en cas de modification...
VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...
[Windows] Personnaliser la boîte de dialogue 'Enregistrer' VoirPersonnaliser la boîte de dialogue "Enregistrer" ou "Enregistrer sous..." de Windows (XP ou 2000); Plus précisément, il s'agit de personnaliser la colonne de gauche, contenant par défaut les raccourcis (icônes) "Mes documents récents", "Bureau",...
Posez votre question Répondre

1

Kobaya, le 1 mar 2005 à 17:48:13

Salut,

ActiveWorkbook.SaveAs "C:\Temp\MonFichier.xls"

A+,
Kobaya.

   
Répondre à Kobaya

2

tompols, le 1 mar 2005 à 17:52:58

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+

   
Répondre à tompols

3

keep, le 2 mar 2005 à 14:07:01

Merci bcp pour les infos

Par contre est ce possble de le focer l'enregistrement sur le bureau?

   
Répondre à keep

4

tompols, le 2 mar 2005 à 15:44:10

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+

   
Répondre à tompols

5

keep, le 2 mar 2005 à 16:15:24

Est ce que ca enregistre direct sur le bureau ss pour auttant selectionné le user.
Sinon est ce que c possible de récupérer le user pour que ca le fasse automatiquement?

   
Répondre à keep

6

tompols, le 2 mar 2005 à 16:25:42

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+

   
Répondre à tompols

7

keep, le 2 mar 2005 à 16:35:17

J'y ai pensé mais qqfois les user supprime le all user donc ca ne va pas fonctionné.
Et je le veux pour le user qui utilise la machine pas pour ts les users car certain donné sont confidentiel

   
Répondre à keep

8

tompols, le 2 mar 2005 à 16:58:34

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+

   
Répondre à tompols

9

keep, le 2 mar 2005 à 17:02:48

Ok merci bcp ;)

   
Répondre à keep

10

tompols, le 2 mar 2005 à 17:15:00

De rien, tiens-moi au courant si tu as une solution, ça pourrait tjs me servir un de ces jours ;-)...

A+

   
Répondre à tompols

11

 keep, le 4 mar 2005 à 13:35:51

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

   
Répondre à keep
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net