Remplacements de masse

Bonjour Valérie,

Pourrais-tu exécuter la macro Integration dans ce fichier joint et me dire si cela te convient (ATTENTION, ne pas regarder integration mais TEST) ?

Bonjour Patrice,

Ok, et les SUPPR vous servent à quoi dans la feuille d'intégration ?

Sont-ils obligatoire ?

A mon avis, ça sert dans le logiciel qui traite l'import du fichier. Quand on a fini dans le fichier excel, on fait un copier de la feuille d'intégration qu'on colle dans le logiciel. ça doit dire qu'il passe la ligne quand il y a cette info d'inscrite.

Effectivement, je viens de faire un test, on ne retrouve que les lignes avec les PR.

1522139211702995657

Que fais-tu des Avoirs dans ton journal (actuellement ils s'affichent en moins mais dans la même colonne que les factures) ?

L'opération est inversée, à charge pour la personne qui fait la tenue du dossier d'aller corriger l'écriture une fois qu'elle est importée en compta.

Dans ces trames-là, il n'y a pas de colonnes Débit Crédit donc je ne vois pas de moyens d'inverser l'écriture au travers de la trame.

Vas-tu compléter les factures avec d'autres numéros de compte ?

Qu'est-ce tu entends par numéros de compte ?

J'ai fait le tri avec ma collègue, il n'y a que les "grands comptes" qui reviennent régulièrement qui ont un compte à part, tous les autres vont dans le même (compte fourre-tout)

Set Rng = .Rows(1).Find(What:="RaisonSociale", LookAt:=xlWhole)
        .Columns(Rng.Column).Insert
        .Cells(Rng.Row, Rng.Column - 1).Value = "COMPTE"
        Tbl = .Range(.Cells(Rng.Row + 1, Rng.Column), .Cells(LigneMax, Rng.Column)).Value

        For I = LBound(Tbl, 1) To UBound(Tbl, 1)
            If Tbl(I, 1) = "BRIOIS CTA" Then
               Tbl(I, 1) = "BRI"

            ElseIf Tbl(I, 1) = "CAR PROJECT" Then
               Tbl(I, 1) = "CAR"

            ElseIf Tbl(I, 1) = "CARPIQUET CARROSSERIE" Then
               Tbl(I, 1) = "CARP"

           ElseIf Tbl(I, 1) = "CLAUDE FOURNIS AUTOMOBILLES SAS" Then
               Tbl(I, 1) = "CLAU"

            ElseIf Tbl(I, 1) = "COMMUNAUTE URBAINE CAEN LA MER" Then
               Tbl(I, 1) = "CUCM"

            ElseIf Tbl(I, 1) = "CREATIV 'EXPERTIZ GROUPE" Then
               Tbl(I, 1) = "CREA"

            ElseIf Tbl(I, 1) = "ETS LEROUX BROCHARD" Then
               Tbl(I, 1) = "LERO"

            ElseIf Tbl(I, 1) = "EURAUTO SAAB" Then
               Tbl(I, 1) = "EURA"

            ElseIf Tbl(I, 1) = "GARAGE DECLERCK AUTOMOBILLE" Then
               Tbl(I, 1) = "DECL"

            ElseIf Tbl(I, 1) = "GARAGE DU GROS BUISSON" Then
               Tbl(I, 1) = "GROS"

            ElseIf Tbl(I, 1) = "GARAGE DU VIADUC" Then
               Tbl(I, 1) = "VIAD"

            ElseIf Tbl(I, 1) = "GARAGE GOSSELIN" Then
               Tbl(I, 1) = "GOSS"

            ElseIf Tbl(I, 1) = "GARAGE LEFRANC" Then
               Tbl(I, 1) = "GLEF"

            ElseIf Tbl(I, 1) = "GARAGE Y. CLEREMBOS" Then
               Tbl(I, 1) = "CLER"

            ElseIf Tbl(I, 1) = "GGE TEMA" Then
               Tbl(I, 1) = "TEMA"

            ElseIf Tbl(I, 1) = "INNOV'AUTO" Then
               Tbl(I, 1) = "INNO"

            ElseIf Tbl(I, 1) = "L'AUTO SATISFACTION" Then
               Tbl(I, 1) = "LAUT"

            ElseIf Tbl(I, 1) = "LE FRANCOIS CARROSSERIE" Then
               Tbl(I, 1) = "LEFR"

            ElseIf Tbl(I, 1) = "NORD WEST AUTOMOBILES" Then
               Tbl(I, 1) = "NORD"

            ElseIf Tbl(I, 1) = "RENAULT RETAIL GROUP" Then
               Tbl(I, 1) = "RENA"

            ElseIf Tbl(I, 1) = "S D I S 14" Then
               Tbl(I, 1) = "SDIS"

            ElseIf Tbl(I, 1) = "SA STAR PNEUS" Then
               Tbl(I, 1) = "STAR"

            ElseIf Tbl(I, 1) = "SARL CRAPART ET FILS" Then
               Tbl(I, 1) = "CRAP"

            ElseIf Tbl(I, 1) = "SARL DESSOUDE" Then
               Tbl(I, 1) = "DESS"

            ElseIf Tbl(I, 1) = "SDIS 14" Then
               Tbl(I, 1) = "SDIS"

            ElseIf Tbl(I, 1) = "STE AMERICAN CARS" Then
               Tbl(I, 1) = "AMER"

            ElseIf Tbl(I, 1) = "STE SGS AUTOMOTIVE SERVICES - GE" Then
               Tbl(I, 1) = "SGS"

            ElseIf Tbl(I, 1) = "T B AUTO SARL" Then
               Tbl(I, 1) = "TB"

            ElseIf Tbl(I, 1) = "TEMSYS-ALD AUTOMOTIVE" Then
               Tbl(I, 1) = "TEMS"

            ElseIf Tbl(I, 1) = "CARROSSERIE DE LA COLLINE" Then
               Tbl(I, 1) = "COLL"

            ElseIf Tbl(I, 1) = "CREATIV'EXPERTIZ GROUPE" Then
               Tbl(I, 1) = Left(Tbl(I, 1), 3)

            ElseIf Tbl(I, 1) = "LOCATION CAEN MATERIEL 14" Then
               Tbl(I, 1) = ""

            ElseIf Tbl(I, 1) = "PORTS NORMANDS ASSOCIES" Then
               Tbl(I, 1) = "PORT"

            Else
              Tbl(I, 1) = "PART"
            End If
        Next I

Ne faudrait-il pas que les facture soit trié par date et par client ?

Pas indispensable puisque dans le logiciel de compta, tout va se re trier correctement.

D'après votre exemple d'intégration et de saisie, je ne dois pas avoir un fichier complet car il me manque les 0.28 de la colonne Cpte2 dans la feuille de saisie et donc par la même occasion les formules sur les produits divers et autre.

ça effectivement c'est le fichier tel qu'il était exploité au départ, je l'ai retravaillé quand ils m'ont expliqué ce qu'ils en attendaient, parce que ma collègue corrigeait tout après l'export.

Donc dans mon fichier de départ, j'ai rajouté une colonne de calcul que j'ai nommée DIFFERENCE et que je vais chercher dans la feuille SAISIE et que je mets en compte 2.

' Création de la colonne DIFFERENCE
        Set Rng = .Rows(1).Find(What:="RestePayer", LookAt:=xlWhole)
        .Columns(Rng.Column).Insert
        .Cells(Rng.Row, Rng.Column - 1).Value = "DIFFERENCE"
        Tbl = .Range(.Cells(Rng.Row + 1, Rng.Column), .Cells(LigneMax, Rng.Column)).Value

       Dim LastLig As Long
       Dim Tb

       Application.ScreenUpdating = False

        LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
        Tb = .Range("L1:O" & LastLig)
        Tb(1, 4) = "DIFFERENCE"
        For I = 2 To LastLig
            Tb(I, 4) = (Tb(I, 3) - (Tb(I, 1) + Tb(I, 2)))
        Next I
        .Range("L1:O" & LastLig) = Tb

        Dim cellule As Range
        For Each cellule In Range("L1:O" & LastLig)
            cellule.NumberFormat = "0.00"
        Next cellule
       
15221403161146632483

On utilise compte 1, compte 2 et le compte de TVA.

15221404181594209851

Bonne journée,

Valérie

Patrice,

Je n'avais pas vu le 2ème message, j'étudie tout ça et je vous fais un retour.

A première vue, la question du tri concernant la date revient et (comme j'étais plus en mode formules qu'en mode valeurs, je n'avais pas trop regardé ce qui s'y passait), donc c'était trié par numéro de pièce.

Je regarde le reste.

Merci infiniment pour votre temps !

Valérie

Si je reprends tout : pour le libellé, on reprend la raison sociale indiquée dans le fichier de départ.

Pour une facture normale :

en compte 411(plus caractères compte client) on met en débit le montant TTC

  • le reste va en crédit compte 706100 le HT
  • et 706200 la différence (s'il y en a une) dans l'exemple ci-contre elle était à 0 (souvent 0.28)

Dans code TVA, on a rien par contre la TVA est traitée comme les autres opérations :

1522142635946762681

- Compte 4457112 et mise en crédit.

Donc si on parle d'un avoir TTC en crédit, HT, différence et TVA en débit (si l'opération est traitée ainsi les - n'ont plus lieu d'être).

LIB2 on a rien, Qté on a rien, Code TVA on a rien.

Valérie,

Apparemment, vous allez mieux et c'est tant mieux

Je récapitule :

  • les SUPPR ne sont pas indispensable
  • La colonne Différence doit être créé pour faire le delta entre TTC - (HT + TVA) et se stocke dans le compte 706200 (peut-être de l'éco participation ?)
  • Il n'y a pas d'autres compte que 411CLIENT, 706100, 706200 et 4457112
  • Le tri n'est pas nécessaire
  • les comptes client ont 4 caractères
  • CODE TVA reste vide

C'est bien cela ?

Merci pour vos précisions

Super, vous avez tout compris !

Oui j'ai commencé à retrouver mes neurones

J'ai commencé à jeter un oeil à votre pour essayer de comprendre. Je trouve ça top !

Les lignes qui avaient des Suppr faisaient appel à des colonnes non utilisées dans ce cas de figure.

A contrario, dans le dernier fichier sur lequel j'ai travaillé j'ai dû rajouter 20 colonnes.

Merci et encore merci !

Valérie,

Pourriez-vous retester ce fichier du début svp ?

  • Correction de bug sur les comptes clients
  • Intégration de la différence dans la macro automatisation
  • intégration des calculs des totaux dans la feuille saisie
  • Inversion des avoirs dans l'integration
  • Demande pour poursuivre l'integration une fois le fichier csv ajouté

ATTENTION : le résultat se trouve toujours dans la feuille TEST

Je pense que j'ai réussi à modifier votre code pour obtenir les valeurs que je voulais !

1522155516791692101

ça me semble bon comme ça ?

Le temps d'exécution est tellement rapide que je suis complètement bluffée

Je regarde si j'arrive à faire quelquechose pour les avoirs.

Zut j'avais pas vu votre message, je teste ça et je vous dis.

Je suis passée par des chemins de traverse mais on aboutit au même résultat

Je vais étudier comment vous avez fait.

Tous mes remerciements, ma collègue va être ravie

Patrice,

J'ai fait le tour c'est vraiment nickel ! Vraiment tous mes remerciements

Ma collègue va pouvoir s'en servir pour traiter le mois de mars

J'imagine déjà son sourire quand elle va voir ça

Valérie

Valérie,

Je vous en prie.

Attention seul chose que je n'ai pas automatisé c'est le changement du mois dans l'onglet SAISIE.

J'espère bien qu'avec tout le mal que vous vous êtes donné avec moi, votre collègue en sera plus que satisfaite.

Bon courage pour la suite

Patrice

Merci Patrice !

J'ai re modifié quelques petites choses et ça a commencé à tourner dans ma tête pour modifier d'autres fichiers qui étaient passés dans mes mains. Je vais regarder pour le mois, à côté du reste, c'est une broutille

Concernant ma collègue, je sais que j'aurai toute sa gratitude (c'est une petite nouvelle qui est arrivée il y a quelques mois après un départ en retraite et ils n'ont pas eu pitié, ils lui ont refilé des dossiers difficiles quand on débute) elle était déjà toute contente quand je lui avais fait des petites macros toutes simples mais qui lui avaient déjà simplifié la vie.

D'ailleurs, je sais pour qui je me casse la tête (certains je ne proposerais même pas mes services )

Encore merci pour tout, c'est vraiment topissime !

Valérie

N hésitez pas si vous avez de nouveau besoin de moi.

Je préfère me casser la tête avec des personnes sympa ^^

Merci beaucoup Patrice J'ai réussi à régler tous les petits problèmes dûs au fichier de base, j'ai testé l'intégration dans le logiciel de compta et tout passe nickel, la semaine prochaine on va pouvoir tester en réel avec les écritures de mars

ça m'a aussi permis d'adapter le code pour mes histoires de colonnes et ça fonctionne aussi nickel. Je vais présenter ça la semaine prochaine quand j'aurai tout fignolé, je suis vraiment trop contente d'avoir réussi à faire quelquechose de bien de leurs trames toute pourrave avec votre aide très précieuse. Encore tous mes remerciements et joyeuses fêtes de Pâques.

Valérie

Si vous avez pu en plus vous perfectionner, c'est d'autant mieux

Joyeuse pâques et bonne présentation.

Je croise les doigts pour vous

Rechercher des sujets similaires à "remplacements masse"