Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Erreur Macro

Erreur Macro

5 réponses
Avatar
RJ
Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir continuer
?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
BonjourRg,

Tu dois faire disparaître "ActiveSheet" de cette ligne de commande :
ActiveSheet.Paste

Voici une façon de faire :
'-------------------------------------
Sub FinSemaine()

Dim MaFeuille As Worksheet
Set MaFeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " & _
Sheets("Sommaire").Range("L3").Value & " au " & _
Sheets("Sommaire").Range("L5").Value & "." & _
"Êtes-vous sur de vouloir continuer Print ", vbYesNo) = vbNo Then
End
Else
Range("A1").Select
Application.ScreenUpdating = False
With Sheets("Annie Aubin")
.Select
.Range("A1:G40").Copy
End With
With MaFeuille
.Activate
.Paste
.Range("A1").Select
End With
Application.CutCopyMode = False
End If
End Sub
'-------------------------------------


Salutations!



"RJ" <Ré a écrit dans le message de news:
Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir continuer
?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.
Avatar
RJ
Bonjour Michdenis
j'avais deja essayer cette option mais c'est
Bizzard lorsque je fais comme tu ma dit et bien il me fait un erreur excel
..... Microsoft Excel a rencontré un problème et doit fermer
................ avec la ***** de case a cocher Récupérer mon travail et
redémarrer Microsoft Excel :(

"RJ" <Ré a écrit dans le message de news:

Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir
continuer ?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.



Avatar
michdenis
As-tu plus de chance avec cette version ?


Sub FinSemaine()

With ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " & _
Sheets("Sommaire").Range("L3").Value & " au " & _
Sheets("Sommaire").Range("L5").Value & "." & _
"Êtes-vous sur de vouloir continuer Print ", vbYesNo) = vbNo Then
End
Else
.Range("A1").Select
Application.ScreenUpdating = False
With Sheets("Annie Aubin")
.Select
.Range("A1:G40").Copy
End With
.Activate
.Paste
.Range("A1").Select
Application.CutCopyMode = False
End If
End With

End Sub


Salutations!




"RJ" <Ré a écrit dans le message de news:
Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir continuer
?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.
Avatar
RJ
Bonjour michdenis,

Hummm j'ai fait un test avec un classeur vide ..
tout fonctionne !
sa doit etre quelque chose dans ma feuille que je copie qui fait faire sa
car quand je copie rien et que je le colle il passe très bien

merci de ton aide

"michdenis" a écrit dans le message de news:

As-tu plus de chance avec cette version ?


Sub FinSemaine()

With ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " & _
Sheets("Sommaire").Range("L3").Value & " au " & _
Sheets("Sommaire").Range("L5").Value & "." & _
"Êtes-vous sur de vouloir continuer Print ", vbYesNo) = vbNo Then
End
Else
.Range("A1").Select
Application.ScreenUpdating = False
With Sheets("Annie Aubin")
.Select
.Range("A1:G40").Copy
End With
.Activate
.Paste
.Range("A1").Select
Application.CutCopyMode = False
End If
End With

End Sub


Salutations!




"RJ" <Ré a écrit dans le message de news:

Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir
continuer
?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.





Avatar
RJ
Bonjour Michdenis

je croi avoir trouver mon probleme !
ma feuille ou je copie mes donnée est verouiller sauf une certaine plage
en particulier. .... si je laisse cette plage deverouiller et bien il fait
mon erreur et si je supprime cette plage et bien il copi et il colle a
merveille
bizzard mais bon je vais rajouter des ligne de code dans ma macro pour
enlever cette plage proteger pis la remettre apres la macro !

Merci de ton aide
"michdenis" a écrit dans le message de news:

As-tu plus de chance avec cette version ?


Sub FinSemaine()

With ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " & _
Sheets("Sommaire").Range("L3").Value & " au " & _
Sheets("Sommaire").Range("L5").Value & "." & _
"Êtes-vous sur de vouloir continuer Print ", vbYesNo) = vbNo Then
End
Else
.Range("A1").Select
Application.ScreenUpdating = False
With Sheets("Annie Aubin")
.Select
.Range("A1:G40").Copy
End With
.Activate
.Paste
.Range("A1").Select
Application.CutCopyMode = False
End If
End With

End Sub


Salutations!




"RJ" <Ré a écrit dans le message de news:

Bonjour a tous,
Jai une erreur dans cette macro

Sub FinSemaine()

Set Mafeuille = ActiveSheet
If MsgBox("Vous-êtes sur le point de fermer la semaine du " &
Sheets("Sommaire").Range("L3").Value & " au " &
Sheets("Sommaire").Range("L5").Value & ". Êtes-vous sur de vouloir
continuer
?", vbYesNo) = vbNo Then
End
Else
Mafeuille.Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("Annie Aubin").Select
Range("A1:G40").Select
Selection.Copy
With Mafeuille
.Activate
ActiveSheet.Paste ' <------------------ erreur ici
End With
End If
End Sub


lorsqu'il est rendu ici ActiveSheet.Paste il me dit La méthode 'Paste de
l'objet '_Worksheet' a échoué ???
pourtant il semble la coller parreil ...........
ya quelqu'un qui c'est pourqoi il me fait cette erreur !
Aprés sa mon excel GELE ben raide :(

Merci a vous tous.