Enregistrement automatique

[tallia64]

Bonsoir je travaille sur deux fichier formulaire et extraction. Je souhaiterais à la fermeture du fichier "formulaire" qu'il s'enregistre automatiquement sous "extraction" et qu'à chaque fois il écrase ainsi je n'aurais pas le message "souhaitez vous le remplacer ?". Pouvez vous m'aider s'il vous plait je vous remercie beaucoup.
Tallia

 

[Guest]

Re : Enregistrement automatique

bonsoir Tallia,

Dans le module de code ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Détruit le fichier Extraction s'il existe dans le répertoire
   If Dir(ThisWorkBook.Path & "\Extraction.xls")<>"" then Kill ThisWorkBook.Path & "\Extraction.xls"
 
   'Fait une copy de Formulaire sous le nom Exctration.xls
   ThisWorkBook.SaveCopyAs ThisWorkBook.Path & "\Extraction.xls"
End Sub

A+

 

[JCGL]

Re : Enregistrement automatique

Bonjour à tous,

Peut-être plus court mais pas testé, arf juste pour "contrarier" l'ami Hasco :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
   ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Extraction.xls"
   Application.DisplayAlerts = True
End Sub

A++ Hasco
A+ à tous

 

[BERRACHED said]

Re : Enregistrement automatique

Salut,tallia64

essayé ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show CStr("Extraction")
End Sub

Cordialement

Edition : salut Hasco,JCGL

 

[Guest]

Re : Enregistrement automatique

JC,
Moi, contrarié. Meuh Non!

Non seulement t'auras pas le droit au vin Jaune ce soir, mais t'auras pas non plus de Trouspinette (On ne rit pas!)🙂

Allez- va je t'offre une bouteille de Lambig!

A+++ L'ami

 

[tallia64]

Re : Enregistrement automatique

bonsoir à vous tous quelle bonne humeur !!! je vous remercie pour vos codes que je vais tester.
Merci beaucoup.
Tallia

 

[JCGL]

Re : Enregistrement automatique

Re,

Ah ben la je ne connaissais pas la Trouspinette mais la recette à l'air sympa.
Et le nom me convient à ravir....

Trouvé sur SuperToinette :
Une grosse poignée de jeunes pousses d'épine noire
4 litres de vin
1 litre d'eau de vie
500gr de sucre

Laisser macérer une quinzaine de jours dans le vin et l'eau de vie, filtrer,sucrer et boucher.

A++ mon ami
A+ à tous

 

[Guest]

Re : Enregistrement automatique

Re,

JC,
J'avais bien-sûr🙄 fait une faute d'orthographe! c'est: Troussepinette

Tallia,JC je vous déconseille d'y goûter, c'est pas bon!

Mais je vous garde le Lambig, au chaud.

A++

 

[JCGL]

Re : Enregistrement automatique

Bonjour à tous,

OK pour ton lambig ou gwinardant ou odivi ou lagout mais pour moi cela reste du Calva ( arf 20 ans de Normandie, la vraie la Basse, celle du Calva, du Camembert, du Livarot, du Pont l'Evêque, de la Teurgoule, des Tripes ....)

A++ mon ami
A+ à tous

 

[tallia64]

Re : Enregistrement automatique

Bonjour j'ai essayé vos codes mais sans succès. Je mets ci-joint la macro que je souhaiterais adapter pour un enregistrement automatique et ainsi qu'il écrase toujours le même fichier sans me poser la question "voulez vous le remplacer ?". Car en fait beaucoup de personne vont se servir de ce fichier et il risque d'y avoir par mégarde des fermetures intempestive. Je vous d'avance pour votre aide.
Tallia
Sub extract()
'
' extract Macro
' Macro enregistrée le 29/08/2008 par PAMAC
' Rows("1:64").Select
Dim docexcel As New Excel.Workbook
Dim varDateJour As String * 10
Dim jour As Date

'stocke la date du jour et remplace les "/" et "_"
jour = Date
varDateJour = Replace(jour, "/", "_")
'MsgBox varDateJour

Rows("2:66").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Columns("G:G").ColumnWidth = 27
ActiveSheet.Paste
Application.CutCopyMode = False


' enregistre le document et passe à l'aperçu avant impression
' enregistre par rapport à la date


ActiveWorkbook.SaveAs Filename:=("P:\b_informatique_logistique\pamac\MIREILLE\SERVICE_GENERAL\service_general_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".xls")
ActiveWorkbook.Close




End Sub

 

[tallia64]

Re : Enregistrement automatique

désolée une ligne est incomplète la voici
ActiveWorkbook.SaveAs Filename:=("P:EILLE\SERVICE_GENERAL\service_general_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".xls")
ActiveWorkbook.Close

 

[JCGL]

Re : Enregistrement automatique

Bonjour à tous,

Peux-tu essayer avec çà :

Option Explicit

Sub extract()
'
' extract Macro
' Macro enregistrée le 29/08/2008 par PAMAC
' Rows("1:64").Select
Dim docexcel As New Excel.Workbook
Dim varDateJour As String * 10
Dim jour As Date

'stocke la date du jour et remplace les "/" et "_"
jour = Date
varDateJour = Replace(jour, "/", "_")
'MsgBox varDateJour

Rows("2:66").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Columns("G:G").ColumnWidth = 27
ActiveSheet.Paste
Application.CutCopyMode = False


' enregistre le document et passe à l'aperçu avant impression
' enregistre par rapport à la date

[B][COLOR="Blue"]Application.DisplayAlerts = False[/COLOR][/B]
ActiveWorkbook.SaveAs Filename:=("P:\b_informatique_logistique\pamac\MIREILLE\SERVICE_GENERAL\service_general_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".xls")
[COLOR="blue"][B]Application.DisplayAlerts = True[/B][/COLOR]

ActiveWorkbook.Close
End Sub

A+

 

[tallia64]

Re : Enregistrement automatique

bonjour merci pour votre aide je testerais le code dans l'aprés-midi car je dois m'absenter je vous renverrais un message.
Un grand merci tallia

 

[tallia64]

Re : Enregistrement automatique

Tout compte fait j'ai pu le tester un grand merci ça marche du tonnerre bravo. J'aurais une dernière petite question à poser dans l'aprés-midi en attendant je vous remercie beaucoup TALLIA