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
 

Pièces jointes

  • Import pour aide.xlsx
    26.7 KB · Affichages: 61

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
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.
 

Discussions similaires

Statistiques des forums

Discussions
313 296
Messages
2 096 916
Membres
106 786
dernier inscrit
Mgordat