Microsoft 365 Formule de copie a la suite VBA

[Alexis84430]

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 :

 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

 

[Jacky67]

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 :

 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

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

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

 

[Alexis84430]

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

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

Super merci mais je viens d'essayer et sa ne fait rien a t-il quel chose a renseigner car je ne comprend pas tout dsl ?

 

[Phil69970]

Bonjour à tous

@Alexis84430

Et si tu nous fournissais un fichier anonymiser bien sur avec les explications de ce que tu faire exactement !!

Je veux copier ceci à tel endroit etc......

 

[Alexis84430]

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

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

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

 

[Jacky67]

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

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

 

[Alexis84430]

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

 

[Phil69970]

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

 

[Alexis84430]

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

Merci beaucoup sa marche super bien vous été vraiment des cracks, il fonctionne a la perfection sans détruire les lignes précédentes sa va me changer la vie
Ces je pense la meilleur solution