XL 2016 Macro pour Import CA Compta

Mansouri

XLDnaute Nouveau
Bonjour,
Je dois importer régulièrement dans ma comptabilité un dossier qui sort de notre Gescom.
Pour ce, je dois réaliser un certains nombre de transformations sur excel qui me prennent beaucoup de temps et qui sont source d'ereures.
J'aimerais savoir s'il était possible de transformer mon fichier de base en fichier souhaitait et ce de façon automatisé.


La difficulté supplémentaire vient du fait qu'en Nouvelle-Calédonie nos ventes subissent plusieurs taxes (similaire à une TVA) mais à des taux différents selon la nature de la prestation vendue.
Il est donc important d'isoler :
- Dans des comptes de produit différents les bases soumises à ces taux.
- Dans des comptes de taxes différents les taxes qui y sont relatives.

Par exemple :

Pour une vente TTC à 15 792 Frs.

Crédit :
Compte client : 15 792 Frs (Vente + Taxe globale)

Débit

# 70700025 : CA soumis à taux de 0.25% ( 10 500 frs )
# 70700035 : CA soumis à taux de 0.35% (4 500 Frs)
# 44571035 : Taxe à 0.35% (16 Frs)
# 44571025 : Taxe à 0.25% : (26Frs)
# 44571 : Taxe général sur les services : 5% (750Frs)




J'ai tenté de travailler sur un fichier trouvé sur votre site qui pourrait ressembler à ce dont j'ai besoin. Mais je n'ai pas les compétences en excel suffisante.
https://www.excel-downloads.com/threads/macro-pour-import-compta.163709/

Vous trouverez en pièce jointe :
En onglet 1 : Un extrait du document extrait de ma Gescom
En onglet 2 : Le fichier final que je me dois d'obtenir pour mon importation.

Je vous remercie grandement de l'aide qu'il vous sera possible de m'apporter.

Cordialement.



Mélissa
 

Fichiers joints

jp14

XLDnaute Barbatruc
Bonjour

Ci joint un fichier avec une procédure. A tester et à modifier en fonction du résultat désiré.

JP14
 

Fichiers joints

Mansouri

XLDnaute Nouveau
Bonjour,
Je vous remercie grandement de votre aide, cependant j'ai beaucoup de mal à comprendre la manière dont fonctionne vos tableaux. Je ne sais pas ou placer mon fichier de base ni ou se trouve le fichier final.
Ou est il possible de trouver la procédure que vous évoquez ?

Merci encore.

Cordialement.

Mélissa
 

Mansouri

XLDnaute Nouveau
Si cela peut vous aider quand j'affiche les propriétés du document et le type de fichier il est stipulé 'Excel 97-2003 Worksheet'
Peut être s'agit il d'un problème de version ?
 

jp14

XLDnaute Barbatruc
Bonjour
Ci joint un fichier avec un bouton pour lancer la macro qui affiche dans la feuille "Final" les données comme celles du fournisseur 401.
Quelle est la donnée qui permet de connaitre les lignes à créer pour les fournisseurs 83 et 270 (colonne C : code 707 et 7061)

JP14
 

Fichiers joints

Mansouri

