Erreur d'exécution de macro

Le 18/06/2018 à 18:52

Bonjour

Lorsque j'exécute cette macro:

Sub Recup2()
'
' Recup2 Macro
'

'
    Range("B1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=15
    Range("B32").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=33
    Range("B63").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=27
    Range("B94").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=33
    Range("B125").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=27
    Range("B156").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=36
    Range("B187").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=24
    Range("B218").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=36
    Range("B249").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=30
    Range("B280").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=36
    Range("B311").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=24
    Range("B342").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=27
    Range("B373").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=39
    Range("B404").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=27
    Range("B435").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=36
    Range("B466").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
    ActiveWindow.SmallScroll Down:=24
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 473
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 404
    ActiveWindow.ScrollRow = 384
    ActiveWindow.ScrollRow = 369
    ActiveWindow.ScrollRow = 359
    ActiveWindow.ScrollRow = 344
    ActiveWindow.ScrollRow = 333
    ActiveWindow.ScrollRow = 321
    ActiveWindow.ScrollRow = 312
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
End Sub

j'ai le message d'erreur suivant:

erreur d'exécution 1004

la méthode PasteSpécial de la classe WorkSheet a échoué .

Pourriez-vous m'aider à remédier à cela.

Merci

NB:Macro obtenue à l'aide de l'enregistreur de macros.

Le 18/06/2018 à 18:56

Bonjour,

Fais l'effort de joindre un fichier et d'expliquer ce que tu souhaites faire.

Cdlt.

Le 18/06/2018 à 19:37

De plus,

 ActiveWindow.SmallScroll Down:=24
    ActiveWindow.ScrollRow = 474
    ActiveWindow.ScrollRow = 473
    ActiveWindow.ScrollRow = 432
    ActiveWindow.ScrollRow = 404
    ActiveWindow.ScrollRow = 384
    ActiveWindow.ScrollRow = 369
    ActiveWindow.ScrollRow = 359
    ActiveWindow.ScrollRow = 344
    ActiveWindow.ScrollRow = 333
    ActiveWindow.ScrollRow = 321
    ActiveWindow.ScrollRow = 312
    ActiveWindow.ScrollRow = 301
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1

Toute cette partie la ne sers à rien :3

Le 18/06/2018 à 23:59

Bonjour,

Ton code nettoyé fonctionne bien ... tant que le presse papier contient du code HTML.

Exemple : je sélectionne quelques mots sur ce forum, CTRL-C pour les placer dans le presse-papier. Ces quelques mots sont bien copiés dans la feuille active ... dans les cellules sélectionnées par la macro.

L'erreur d'exécution 1004 provient du presse-papier qui ne contient pas du code HTML adéquat.

Sub Recup2()

    Range("B1").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B32").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B63").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B94").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B125").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B156").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B187").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B218").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B249").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B280").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B311").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B342").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B373").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B404").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B435").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True

    Range("B466").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False, NoHTMLFormatting:=True
End Sub

ric

Le 19/06/2018 à 03:19

Merci à vous tous pour l'intérêt porté à ma demande.

Merci ric pour ta proposition.

Rechercher des sujets similaires à "erreur execution macro"