XL 2016 La methode PasteSpecial de la classe range a echoué

KTM · 6 Août 2020

Bonsoir Chers tous
Aidez moi à comprendre et corriger la macro ci dessous
Elle me renvoie une erreur que je comprends pas Merci

VB:

Sub Macro1()
Dim f As Worksheet, fichier$, chemin$

Application.ScreenUpdating = False
Set f = Sheets("St2")
    f.Visible = True
    f.Unprotect "mdp"
    chemin = ThisWorkbook.Path & "\Stables\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
    fichier = "Statut"
    f.Range("A1:P42").Copy
    Workbooks.Add (xlWBATWorksheet)
With ActiveWorkbook
        With .Worksheets(1).Cells(3, 1)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
        Application.CutCopyMode = False
                Application.ScreenUpdating = False
                Application.DisplayAlerts = False
.SaveAs chemin & fichier, 51
.Close
End With
End Sub

job75 · 6 Août 2020

Bonjour KTM,

J'ai testé la macro avec des données dans la feuille "St2" => pas de bug chez moi.

A+

Jean-Eric · 6 Août 2020

Bonjour,
C'est quoi le souci dans ta procédure et sur ce forum ?
Cdlt.

VB:

Sub Macro1()
Dim f As Worksheet, fichier As String, chemin As String
    Application.ScreenUpdating = False
    chemin = ActiveWorkbook.Path & "\Stables\"
    If Dir(chemin, vbDirectory) = "" Then MkDir chemin
    fichier = "Statut.xlsx"
    Set f = ActiveWorkbook.Worksheets("St2")
    With f
        .Visible = True
        .Unprotect "mdp", userinterfaceonly:=True
        .Range("A1:P42").Copy
    End With
    Workbooks.Add (xlWBATWorksheet)
    With ActiveWorkbook
        With .Worksheets(1).Cells(3, 1)
            .PasteSpecial Paste:=xlPasteValues
            .PasteSpecial Paste:=xlPasteFormats
        End With
        Application.CutCopyMode = False
        .SaveAs chemin & fichier, 51
        .Close
    End With
End Sub

fanch55 · 6 Août 2020

Salut à Tous,
@KTM
Si tu pouvais faire une capture du message d'erreur, cela nous permettrait de te donner des conseils appropriés ...

KTM · 6 Août 2020

une

Jean-Eric à dit:
.Unprotect "mdp", userinterfaceonly:=True

Oups!!!
erreur d'execution 1004
Erreur definie par l'application ou par l'objet

fanch55 · 7 Août 2020

Salut,
userinterfaceonly:=True ne sert que pour la protection et est particulier .

Comme @job75 , j'ai testé la macro fournie, elle fonctionne correctement chez moi , feuille protégée ou non .

Si vous pouviez faire une capture du message d'erreur de votre macro initiale, cela nous permettrait de vous donner des conseils appropriés , j'insiste ...

Effectivement, s'il y a une quelconque interaction applicative entre le copy et le paste ( surtout en mode pas à pas du vba où on a tendance à cliquer rapidement à l'endroit où devrait se trouver le bouton pas à pas sans vérifier la fenêtre affichée ), le paste aura toute les chances d'aboutir en erreur 1004.
Le seul conseil que je pourrai vous donner est de faire le f.Range("A1:P42").Copy
juste avant la séquence de paste .

job75 · 7 Août 2020

fanch55 à dit:
Si vous pouviez faire une capture du message d'erreur de votre macro initiale, cela nous permettrait de vous donner des conseils appropriés , j'insiste ...

A priori le message c'est le titre de la discussion.

fanch55 · 7 Août 2020

job75 à dit:
A priori le message c'est le titre de la discussion.

Salut Job75,
Effectivement, comme je n'ai jamais le titre dans mon champ de vision lors de la saisie des posts et que je ne regarde pas plus la barre des adresses, je n'ai même pas vérifié, autant pour moi .

job75 · 7 Août 2020

Le problème aurait sans doute été résolu dès le 2ème message si KTM avait joint le fichier

KTM · 7 Août 2020

Exact Job75

job75 à dit:
Le problème aurait sans doute été résolu dès le 2ème message si KTM avait joint le fichier

fanch55 · 7 Août 2020

Oki, tout s'éclaire avec le fichier :
C'est le Workbook_deactivate qui interagit ....
déplacez le .copy avant le Paste résout le pb ...

job75 · 7 Août 2020

fanch55 à dit:
Oki, tout s'éclaire avec le fichier :
C'est le Workbook_deactivate qui interagit ....
déplacez le .copy avant le Paste résout le pb ...

Eh oui, on peut aussi ajouter les Application.EnableEvents :

VB:

    Application.EnableEvents = False
    Workbooks.Add (xlWBATWorksheet)
    Application.EnableEvents = True

KTM · 7 Août 2020

job75 à dit:
Eh oui, on peut aussi ajouter les Application.EnableEvents :

VB:

Application.EnableEvents = False Workbooks.Add (xlWBATWorksheet) Application.EnableEvents = True

MERCI Job75 , fanch55
Vous mettez fin à mon calvaire de deux jours
Mille merci!!!

job75 · 7 Août 2020

KTM à dit:
Vous mettez fin à mon calvaire de deux jours

Qui aurait pu être de quelques minutes.

XL 2016 La methode PasteSpecial de la classe range a echoué

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Jean-Eric

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Pièces jointes

fanch55

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires