Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL pour MAC Enregistrement d'un fichier avec sa date

M

meritein

XLDnaute Nouveau
Bonjour,
j'ai du mal à synthétiser ma demande d'où mon incapacité à trouver la réponse adéquate à mon problème sur le forum ou sur Google.
Admettons que j'ai un fichier qui porte le nom bonjourmonsieur.xlsb (il a déjà une macro et j'ai excel pour mac 2019). Le résultat que je voudrais atteindre est l'enregistrement de ce fichier de la façon suivante bonjourmonsieurjourmoisannée (jourmoisannée étant fourni automatiquement par excel au moment de la fermeture du fichier seulement mais, pas dans les enregistrements intermédiaires). Je ne sais si cela est assez clair. Merci d'avance pour votre aide.
 
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Meritein,
Un essai en PJ avec dans ThisWorbook :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fin
    Application.DisplayAlerts = False
    tablo = Split(ThisWorkbook.Name, ".")   ' Separe le nom de l'extension
    ' Mettre "\" si Windows, mettre "/" si MAC
    Nom = ThisWorkbook.Path & "/" & tablo(0) & " " & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "." & tablo(1)
    With ActiveWorkbook
        .SaveAs Nom
        .Close
    End With
    Application.DisplayAlerts = True
    DoEvents
    ' A supprimer si on ne veut pas sortir d'XL après enregistrement
    Application.Quit
Fin:
End Sub
La date est mise sous la forme 29_01_2021 car le "/" n'est pas autorisé dans les noms de fichiers.
Attention, je pense que le séparateur pour PC et MAC est différent. "\" pour PC et "/" pour MAC.
La macro est faite pour MAC mais je n'ai pas pu le vérifier.
La dernière ligne est à supprimer si on ne veut pas sortir d'XL après enregistrement.
 

Pièces jointes

  • Essai.xlsm
    14 KB · Affichages: 15
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour meritein,

Placez dans ThisWorkbook :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False 'si le fichier existe déjà
Me.SaveAs Me.Path & Application.PathSeparator & "bonjourmonsieur" & Format(Date, "ddmmyyyy"), 50 'format .xlsb
End Sub
Perso j'utiliserais plutôt "yyyymmdd" pour que les fichiers soient classés chronologiquement dans le dossier.

Edit : salut sylvanu, pas vu quand j'ai posté.

A+
 

Pièces jointes

  • bonjourmonsieur.xlsb
    14.3 KB · Affichages: 8
Dernière édition:
Vote positif 0 Vote négatif
M

meritein

XLDnaute Nouveau
Merci à tous les 2. Ci-dessous, la macro que j'ai copiée.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fin
Application.DisplayAlerts = False
tablo = Split(ThisWorkbook.Name, "'")
'"/"
Nom = ThisWorkbook.Path & "/" & tablo(0) & " " & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "." & tablo(1)
With ActiveWorkbook
.SaveAs Nom
.Close
End With
Application.DisplayAlerts = True
DoEvents
Application.Quit
Fin:
End Sub
Il ne se passe rien dans le nom du fichier enregistré. Qu'ai-je mal fait.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Je ne comprends pas vos lignes :
VB: 
tablo = Split(ThisWorkbook.Name, "'")
'"/"
Le séparateur Nom fichier et extension est le point, je suppose que c'est pareil sur le MAC donc :
Code: 
tablo = Split(ThisWorkbook.Name, ".")
Si vous mettez un point d'arrêt après cette ligne vous devez obtenir :
tablo(0)= NomduFichier
tablo(1)=TypeExtension

Avez vous testé ma PJ sans y toucher, marche t-elle ?
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
sylvanu à dit:
Je sais, mais le post #1 fait état d'un nom de fichier plus "conventionnel".
Cliquez pour agrandir...
Tu ne connais peut-être pas InStrRev :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fn$
fn = Me.FullName
Application.DisplayAlerts = False 'si le fichier existe déjà
Me.SaveAs Left(fn, InStrRev(fn, ".") - 1) & Format(Date, "-dd-mm-yyyy") & ".xlsm", 52 'format .xlsm
End Sub
 

Pièces jointes

  • Mes.hommages.madame.xlsm
    15.6 KB · Affichages: 3
Dernière édition:
Vote positif 0 Vote négatif
M

meritein

XLDnaute Nouveau
Encore merci. Les fichiers essai et Mes.hommages.madame enregistrent bien la date. Mais, à chaque fermeture la date de fermeture se rajoute à la date précédente. Cela n'allait pas sans le dire, mais, mon souhait serait d'avoir une seule date dans le nom du fichier (indiquant la date de dernière fermeture). Vous l'aurez compris, je ne connais rien au monde de la macro. Encore merci pour votre aide.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
meritein à dit:
Mais, à chaque fermeture la date de fermeture se rajoute à la date précédente.
Cliquez pour agrandir...
D'accord :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fn$, sansextension
fn = Me.FullName
sansextension = Left(fn, InStrRev(fn, ".") - 1)
If sansextension Like "*-##-##-####" Then sansextension = Left(sansextension, Len(sansextension) - 11)
Application.DisplayAlerts = False 'si le fichier existe déjà
Me.SaveAs sansextension & Format(Date, "-dd-mm-yyyy") & ".xlsm", 52 'format .xlsm
End Sub
Mais il serait plus logique de faire toutes les modifications sur le même fichier sans date et de créer des fichiers .xlsx (code 51) sans macro :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False 'si le fichier existe déjà
Me.SaveAs Left(Me.FullName, InStrRev(Me.FullName, ".") - 1) & Format(Date, "-dd-mm-yyyy") & ".xlsx", 51 'format .xlsx
End Sub
Voyez les 2 fichiers joints.
 

Pièces jointes

  • Mes.hommages.madame1.xlsm
    13.6 KB · Affichages: 4
  • Mes.hommages.madame2.xlsm
    15.7 KB · Affichages: 6
Vote positif 0 Vote négatif
M

meritein

XLDnaute Nouveau
Une simulation rapide sur les 2 fichiers semble montrer que cela fonctionne comme souhaité. Pour compléter cette simulation j'effectuerai d'autres manip demain.....................et reviendrais vers vous les cas échéant.
Merci encore et bonne soirée.
 
Vote positif 0 Vote négatif
M

meritein

XLDnaute Nouveau
Bonjour,
voici 2 images de ce qui se trouve dans un de mes fichiers pour lequel je souhaite enregistrer la date de fermeture. Visiblement, la date ne se met pas à jour automatiquement. Que dois-je faire pour réparer ce problème ? Merci.
 

Pièces jointes

  • Capture d’écran 2021-01-30 à 09.14.21.png
    21 KB · Affichages: 15
  • Capture d’écran 2021-01-30 à 09.15.43.png
    112.1 KB · Affichages: 15
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question Question
Microsoft 365 PB enregistrement fichier partagé
Réponses
0
Affichages
381
Nounours4173
N
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
836
firecarl
F
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
487
arnoldbrice19
A
E
  • Résolu(e)
Microsoft 365 Enregistrement en PDF avec modification du nom en fonction du contenu de cellules
Réponses
2
Affichages
875
Elwer
E
B
  • Résolu(e)
Microsoft 365 bug dans une formule
Réponses
11
Affichages
727
BOILEAU
B
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
L
  • Question Question
XL 2016 Document Excel VBA finalisé - Besoin d'un avis
Réponses
10
Affichages
645
Phil69970
  • Résolu(e)
Microsoft 365 Variabiliser le nom d'un fichier créé/enregistré chaque jour selon la date
Réponses
5
Affichages
2 K
MOA_Excel
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
M
  • Question Question
XL 2016 Extraire des données d'un fichier CSV vers un fichier Excel avec critères
Réponses
1
Affichages
2 K
Hasco
M
  • Résolu(e)
XL 2013 Copier un Userform d'un fichier Excel vers un autre avec en l'adaptant avec les nouvelles feuilles
Réponses
10
Affichages
2 K
metalbarzotti
M
  • Résolu(e)
XL 2010 Erreurs macro code machine pour PC unique
Réponses
11
Affichages
926
Orson83
6
  • Question Question
Autres Fichier Excel en réseau
Réponses
6
Affichages
1 K
_Thierry
L
  • Question Question
Accès au formulaire d'un fichier Excel ouvert avec un deuxième fichier excel ouvert
Réponses
4
Affichages
1 K
Legendre
L
E
  • Question Question
XL 2016 probleme sur un code : enregistrement d'un fichier excel en csv avec séparateur ;
Réponses
0
Affichages
872
Excelo92
E
T
  • Question Question
Autres Alternative à formules matricielles complexes (fichier lent)
Réponses
12
Affichages
2 K
CISCO
L
  • Question Question
XL 2019 Rafraîchissement et enregistrement automatique d'un classeur excel
Réponses
2
Affichages
2 K
loulou81012
L
T
  • Question Question
XL 2013 Signaler toutes les connexions slicercaches/TCD possibles d'un classeur d'un coup avec VBA.
Réponses
0
Affichages
1 K
Tabanet1
T
F
  • Résolu(e)
XL 2016 Classement d'un fichier d'import de commande alimentaire
Réponses
4
Affichages
874
Fabrice0501
F
K
  • Question Question
XL 2010 Extraction de lignes d'un fichier texte selon un argument
Réponses
6
Affichages
2 K
micheldu52
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…