Copier coller données pendant execution macro

Bonsoir,

Je me permet de venir vers vous pour copier coller entre 2 classeur pas ouvert sur le même Excel
J'explique:

j'ai deux classeur tout les deux toujours ouvert:
- Bdd_bandeau
- Bandeau

Dans Bandeau j'ai une macro qu'y tourne en continu
je saisie des données dans Bdd_Bandeau

Et je souhaiterais copier coller les données de la feuil1 du classeur Bdd_Bandeau dans le classeur Bandeau pendant l'exécution de la macro en continu du classeur Bandeau.

J'ai essayer 2 codes:

- celui-ci dans le fichier Bdd_Bandeau Qui fonctionne que quand la macro en continu dans le classeur Bandeau n'est pas lancer:

Code:

---

1 2 3 4 5 6 7

Sub recup_donnes()   Workbooks("Bandeau.xlsm").Worksheets("Feuil2").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données Workbooks("Bdd_Bandeau.xlsm").Worksheets("Feuil1").Cells.Copy _ Workbooks("Bandeau.xlsm").Worksheets("Feuil2").Range("A1") 'Copie-colle le fichier   End Sub

---

Et celui-ci dans le classeur Bandeau pendant la boucle:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub test4() Dim I As Long, nbLignes As Long   nbLignes = Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row   For I = 1 To nbLignes '...................... Workbooks("Bdd_Bandeau.xlsm").Sheets("Feuil1").Cells.Copy Destination _ :=Workbooks("Bandeau.xlsm").Sheets("Feuil2").Range("A1") '.................. répertoirePhoto = "F:\vincent\bandeau\" On Error Resume Next ActiveSheet.Shapes("monimage").Delete Set img = ActiveSheet.Pictures.Insert(répertoirePhoto & I & ".png") img.Name = "monimage" img.Left = [B2].Left img.Top = [B2].Top img.Height = [B2].Height img.Width = Range("B2:B6").Width Sheets("feuil1").Range("D3") = Sheets("feuil2").Cells(I, 2) Sheets("feuil1").Range("F3") = Sheets("feuil2").Cells(I, 3) Application.Wait Time + TimeSerial(0, 0, 1) If I = nbLignes Then I = 0 End If Next I End Sub

---

Mais malheureusement aucun des deux fonctionnent. J'espère obtenir de l'aide.

Bonne soirée tout le monde.

Vincent

Bonjour,

Qu'entend tu par "qui tourne en continu" ?

Et il est de bon ton de mettre un

Code:

---

On Error GoTo 0

---

après un

Code:

---

On Error Resume Next

---

Le second passe outre les erreurs, donc s'il y en a, il saute simplement la ligne, ce qui n'est pas évident pour les détecter ;)

Bonjour Nico Chg,

Citation:

---

Qu'entend tu par "qui tourne en continu" ?

---

Ben la macro tourne tout le temps jusqu'à l'appuie des touches Ctrl + Attn.

J'ai bien rajouter

Code:

---

On Error GoTo 0

---

.

Merci d'avance,

Vincent

Ah oui, au temps pour moi, j'avais lu ton code en diagonal, et effectivement, cette macro tourne en continu.

Cependant, j'ai des doutes sur la faisabilité de ta demande, car pour moi, il faudrait interrompre la macro qui tourne en continu pour pouvoir en lancer une autre.

Je vais donc laisser le soin aux experts de te répondre, je ne connais pas du tout la réponse ;)

Bonne chance !

bonjour,

ben dans une boucle FOR il ne faut pas toucher à l'index ( ton I) c'est ta boucle for qui doit le traiter rien d'autre...


à bannir :

Code:

---

1 2 3

If I = nbLignes Then I = 0 End If

---

Merci pour vos réponses.

bbil, comment faire alors?
Et pendant cette macro est possible de copier coller des données d'un autre classeur?


Vincent.

si tu conserve ton traitement "continu" tu peu utiliser OnTime pour relancer ta macro..

Code:

---

1 2 3 4 5 6 7

