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

[KTM]

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

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]

Bonjour KTM,

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

A+

 

[Jean-Eric]

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

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]

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

 

[KTM]

une

.Unprotect "mdp", userinterfaceonly:=True

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

 

[fanch55]

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]

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]

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]

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

 

[KTM]

Exact Job75

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

 

[fanch55]

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]

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 :

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

 

[KTM]

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

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

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

 

[job75]

Vous mettez fin à mon calvaire de deux jours

Qui aurait pu être de quelques minutes.