Nommer un fichier avec vba

Version imprimable

10/12/2014, 12h14
iliesss

Nommer un fichier avec vba

Bonjour
J'ai un fichier classeur1
Je souhaite le nommer et le sauvegarder au baureau avec cette expression
Grand livre date du jour heure du systhem
Exemple :
Grand livre le 10 dec 2014 11h10
Merci

Bonjour,

Test ça :

Code:

1
2
3
4
5
6
Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\" ' met le chemin de ton bureau à la place de ActiveWorkbook.Path et entre " "
valeur = "Grand livre le " & Format(Date, "dd-mmmm-yyyy") & " " & Format(Time, "hh-mm") & ".xlsm"
ThisWorkbook.SaveAs Path & valeur
End Sub

Cordialement,
Ltspitfire

10/12/2014, 14h48
Invité

bonjour,
s'il s'appelle classeur1 c'est que le classeur Excel est nouveau donc ActiveWorkbook.Path va planter !

Code:

Path = ThisWorkbook.Path & "\"
10/12/2014, 15h10
Ltspitfire

Salut rdurupt,

Je pensais qu'en changeant le "ThisWorkbook.Path" par le chemin jusqu'au bureau cela allait fonctionner (d'où le commentaire).

Cordialement,
Ltspitfire

Code:

Path = Environ("UserProfile") & "\Bureau"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
USERNAME		Nom de l’utilisateur ayant ouvert la session Windows.
USERDOMAIN		Nom du domaine auquel appartient l’utilisateur.
USERPROFILE		Chemin pointant vers le dossier où est stocké le profil (les réglages divers comme le fond d’écran, les icônes, les paramètres de logiciels) de l’utilisateur.
ALLUSERSPROFILE	Chemin pointant vers le dossier “Documents partagés”, sous Windows XP.
APPDATA			Chemin pointant vers le dossier “Application” de l’utilisateur.Sous Windows XP, il s’agit d’un dossier nommé Application Data résidant le dossier profil de l’utilisateur.
                                C’est dans ce dossier que sont stockés les réglages de vos logiciels (pour un utilisateur donné, donc).
COMPUTERNAME       Nom de l’ordinateur.
HOMEDRIVE		Nom du disque où se trouve le dossier personnel de l’utilisateur.
HOMEPATH		Chemin – sans le nom du disque (HOMEDRIVE) pointant vers le dossier personnel de l’utilisateur.
LOGONSERVER		Serveur ayant identifié l’utilisateur lors de l’ouverture de la session. Il peut s’agir de la machine elle-même.
OS				Nom du système d’exploitation.
PATH			Différents chemins définis par défaut.
PATHEXT			Différentes extensions prises en compte par le système.
SYSTEMDRIVE		Nom du disque où se trouve le système d’exploitation.Exemple : C:
SYSTEMROOT		Chemin pointant vers le dossier contenant le système d’exploitation.Exemple : C:WINDOWS
TEMP			Nom du dossier temporaire de l’utilisateur.
TMP				Variante du précédent.
NUMBER_OF_PROCESSORS         Nombre de micro-processeurs sur la machine.
PROCESSOR_ARCHITECTURE     Type d’architecture du processeur.Exemple : x86 pour les processeurs Intel.
PROCESSOR_IDENTIFIER           Identifiant plus détaillé du processeur.
PROCESSOR_LEVEL                    Niveau du processeur.
PROCESSOR_REVISION             Numéro de révision du processeur.

10/12/2014, 23h33
iliesss

2 pièce(s) jointe(s)

bonjour

bonjour les amis et merci pour vos réponses
lorsque j'ai lancé macro voici le premier message et moi je souhaite le enregistré sans macro

Pièce jointe 163561

et après voici le deuxième message

Pièce jointe 163560

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim Fichier As String
Fichier = Environ("UserProfile") & "\Bureau"
If Repertoires_Existe(Fichier) = False Then Fichier = Environ("UserProfile") & "\Desktop"
Fichier = Fichier & "\toto.xls"
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlExcel8
End Sub
'Permet de vérifier si le répertoire dont le nom est précisé en paramètre (Repertoires) existe. Retourne True s'il existe, sinon False
Public Function Repertoires_Existe(Repertoires As String) As Boolean
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Repertoires_Existe = Fso.FolderExists(Repertoires)
Set Fso = Nothing
End Function

11/12/2014, 00h21
Invité

de toute façon rien que le chemin (Path) est une abomination!

Bonjour,

Quand je mettais "mettre le chemin du bureau" je pensais à :

Sub Enreg()

Code:

1
2
3
4
5
Dim Path As String, valeur As String
Path = "C:\Users\fad\Desktop\"
valeur = "Grand livre le " & Format(Date, "dd-mmmm-yyyy") & " " & Format(Time, "hh-mm") & ".xlsm" ' je m'étais trompé dans l'extension
ThisWorkbook.SaveAs Path & valeur
End Sub

Cordialement,
Ltspitfire

bonjour,
c'est ce que fait ma solution en post #7; mais elle s'adapte à l'utilisateur connecté et au système d'exploitation!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
Dim Path As String, valeur As String
Path = Environ("UserProfile") & "\Bureau"
If Repertoires_Existe(Path) = False Then Path = Environ("UserProfile") & "\Desktop"
valeur = "Grand livre le " & Format(Date, "dd-mmmm-yyyy") & " " & Format(Time, "hh-mm") & ".xlsm" ' je m'étais trompé dans l'extension
ThisWorkbook.SaveAs Filename:=Path & "\" & valeur, FileFormat:=xlOpenXMLWorkbookMacroEnabled 'Pour le format XLSM
End Sub
'Permet de vérifier si le répertoire dont le nom est précisé en paramètre (Repertoires) existe. Retourne True s'il existe, sinon False
Public Function Repertoires_Existe(Repertoires As String) As Boolean
Dim Fso As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
Repertoires_Existe = Fso.FolderExists(Repertoires)
Set Fso = Nothing
End Function

11/12/2014, 14h22
Ltspitfire

Re,

C'est vrai que ta solution est beaucoup plus propre et générale que la mienne et aussi plus sur :)

Cordialement,
Ltspitfire
18/12/2014, 15h14
iliesss

1 pièce(s) jointe(s)

bonjour

salut les amis et merci pour vos réponses
dessolé pour ce retard j’étais loin dans un endroit sans connexion
la macro fonctionne très bien alors j'ai essayé la enchaîné avec une autre macro complémentaire et voici ce message

Pièce jointe 164221