Ebics macro releve de banque

Bonjour,

Je viens faire appel de nouveau à votre aide.

Tout d'abord j'espère que vous allez bien .

N'ayant pas EBICS sur certains dossier (méthode permettant d'importer les relevés bancaire sans saisir) pour importer les banques, je dois saisir le relevés manuellement. Chose qui est très chronophage et longue. Je me suis aperçue que je pouvais récupérer un fichier CSV depuis la banque, mais ce fichier ne peut pas être exportée sans modification au préalable.

Vous trouverez ci-joint une petite partie du relevé de banque que je reçois en format exel.csv avant modification et ce que j'aimerais obtenir afin de l'importer dans le logiciel comptable. J'ai essayée de le faire avec des fonction recherches et si (seules choses que je maitrise sur Excel) mais impossible.

Merci d'avance.

Bonjour,

Votre séparateur décimal est le point ?

Non c'est la virgule :)

Bonjour un petit test.

La macro fonctionne, en revanche serait-il possible de faire ligne par ligne (en gros un compte 470000 et en dessous le compte 512000 pour solder) ?

Ma version :

Option Explicit

Sub GenererLesEcritures()

Dim I As Integer, J As Integer
Dim TabOperations As ListObject, TabEcritures As ListObject
Dim LigneOp As ListRow, LigneEc4700 As ListRow, LigneEc5222 As ListRow
Dim ColDebit As Integer, ColCredit As Integer

    Set TabOperations = Sheets("Opérations").ListObjects("TableDesOperations")
    Set TabEcritures = Sheets("Ecritures").ListObjects("TableDesEcritures")
    With TabEcritures
         ColDebit = .ListColumns("Débit").Index
         ColCredit = .ListColumns("Crédit").Index
         If .ListRows.Count > 1 Then .DataBodyRange.Delete
    End With

    For I = 1 To TabOperations.ListRows.Count

        Set LigneOp = TabOperations.ListRows(I)
        Set LigneEc4700 = TabEcritures.ListRows.Add
        Set LigneEc5222 = TabEcritures.ListRows.Add
        With LigneEc4700
             .Range.Value = LigneOp.Range.Value
             .Range(1, ColCredit) = 0
        End With
        With LigneEc5222
             .Range.Value = LigneOp.Range.Value
             .Range(1, 1) = "51220000"
             .Range(1, ColCredit) = .Range(1, ColDebit)
             .Range(1, ColDebit) = 0
        End With

        Set LigneOp = Nothing: Set LigneEc4700 = Nothing: Set LigneEc5222 = Nothing

    Next I

    With TabEcritures
         .ListColumns("Débit").Range.NumberFormat = "0.00"
         .ListColumns("Crédit").Range.NumberFormat = "0.00"
    End With

    Sheets("Ecritures").Activate

    Set TabOperations = Nothing: Set TabEcritures = Nothing

End Sub

Je suis censé copier ces lignes d'écriture et les coller à quelle endroit ?

Merci par avance.

C'est écrit en lignes 7 et 8. vous sélectionnez les lignes existantes après la ligne de titre, clic-droit, supprimer les lignes du tableau.

Une fois copiée votre liste, vous la collez en A11.

Bonjour,

Une solution via power query

Merci pour votre solution ERIC Kergresse, elle fonctionne parfaitement.

Par contre votre solution VALENTIN 85 , je ne comprend pas comment elle fonctionne . Pouvez-vous m'éclairer ?

Dois-je avoir power Querry pour qu'elle fonctionne ?

Ou dois-je coller mes information pour que cela lance les écritures automatiques ?

Merci par avance et merci encore pour votre solution ERiC.

Bonjour à tous,

Une "autre" approche () via Power Query avec deux présentations, au choix, du résultat (c'est beau le luxe....) :

Re,

Power query est totalement installé dans excel depuis le version 2016.

Pour mettre à jour les données, il vous suffit de coller vos nouvelles données dans le tableau "BDD" à la suite puis onglet "données" => "Actualisées tout".

La requête se métra à jour toute seule.

Pour voir la requêtes onglet "données" => "Requetés et connexion". Les requettes s'affiche à droite. Double click dessus pour voir les étapes.

Cdt je reste disponible

Edit : Bonjour JFL, petite mise au vert de votre coté, félicitations. 'est toujours intéressant de voir vos approches PQ j'en apprends tout les jours.

parfait cela fonctionne merci à tous et merci à toi aussi JFL .

Bonjour de nouveau,

Valentin85 a écrit :

...c'est toujours intéressant de voir vos approches PQ j'en apprends tout les jours.

Apprendre et partager..... 2 verbes magnifiques.....

Re bonjour, ma première solution juste en ajoutant l'option de tri à la fin.

Merci XMENPL ta solution fonctionne aussi.