Microsoft 365 Erreur Visual Basic (Macro Excel)

Sitoun

XLDnaute Nouveau
Bonjour à tous,

Je viens de créer une macro, mais lorsque je la lance, j'obtiens un message qui me demande d'activer le "débogage". Si je dis oui, le codage s'affiche avec en surbrillance jaune "ActiveSheet.Paste". Je n'arrive pas à résoudre cette erreur qui empêche ma macro de s'effectuer correctement:

...
End With
Range("J1").Select
ActiveSheet.Paste
Range("I1").Select
ActiveSheet.Paste
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.RowHeight = 37.2
Range("B1").Select
ActiveCell.FormulaR1C1 = "=+TODAY()"
Range("B1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
...
Quelqu'un sait-il de quoi il s'agit et de quelle manière je peux régler ce problème? Je ne connais pas du tout ce language (codification derrière les macros Excel)

Merci par avance.
 

Pièces jointes

  • Erreur MACRO_ActiveSheet. Paste.docx
    114 KB · Affichages: 3

fanfan38

XLDnaute Barbatruc
Bonjour
Il manque quelque chose car (quand tu es en débogage tu appuies sur f1 pour avoir l'aide)
ActiveSheet.Paste : Cette méthode colle le contenu du Presse-papiers dans la feuille.
C'est le fichier excel (sans données compromettantes) qu'il faut joindre..
A+ François
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo