Classeur précédent
Fermé
marcloarec
Messages postés
14
Date d'inscription
mardi 24 mars 2015
Statut
Membre
Dernière intervention
5 juillet 2016
-
Modifié par pijaku le 25/03/2015 à 13:11
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 25 mars 2015 à 15:27
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 25 mars 2015 à 15:27
A voir également:
- Classeur précédent
- Vous devez lancer l'extraction depuis un volume précédent pour décompresser ✓ - Forum Compression
- En complément de mon précédent mail ✓ - Forum Windows
- Ce classeur comporte des liaisons avec une ou plusieurs sources externes ✓ - Forum Excel
- Oter protection classeur excel ✓ - Forum Excel
- Excel liaison avec un autre classeur fermé ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
25 mars 2015 à 13:16
25 mars 2015 à 13:16
Salut,
En toute fin de macro :
En toute fin de macro :
ThisWorkbook.Close True
25 mars 2015 à 13:24
Modifié par pijaku le 25/03/2015 à 13:34
Sub Découpe_Excel() Dim Classeur_Source As Workbook Dim Dernierelign As Long Set Classeur_Source = ThisWorkbook Dernierelign = Cells(Columns(4).Cells.Count, 1).End(xlUp).Row Rows("30389:" & Dernierelign).Cut Workbooks.Add ActiveSheet.Paste Dim nom As String nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur") Classeur_Source.Activate End SubEDIT : même si les activate et autres select sont à déconseiller...
25 mars 2015 à 14:19
25 mars 2015 à 14:30
Tu sais enregistrer le classeur actif?
Non?
Et maintenant, après mon code, quel est le classeur actif?
25 mars 2015 à 14:34
Je sais pas si je me fais bien comprendre, c'est possible que non :)