Sub Test4() ThisWorkbook.Sheets(1).Range("A1") = Now '==> juste pour mes tests .. à remplacer par ton code...;)   'Relance Test4 .. dans 1 Seconde Application.OnTime Now + TimeSerial(0, 0, 1), "Test4"   End Sub

---

mais est-tu sur de devoir garder ce traitement continu ? ne peu tu pas fonctionner sur événement (changement valeur de cellule ....)

Merci Bbil,

Mais je suis obliger d'avoir la macro en continu.

mais le problème c'est que les données qu'y sont récupérer par la macro en continu doivent être modifiable sur un autre fichier.

Bonjour, bonjour !

Citation:

---

Envoyé par vins86

Mais je suis obliger d'avoir la macro en continu.

---

Non ! C'est une hérésie ‼ Excel n'est pas fait pour cela car mono-tâche !

C'est juste une histoire de logique à coucher sur le papier, bref penser à une conception tenant la route …

Bonjour Marc-L

Je ne vois pas comme ceci peut-être fait d'une autre façon
Je vous envoi le fichier. C'est la macro "test4".

Marc-L,

J'aime beaucoup ta proposition, mais je n'arrive pas à l'adapter

Voici le code:

Code:

---

1 2 3 4 5 6 7

Sub Test3()   ThisWorkbook.Sheets(1).Range("B10") = Sheets("feuil2").Cells(1, 2) 'Relance Test3 .. dans 5 Seconde Application.OnTime Now + TimeSerial(0, 0, 5), "Test3"   End Sub

---

Comment faire pour que 1 toute les 5sec descend d'une ligne?

Vincent.

tu as inventé le mouvement perpétuel félicitation!
mais ne t'imagines pas le renouveler et surtout dans le même excel.
je te propose de faire illusion comme le préconise bbil en mode partager.
pour cela je préconise assujettir le classeur B au classeur A qui lui contiendra la totalité des macros à lui d’ouvrir le classeur B; les variable Static permettent de sauvegarder le contexte dans la sub ou la function :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Public WbA As Workbook Public WbB As Workbook Sub MacroPrincipale() Set WbA = ActiveWorkbook 'If WbExiste("ClaseurB.XLSM") = True Then Set WbB = Workbooks("ClaseurB.XLSM") Else WbB = Workbooks.Open("ClaseurB.XLSM") 'dans le fonctionnement normale If WbExiste("ClaseurB.XLSM") = True Then Set WbB = ActiveWorkbook Else Set WbB = ActiveWorkbook 'Pour mon Test 'mouvement perpétuel Do SubClasseurA SubClasseurB Loop End Sub 'Je vérifie si le fichier est ouvert ! Function WbExiste(Wb As String) As Boolean Dim W As Long For W = 1 To Workbooks.Count If Workbooks(W).Name = Wb Then WbExiste = True: Exit Function Next End Function Sub SubClasseurA() Static I As Long If I = 0 Then I = 2 WbA.Sheets(1).Cells(I, 1) = "SubClasseurA" WbA.Sheets(1).Cells(I, 2) = I I = I + 1 If I = WbA.Sheets(1).Cells.Rows.Count Then I = 0 End Sub Sub SubClasseurB() Static I As Long If I = 0 Then I = 2 WbB.Sheets(2).Cells(I, 1) = "SubClasseurB" WbB.Sheets(2).Cells(I, 2) = I I = I + 1 If I = WbB.Sheets(2).Cells.Rows.Count Then I = 0 End Sub

---

Bonjour rdurupt,

Désolé, je suis débutant en vba.

J'ai du mal à comprendre ton code.

J'ai trouvé la solution. Sa fonctionne parfaitement. Je tiens à vous remercier pour votre aide. Ce forum est vraiment très bien.

Je vous montre le code effectué.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test3() Static I As Long If I = 0 Then I = 1 ThisWorkbook.Sheets(1).Range("B10") = Sheets("feuil2").Cells(I, 2) If I = Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row Then I = 0 I = I + 1   'Relance Test3 .. dans 5 Seconde Application.OnTime Now + TimeSerial(0, 0, 5), "Test3"   End Sub

---

Je suis vraiment désolé de vous avoir fait perdre votre temps avec mon problème.

Vincent.