XL 2016 Macro pour Import CA Compta

[Mansouri]

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

 

[jp14]

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

 

[Mansouri]

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]

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 ?

 

[jp14]

Bonjour

Ci joint le fichier avec la feuille "final" qui contient les données des fichiers Gescom, Gescom2, Gescom3.

Bonnes fêtes

JP14

 

[Mansouri]

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

Merveilleuse fêtes et merci encore.

 

[Mansouri]

Bonjour
Je reviens vers vous car après utilisation de la matrice je rencontre de nouveaux des problèmes.
J'arrive à paramétrer mes numéros de compte pour les adapter aux différentes comptas.
Cependant pour l'une d'entre elle mon problème est le suivant :
Une partie du HT n'est soumise à aucune taxe et mes écritures sont donc déséquilibrées

SINON CAS OU VENTES EGALEMENT SOUMISES A TGC
9000N°FRS - Colonne Z
70610025 - Colonne P
70610035 - Colonne R
70710050 - Colonne U
707000- Partie soumise a aucune taxe soit quand colonne HT > colonne P ou R ou U
44571025- Colonne Q
44571035 - Colonne S
44571050 - Colonne V
44571000 - Colonne L

Pouvez vous m'expliquer comment paramétrer cela ?

Merci d'avance.

 

[jp14]

Bonjour

"707000- Partie soumise a aucune taxe soit quand colonne HT > colonne P ou R ou U "

Si j'ai bien compris : si P+Q+R = 0 alors on a le code 70700.

JP14