Gestion Comptabilité v2004-25.08d

Regarde la pièce jointe 1208139

Je vous propose de retrouver la comptabilité seule, déjà présente dans l'application Gestion Complète TPE, sur ce même site.

Voici les différentes possibilités de cette application:

• -Nombre illimité de comptes.
• -Journal Comptable et journal de banque avec rapprochement.
• -Modifier les infos de l’entreprise et des salariés.
• -La modification des comptes...

Cliquez pour agrandir...

Correction du code
Correction de bugs interne
Amélioration des formules

Cliquez pour agrandir...

Regarde la pièce jointe 1216550

Correction de bugs mineurs dans le journal des écritures et le journal de banque
Amélioration du code.

Correction cosmétique et amélioraiton de certaines formules.

Bonne découverte.
Vincent

Note => Voir toutes mes ressources: https://excel-downloads.com/resources/?creator_id=297170

Cliquez pour agrandir...

VincentB74​

oguruma à dit:

Bonjour Vincent, Le Forum
après de multiples tentatives suite à mon 1er poste je rejoins @brunocean : il est impossible d'accéder à quoique ce soit 🙁
ça plante dans "tous les coins"
Regarde la pièce jointe 1217664

voici mes biblio activées et bien lu ton post d'install j'ai loupé qq chose ?
Je suis sur Office 365
Regarde la pièce jointe 1217667
Regarde la pièce jointe 1217668 ==> je ne l'ai pas dans les références disponibles.
Il semblerait certainement que nous n'ayons pas la même version d'office et des écarts dans les références de bibliothèque.
En phase ?
Regarde la pièce jointe 1217665

et pour sortir proprement sans forcer la sortie d'Excel en cas de plantage j'ai codé cela
Regarde la pièce jointe 1217666

Bref je dirai emballé dès la première présentation ==> une petite déception qui s'installe 🙁

Merci pour ton aide, bon dimanche

Regarde la pièce jointe 1217663

Cliquez pour agrandir...

VincentB74 à dit:

Bonjour Oguruma,

Merci pour votre message complaisant.
Ne vous en déplaise, je travaille aussi sur Microsoft Excel 365.

Dans votre message, vous indiquez bien que vous avez une ligne marquée => MANQUANT
Il s'agit de la bibliothèque => Microsoft Windows Common Contraols-2 6.0(SP6)
Vous devez la télécharger de puis le dossier => C:\Windows\System32
Il s'agit de la bibliothèque => MSCOMCT2.OCX
Regarde la pièce jointe 1217671

Si vous ne l'a possédez pas sur votre poste, vous pouvez la télécharger sur Internet ou en suivant ce lien:

3.97 MB file on MEGA

mega.nz

Ensuite, il faut vérifier les controles supplémentaires par Menu => Outils => Contrôles Supplémentaires,
accessibles en activant la boite à outils, sinon le menu est grisé.
Regarde la pièce jointe 1217672
Regarde la pièce jointe 1217673

Après cela, tout devrait fonctionner correctement.
Bonne dimanche.

Cordialement,
Vincent

Cliquez pour agrandir...

oguruma à dit:

re., merci... je vais vérifier tout cela...
bon étrange que je ne possède pas cette Bib....
donc reste à la download....
Le lien que tu donnes il est fiable ? "clean" ?

Regarde la pièce jointe 1217674
Mais cependant... je suis un peu frileux pour télécharger cette lib de l'extérieur..... je laisse de côté pour l'instant....
Je fais d'énormes précautions sur les installations que je réalise sur mon poste....
Je préfère comme source le site officiel de $MS et non un site comme MEGAFILE où on trouve un peu de tout 🙁
Merci.

Cliquez pour agrandir...

Regarde la pièce jointe 1218388

Correction de code.
Mise à jour de formules.
Améliorations diverses.

Bonne découverte.

Cliquez pour agrandir...

VincentB74 à dit:

VincentB74 a soumis une nouvelle ressource:

Gestion Commptabilité - Gérer la comptabilité d'une TPE ou d'un auto-entrepreneur



En savoir plus sur cette ressource...

Cliquez pour agrandir...

.jakob@gmail.com à dit:

bonjour Vincent
il y a toujours la fonction FindWindowA
qui ne fonctionne pas en Office 365 64bits

je n'ai pas réussi à le corriger
merci
Sébastien

Cliquez pour agrandir...

VincentB74 à dit:

Bonjour Sébastien
Je regarde ça demain sans faute.
Bonne soirée
Vincent

Cliquez pour agrandir...

#If Win64 Then
Declare PtrSafe Function GetWindowLongA Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
Declare PtrSafe Function SetWindowLongA Lib "user32" (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr
Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

Cliquez pour agrandir...

Sub OteCroix(UF As UserForm)
Dim hWnd As LongPtr
'Enlève la croix rouge de l'UF
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") _
& "Frame", UF.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

Cliquez pour agrandir...

Call OteCroix(Me)

Cliquez pour agrandir...