re
dans le module thisworkbook
tu mets
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:10:00"), "enregistrement"
End Sub
dans un module standart tu mets
Sub enregistrement()
Application.DisplayAlerts = False
DoEvents
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:10:00"), "enregistrement"
End Sub
Tu enregistres ton classeur, le ferme et l’ouvre
voila toute les 10 minutes il sera sauvegardé avec les données ajoutées ou retirées
ok c’est fait.
mais je n’ai pas besoin de relier un bouton à ce dernier module ?
Non
c’est automatique à l’ouverture
OK . Merci.
Je me permets de revenir vers toi en fin de semaine à propos du classeur Comptabilité, si tu es d’accord.
A+
Bonjour Mimimathy,
je voulais te dire que tout le logiciel fonctionne très bien.
Comme je t’avais fais part de mon rajout du module comptabilité, je voulais savoir si tu serai partante pour le modifier
Merci pour ta réponse
Cordialement Rubis57
Re,
je te fais parvenir cela avec les pièces jointes afin de voir si c’est fafisable.
Je pense que tu as encore le dossier comptabilité, le cas contraire dis le moi STP.
Merci d’avance à toi.
A+
Mimimathy.pdf (68,4 Ko)
Re,
A tester en mettant ce classeur dans le dossier
Comptabilité1.xlsm (989,1 Ko)
Re,
Merci Mimimathy, ça fonctionne.
J’aurai deux rajout à faire si possible.
Peut-on mettre un contrôle sur la feuille données afin de faire une remise à zéro tant que je fasse des essais et aussi pour avoir au début de l’anné nouvelle une remise à zéro.
L’autre point c’est que j’aimerai pouvoir imprimer ces feuilles en cas de besoin.
Alors dis moi si c’est faisable pour toi.
Je te Remercie
A+
Re,
Rien compris de la demande
Re,
je m’exprime mal ! Oups Pardon !
je voulais savoir si tu pourrai placer un bouton contrôle sur la feuille données qui servirait à purger si tu veux l’ensemble des tableaux quand l’année sera terminée mais aussi pour moi le temps de faire tout type de rentrée Comme ça je pourrai purger à tout moment et repartir à zéro avec des tableaux vides.
Merci
Re,
A tester
Les feuilles sont verrouillées mais sans mot de passe
Comptabilité1.xlsm (994,8 Ko)
Re,
Petite bug sur la suppression, plutôt celui-ci
Comptabilité1.xlsm (994,8 Ko)
Re,
Oui j’étais entrain de faire des tests j’ai remarqué au moment du rajout au journal (voir pièce jointe)
Re,
ça bug toujours lors du rajout en journal comme sur mon message avant. J’ai aussi remarqué que sur la feuille grand livre il n’y a plus le tableau ! est ce normal vu qu’il n’y a pas eu d’entrées au journal ?
Re
Teste
Comptabilité1.xlsm (994,8 Ko)
Re,
ça marche, j’ai fais plusieurs entrées et purges et ça ne bug pas.
Un GRAND MERCI à toi. J’attends un retour d’infos d’ici quelques jours de la part d’un comptable qui veut bien , même si cela n’est pas simple, me donner les bons numéros de compte pour une société comme celle de mon travail de formation.
Une fois que j’aurai tout cela je mettrai à jour et on verra.
Je te ferai parvenir le résultat final.
Bonne soirée et bon week-end.
A bientôt.
Re,
il faut que je te dérange encore une fois !
J’ai une erreur qui s’affiche lors d’un archivage de document.(pièce jointe)
Alors j’ai essayé un vba comme on l’avait fait une fois mais je suis que je fais une erreur quelque part. Je ne suis vraiment pas doué !!
l’emplacement pour les archives est :
C:\Users\langm\Desktop\RUBIS1\Archives CALCULS HEURES SALARIES\A, B ou C
Peut tu me dire avec ces infos et le texte VBA ci-dessous ce que je dois changer et ou.
Texte VBA:
Sub EnregistrementFacture()
’ je déclare mes variables
Dim Nondossier As String
Dim Chemin As String
'je nomme le dossier et donne le chemin de sauvegarde
NomDossier = Application.InputBox(« ARCHIVES FACTURES: », « Année ? »)
Chemin = « C:\Users\langm\Documents\GARAGE LOGISOFTWARE\ARCHIVES FACTURES » & NomDossier & « »
If NomDossier = « » Then Exit Sub
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & « FactureNumero_ » & Range(« H19 »).Value & « .pdf », quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False
MsgBox « Enregistrement terminé »
End Sub
Re,
c’est bon j’ai trouvé la faute !
par contre pourrai tu m’indiquer d’après la pièce jointe et le texte vba comment je peux archiver le document avec le numero registre et le nom du salarié ?
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsx, Filename:= _
Chemin & « numeroregistre_ » & Range(« E4 »).Value & « .pdf », quality:= _
xlQualityStandard, includedocproperties:=True, IgnorePrintAreas:=False, _
from:=1, to:=1, openafterpublish:=False
Merci
Re,
c’est bon aussi j’ai trouvé tout fonctionne.
Merci
A+
Bonjour Mimimathy
Pourrai tu m’indiquer comment faire en sorte que le tableau2 se mette toujours à jour si je change des données sur le tableau 1, même si le classeur qui contient le tableau 2 est fermé.
Merci A+
Tableau1.xlsm (11,1 Ko)
Tableau2.xlsm (11,0 Ko)
