Microsoft 365 Formule de copie a la suite VBA

Alexis84430 à dit:

Bonjour,

Je voulais crée un code vba car je suis entrain de faire un tableur pour mon suivie de budget et je rentre mais relever bancaire du mois avec une macros et je n'arrive pas entre le mois d'après a la suite ?
Avez-vous une solution

Voilà mon code :

VB:

 Workbooks.Open "C:\Users\alexi\Desktop\Suivie Financier\Relevé"
 
    Worksheets("Sheet0").Activate
 
    Rows("1:10").Delete
 
    Workbooks("Suivie Budget").Worksheets("Saisies des données").Range("A4:D1000000").Values = Workbooks("Relevé").Worksheets("Sheet0").Range("A1:D1000000").Value
 
    MsgBox "L'import a été effectuer!"
 
    Worksheets.Parent.Close savechanges:=False

Cliquez pour agrandir...

Sub test()
    Dim Derlg&
    Application.ScreenUpdating = False
    Derlg = Worksheets("Saisies des données").Cells(Worksheets("Saisies des données").Rows.Count, "A").End(xlUp).Row + Abs([a1] <> "")
    Workbooks.Open "C:\Users\alexi\Desktop\Suivie Financier\Relevé"
    With Worksheets("Sheet0")
        .Rows("1:10").Delete
        .Range("a1:d" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy
    End With
    ThisWorkbook.Worksheets("Saisies des données").Range("a" & Derlg).PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
    MsgBox "L'import a été effectuer!"
End Sub

Jacky67 à dit:

Bonjour
Comme ceci peut-être........

VB:

Sub test()
    Dim Derlg&
    Application.ScreenUpdating = False
    Derlg = Worksheets("Saisies des données").Cells(Worksheets("Saisies des données").Rows.Count, "A").End(xlUp).Row + Abs([a1] <> "")
    Workbooks.Open "C:\Users\alexi\Desktop\Suivie Financier\Relevé"
    With Worksheets("Sheet0")
        .Rows("1:10").Delete
        .Range("a1:d" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy
    End With
    ThisWorkbook.Worksheets("Saisies des données").Range("a" & Derlg).PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
    MsgBox "L'import a été effectuer!"
End Sub

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour
Comme ceci peut-être........

VB:

Sub test()
    Dim Derlg&
    Application.ScreenUpdating = False
    Derlg = Worksheets("Saisies des données").Cells(Worksheets("Saisies des données").Rows.Count, "A").End(xlUp).Row + Abs([a1] <> "")
    Workbooks.Open "C:\Users\alexi\Desktop\Suivie Financier\Relevé"
    With Worksheets("Sheet0")
        .Rows("1:10").Delete
        .Range("a1:d" & .Cells.Find("*", , , , xlByRows, xlPrevious).Row).Copy
    End With
    ThisWorkbook.Worksheets("Saisies des données").Range("a" & Derlg).PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
    MsgBox "L'import a été effectuer!"
End Sub

Cliquez pour agrandir...

Alexis84430 à dit:

Il marche super bien le seul problème c'est qu'il m'envoie mes données a la fin de mon tableau

Cliquez pour agrandir...

Jacky67 à dit:

RE...
Sans classeur et sans tableau .....
J' ai cassé ma boule de Crystal et je ne pourrais pas donner suite sans ces informations.

Cliquez pour agrandir...

Phil69970 à dit:

Re

@Alexis84430

Je te propose ce fichier que j'ai commenté

Le fichier de "Relève" doit être dans le même dossier que le fichier "Suivie Budget"

A noter :
Un tableau structuré ne doit JAMAIS avoir de ligne vide !!!

Merci de ton retour

Cliquez pour agrandir...