XLDnaute Nouveau
Bonjour,
Je vous remercie de votre aide, cependant j'ai beau chercher je ne trouve pas dans quel onglet placer mon fichier de base qui fait que ma phase final s'actualise (même par action sur le bouton)
Aussi, dans la phase finale certaines écritures sont parfaite (c'est génial!) mais beaucoup ne sont pas renseignées (Je pense que c'est l'objet de votre question)

Pour récapituler, ce qui est a placer dans les compte:

70610000 : Vente uniquement soumise a TSS (colonne "TSS / MT)
70610025 : TGC 0.25 (Colonne TGC 0.25% MT)
70610035 : 0.35% (Colonne TGC 0.25% MT)
7070000 : Vente de marchandise non soumise à rien(Quand HT = TTC)
707100500 : 0.5% (Colonne TGC 0.5% MT)

Ce qui est à placer dans les comptes de dettes envers l'etat :
44571000 : colonne "valeur TSS"
444571025 : "valeur TGC 0.25%"
444571035 :"valeur TGC 0.35%"
444571050 : "valeur TGC 0.5%"

C'est de cette complexité que découle la grande partie de mon problème et mes éventuelles sources d'erreurs.

Merci encore milles fois de votre temps.


Cordialement.

Mélissa
 

jp14

XLDnaute Barbatruc
Bonsoir

Si j'ai bien compris on a 3 combinaison:

Si Total HT = TSS/MT colonnes (H = K) alors
code 90000N° fournisseur
code 70610000 valeur colonne K
code 70610025 valeur colonne P
code 70610035 valeur colonne ? : 0.35% (Colonne TGC 0.25% MT)
code 44571000 colonne L ("valeur TSS")
code 444571025 colonne P ( : "valeur TGC 0.25%")
code 444571035 colonne Q :)"valeur TGC 0.35%")
code 44457105 colonne V :) "valeur TGC 0.5%")
exemple
25 270 90000270 Nom du fournisseur X 26/05/2017 FA000461

25 270 70700025 Nom du fournisseur X 26/05/2017 FA000461

25 270 70700035 Nom du fournisseur X 26/05/2017 FA000461

25 270 44571035 Nom du fournisseur X 26/05/2017 FA000461

25 270 7061 Nom du fournisseur X 26/05/2017 FA000461 563643

25 270 44571 Nom du fournisseur X 26/05/2017 FA000461 28182


ou bien si HT = TTC alors
code 90000N° fournisseur
code 7070000 valeur colonne H
83 90000083 Nom du fournisseur X 05/05/2017 FV000006

83 707 Nom du fournisseur X 05/05/2017 FV000006 -7000


ou bien
code 90000N° fournisseur
code 70610025 valeur colonne P
code 70610035 valeur colonne ? : 0.35% (Colonne TGC 0.25% MT)
code 444571025 colonne P ( : "valeur TGC 0.25%")
code 444571035 colonne Q :)"valeur TGC 0.35%")
code 44457105 colonne V :) "valeur TGC 0.5%")
code 70610000 valeur colonne K
code 44571 colonne L ("valeur TSS")
266 90000266 Nom du fournisseur X 29/05/2017 FA000469

266 70700025 Nom du fournisseur X 29/05/2017 FA000469 735807

266 70700035 Nom du fournisseur X 29/05/2017 FA000469 102000

266 44571035 Nom du fournisseur X 29/05/2017 FA000469 357

266 44571025 Nom du fournisseur X 29/05/2017 FA000469 1840

266 44571 Nom du fournisseur X 29/05/2017 FA000469 41890

Pour ne pas faire d'erreur, il faudrait vérifier le semblant d’ordinogramme.

JP14

 

Mansouri

XLDnaute Nouveau
Bonjour,

C'est presque ca pour reprendre :

CAS OU HT = TTC soit quand colonne H = colonne Z (Votre exemple est exacte)

9000N°Frs - Colonne Z
7070000 - Colonne H


CAS OU VENTE UNIQUEMENT SOUMISES A TSS ALORS : SOIT QUAND (Colonne K + L = colonne Z)
9000N°Frs - Colonne Z
7061000 - Colonne K
44571000 - Colonne L


SINON CAS OU VENTES EGALEMENT SOUMISES A TGC
9000N°FRS - Colonne Z
70610025 - Colonne P
70610035 - Colonne R
70710050 - Colonne U
44571025- Colonne Q
44571035 - Colonne S
44571050 - Colonne V
 

jp14

XLDnaute Barbatruc
Bonjour

Ci joint le ficher avec une macro qui devrait correspondre aux différents cas indiqué ci dessus.

A tester
JP14
 

Fichiers joints

jp14

XLDnaute Barbatruc
Bonjour
Pour répondre à la question "Je ne sais pas ou placer mon fichier de base ni ou se trouve le fichier final."

Ci joint un fichier zip qui contient deux fichiers :
un fichier pour les données de base (Gescom)
un fichier pour le résultat.(Final)

Un userform pour sélectionner le fichier qui contient les données ( Gescom) et lancer la procédure pour le transfert des valeurs dans la feuille "final"
Les données dans Gescom doivent se trouver dans la première feuille.
A tester

JP14
 

Fichiers joints

Mansouri

XLDnaute Nouveau
Bonjour,
C'est génial et parfait !!
Cependant j'ai omis une information dans la 3ème combinaison qui fait que mes écritures ne s'équilibre pas:
9000N°FRS - Colonne Z
70610025 - Colonne P
70610035 - Colonne R
70710050 - Colonne U
44571025- Colonne Q
44571035 - Colonne S
44571050 - Colonne V
44571000 - Colonne L

Vraiment désolé pour ce travail supplémentaire
 

jp14

XLDnaute Barbatruc
Bonjour
Pour rajouter une ligne il suffit d'écrire le code suivant dans le Module : Module11/travdem
Code:
  Entete Dl2, i
  Code1 Dl2, i, "numéro compte", "Colonne"
  Dl2 = Dl2 + 1
Ce qui donne pour les lignes suivantes
44571050 - Colonne V
44571000 - Colonne L

Code:
..................................
  'ligne 7 44571050 - Colonne V (ligne manquante )
  Entete Dl2, i
  Code1 Dl2, i, "44571050", "V"
  Dl2 = Dl2 + 1
  ' ligne 8 44571000 - Colonne L
  Entete Dl2, i
  Code1 Dl2, i, "44571000", "L"
  Dl2 = Dl2 + 1
   
  End If
....................................
A tester

JP14
 

Mansouri

XLDnaute Nouveau
Bonjour,
Merci ces informations me seront très utiles. Cependant j'ai bien mis les codes mais mon fichier ne s’actualise pas. Pouvez vous jeter un œil ?
Aussi, j'ai l'impression que ma feuille finale ne s'actualise pas :
- 1 Choix du répertoire
- 2 Afficher les fichiers
-3 je choisi mon fichier
- 4 Transférer les données
Mais rien ne ce passe
 

Fichiers joints

jp14

XLDnaute Barbatruc
Bonjour

J'ai fait des test la procédure fonctionne.
J'ai ajouté des textbox pour afficher les informations.
Attention le code ci dessous sélectionne la feuille numéro 1 : Feuil1 dans l'éditeur VBA
Set WsE = WbE.Worksheets(1) :
upload_2017-12-14_13-4-42.png

A vérifier

JP14
 

Fichiers joints

Mansouri

XLDnaute Nouveau
Bonjour,
Je suis vraiment désolé j'ai fait appel à vous car je maîtrise très mal Excel (je ne pensais pas autant d'ailleurs)
Je vous assure que mon final ne s'actualise pas.
1 Choix du répertoire
- 2 Afficher les fichiers
-3 je choisi mon fichier
- 4 Transférer les données - Je vois désormais le nombre d'enregistrement que vous avez rajouté mais rien ne ce passe dans ma feuille final. J'ai essayé de changer les nom des fournisseurs, les montants de mon fichier d'origine mais rien ... Peut être il me manque une étape pour actualisé ma feuille après la manip ?
 

jp14

XLDnaute Barbatruc
Bonjour

Ci joint le fichier avec quelque modifications
Message lors de la fermeture de l'userform avec le bouton quitter.
La colonne S contient la date du transfert.

A tester

JP
 

Fichiers joints

Mansouri

XLDnaute Nouveau
Bonjour,

Je ne peux plus choisir de fichier :

Private Function ChDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then chemin = "C:\"
If objFolder.Title = "" Then chemin = ""
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
TextBox1 = chemin

End Function
 

Mansouri

XLDnaute Nouveau
Bonjour,
Merci beaucoup mais mon problème reste le même. Mon fichier final ne s'actualise pas. Avez vous une idée de la raison ? Chez vous il s'actualise ?
 

Mansouri

XLDnaute Nouveau
Bonjour,
Ca fonctionne !!!! Merci énormément .... Vous avez rendu plus facile notre quotidien.

Merveilleuse fêtes et merci encore.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas