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

Ouverture de mon nouveau classeur enregistré

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kwakos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kwakos

XLDnaute Occasionnel
Coucou tout le monde,
Le forum,

Voici que mon fichier est bientôt terminé (et ça ne serait pas le cas sans certains d'entrevous alors encore un grand merci à ceux qui se reconnaitront).

Voilà, en fin de journée je ferme mon classeur principale avec une sauvegarde à la date du jour et de mes nouveaux clients dans mon classeur CLIENTS

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Worksheets("config").Visible = True Then 'j'ai mis ça pour qu'en réouverture de fichier pour simple consultation, cela ne lance pas la macro
Dim destination As Workbook
Workbooks.Open (ThisWorkbook.Path & "\CLIENTS.xls")
Set destination = ActiveWorkbook
ThisWorkbook.Sheets("clients").Range("A5:G5000").Copy destination.Sheets("clientts").Range("A5")
destination.Close savechanges:=True

With ThisWorkbook
Application.DisplayAlerts = False
.Sheets("Reçu").Delete
.Sheets("clients").Delete
.Sheets("depenses").Delete
.Sheets("config").Visible = False
.Sheets("Journee").Shapes("CommandButton1").Delete
.Sheets("Journee").Shapes("CommandButton4").Delete
.Sheets("Journee").Shapes("CommandButton5").Delete
Application.DisplayAlerts = True
End With
Dim nom As String
nom = CStr(Format(Date, "dd mmmm yyyy")) & ".xls"
Application.Dialogs(xlDialogSaveAs).Show nom
ThisWorkbook.Close savechanges = True
Else
End If
End Sub


Mais voilà, à la fin, tout se ferme... Normal vous me direz, c'est dans la macro... Mais moi ce que je voudrais c'est que le fichier nom (c'est à dire à la date du jour après le saveas) ne se ferme pas. Je voudrais que mon fichier principal se ferme, mais pas celui de sauvegarde en saveas....
Comment faire ???

Merci à tous...🙂

kwakos
 
Trier par date Trier par votes
Re : Ouverture de mon nouveau classeur enregistré

bonsoir kwakos, le forum,

La réponse est dans ta question mais j'espère avoir bien compris.😛

Si tu ne veux pas que le fichier se ferme, pourquoi utiliser .close?

avec: Thisworkbook.saveas filename:=nom

ça devrait suffir.

A+

smotty
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

....................................

J'ai honte.... 🙁

😱

Ca doit être la fatigue .... on va dire ça.... 🙄

Merci Smotty de me remettre les yeux en face des trous

A+ le forum !

kwakos
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

Bonsoir,
bonsoir smotty 🙂
Moi ce que je comprends moins bien, c'est que la procédure est lancée à la fermeture du fichier...que tu ne veux pas fermer ! (Workbook_BeforeClose)
A+
kjin
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

Re le forum
re Smotty

Et ben non !!! 😛
En effet si je remplace par
thisworkbook.saveas nom

cela m'enregistre le fichier dans le même repertoire alors que je souhaite avoir une fenetre type "fichier>enregistrer sous" qui me permettre de sélectionner un autre dossier de destination...

Héhé... 😀

????

A+

kwakos
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

kjin à dit:
Bonsoir,
bonsoir smotty 🙂
Moi ce que je comprends moins bien, c'est que la procédure est lancée à la fermeture du fichier...que tu ne veux pas fermer ! (Workbook_BeforeClose)
A+
kjin
Cliquez pour agrandir...

le forum,
kjin, smotty 🙄

En effet je souhaite fermer mon classeur principal de la journée mais avant fermeture (Workbook_BeforeClose) je veux en faire une sauvegarde sous le nom du jour ('nom') dans un autre dossier. A la fin de la procédure je souhaite que mon fichier principal soit fermé et celui de sauvegarde reste ouvert...
Je ne suis pas sur d'être plus clair (fatigue, fatigue...😛)

merci de vous penchez sur mon problème...

kwakos
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

Re,
Il me semble qu'il faut dissocier les 2 macros et que chaque classeur ait sa propre procédure Workbook_BeforeClose
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Dest As String, Source As String, nom As String
If ActiveWorkbook.Worksheets("config").Visible = True Then 'j'ai mis ça pour qu'en réouverture de fichier pour simple consultation, cela ne lance pas la macro
nom = CStr(Format(Date, "dd mmmm yyyy")) & ".xls"
Source = ActiveWorkbook.Name
Dest = "CLIENTS.xls"
Workbooks.Open (ActiveWorkbook.Path & "\" & Dest)
Workbooks(Source).Sheets("clients").Range("A5:G5000").Copy Workbooks(Dest).Sheets("clientts").Range("A5")
With Workbooks(Source)
Application.DisplayAlerts = False
.Sheets("Reçu").Delete
.Sheets("clients").Delete
.Sheets("depenses").Delete
.Sheets("config").Visible = False
.Sheets("Journee").Shapes("CommandButton1").Delete
.Sheets("Journee").Shapes("CommandButton4").Delete
.Sheets("Journee").Shapes("CommandButton5").Delete
Application.Dialogs(xlDialogSaveAs).Show nom
.Close savechanges = True
End With
End If
Application.DisplayAlerts = True
End Sub
Reste à mettre le code d'enregistrement auto à la fermeture du classeur Dest
A+
kjin
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

le forum, smotty, kjin

ok je vais essayer ça kjin, mais en fait là je m'étais endormi sur mon canapé le pc sur les genoux... 🙁

Je vous donne le résultat demain, de suite je me glisse dans mes draps...

Merci encore

kwakos
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré


Re le forum, kjin, smotty...

Avec cette solution kjin, le problème est que c'est mon classeur CLIENTS qui est sauvegardé avec le nom du jour et pas ma feuille principale...
Je teste encore....

A+

kwakos
 
Vote positif 0 Vote négatif
Re : Ouverture de mon nouveau classeur enregistré

Bonjour,
Faut dire qu'on est un peu dans les ténèbres 😱
Pourrais tu au moins à défaut de fichier, expliquer tout ceci en français dans le texte
Par ailleurs, enregistrer une copie de ton fichier dans un autre répertoire, c'est bien mais à moins de la supprimmer par le code, ça ne t'affranchira pas de la macro qui sera copiée elle aussi !
A tester
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Dest As String, Source As String, nom As String
Application.DisplayAlerts = False
If ActiveWorkbook.Worksheets("config").Visible = True Then 'j'ai mis ça pour qu'en réouverture de fichier pour simple consultation, cela ne lance pas la macro
nom = CStr(Format(Date, "dd mmmm yyyy")) & ".xls"
Source = ActiveWorkbook.Name
Dest = "CLIENTS.xls"
Workbooks.Open (ActiveWorkbook.Path & "\" & Dest)
Windows(Source).Activate
With ActiveWorkbook
.Sheets("clients").Range("A5:G5000").Copy Workbooks(Dest).Sheets("clientts").Range("A5")
.Sheets("Reçu").Delete
.Sheets("clients").Delete
.Sheets("depenses").Delete
.Sheets("config").Visible = False
.Sheets("Journee").Shapes("CommandButton1").Delete
.Sheets("Journee").Shapes("CommandButton4").Delete
.Sheets("Journee").Shapes("CommandButton5").Delete
Application.Dialogs(xlDialogSaveAs).Show nom
End If
End With
Application.DisplayAlerts = True
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
681
Pimpon974
P
J
  • Résolu(e)
Autres Pb d'affichage d'un objet
Réponses
2
Affichages
544
JPaul78
J
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
701
loreak
L
Y
  • Question Question
XL 2010 besoin d'aide
Réponses
3
Affichages
719
TooFatBoy
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
  • Question Question
XL 2016 rafraîchir écran
Réponses
0
Affichages
988
KTM
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
B
  • Question Question
XL 2019 bug dans l'enregistrement (VBA)
Réponses
9
Affichages
2 K
bluesky12000
B
M
  • Question Question
XL 2013 Copier plusieurs onglets vers un autre classeur
2
Réponses
27
Affichages
3 K
MCMAL
M
O
  • Question Question
XL 2019 Excel VBA - Condition selon le nom du fichier
Réponses
5
Affichages
2 K
Staple1600
P
  • Question Question
XL 2016 Forcer l'ouverture de la copie d'un classeur sur un onglet précis
Réponses
14
Affichages
1 K
pat66
P
R
  • Question Question
XL 2016 Gestion de chemin de fichiers + VBA
Réponses
0
Affichages
3 K
Ryoken
R
M
  • Question Question
Problème de référence formule et graphique lors de copie de feuilles excel pour réinitialiser données
Réponses
4
Affichages
2 K
mathi22
M
L
  • Question Question
XL 2016 copier et garder la largeur des col
Réponses
12
Affichages
1 K
linebich
L
T
  • Question Question
Copier des onglets dans un nouveau fichier
Réponses
0
Affichages
1 K
tamatave33
T
  • Question Question
Gmail via CDO, attacher un fichier PDF, des adresses, un objet et un corps bien définit, code de Roland_M.
2 3
Réponses
43
Affichages
6 K
Roland_M
Y
  • Question Question
problème de macro pour conversion feuille en PDF
Réponses
0
Affichages
1 K
yann_160
Y
C
  • Question Question
XL 2013 Absence de prompt enregistrement après macro
Réponses
3
Affichages
1 K
Lone-wolf
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…