Copier Coller Cumulatif

[malabarbe]

Bonsoir à tous,

Après deux jours de galère, je me tourne vers vous

Avec la Macro Recup_1 je fais :
A partir d'un site Internet, je clique dans la Frame 1
puis je fais sélectionner tout et puis copier
Dans la feuille Excel, je fais Edition : Collage spécial au format Texte.

Avec la Macro Recup_2,
Je fais ma mème opération avec la Frame 2 = ok

Jusque là, tout va bien

C'est quand je réunis la Macro Recup_1 et la Macro Recup_2
dans une seule Macro que Soit j'ai une erreur VBA ou que je ne récupère
que le texte de la Frame 1 ou la Frame 2
mais jamais les deux ensemble.

Le restant de ma boite de Doliprane pour un coup de main !

 

[ROGER2327]

Re : Copier Coller Cumulatif

Bonjour malabarbe

Difficile de se faire une opinion sans voir le code ! Dites-nous en plus...​

A bientôt,
ROGER2327

 

[malabarbe]

Re : Copier Coller Cumulatif

Voilà le détail :
Macro Récup_1 :

Sub Recup_1()
'   Feuille 5
'   Copie la Frame 1
    Windows("Classeur5").Activate
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
        False
    Range("A1").Select
End Sub

Macro Récup_2 :

Sub Recup_1()
'   Feuille 6
'   Copie la Frame 2
    Windows("Classeur6").Activate
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
        False
    Range("A1").Select
End Sub

Macro Recup_Tot :

Sub Recup_Tot()
    Windows("Classeur6").Activate
    Range("A1").Select
    Call Recup_1
    Range("A10").Select
    Call Recup_2
End Sub

La totale !

 

[ROGER2327]

Re : Copier Coller Cumulatif

Re...

Je ne suis pas sûr de comprendre : lorsque vous utilisez la dernière procédure, elle appelle la première qui fait, entre autre, une opération de collage. Puis elle appelle la deuxième qui, elle aussi, opère un collage.
Mais entre les deux, il n'y a pas d'opération de copie : vous collez la même chose dans les deux feuilles ?
A vous lire...​

ROGER2327

 

[malabarbe]

Re : Copier Coller Cumulatif

C'est ce code la qui copie et qui tourne pour
les deux premières Macros :

    ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
        False
    Range("A1").Select
End Sub

 

[ROGER2327]

Re : Copier Coller Cumulatif

Re...

Effectivement, je n'ai pas compris votre code. Je pensais que la ligne que vous citez collait des données, non qu'elle les copiait. Ce forum étant riche de talent, il se trouvera bien quelqu'un qui sera en mesure de vous aider.​

ROGER2327

 

[malabarbe]

Re : Copier Coller Cumulatif

Ok,
J'attends donc...

Et merci pour ce début d'infos