bonjour à tous
je viens vers vous car j'ai un soucis au niveau d'un copier coller
je m'explique j'ai une maccro qui fait des copier coller plusieurs fois d'affilé ça fonctionne très bien et au bout d'un moment la fonction paste foire
j'ai un message : "la méthode Paste de la classe Worksheet a échoué"

voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Sub FeuilleFonctionFolder()
Application.DisplayAlerts = False
Worksheets("Page d'acceuil").Activate 'Rend la feuille Templet SV active
FichierAF = Range("B11").Value 'Cellule où se trouve l'adresse du fichier AF
Set AF = Workbooks.Open(FichierAF) ' Ouvre Fichier HEM-AF-6300-001.xlsm
Windows("HEM-AF-6300-001").Activate 'Rend le fichier GénérateurSV_v2.10 actif
Worksheets("General").Activate 'Rend la feuille Templet SV active
 
' Déclaration des variables.
Dim NbFct As Integer
 
Dim i As Integer
Dim Nom As String
 
Dim F_G As Object
Set F_G = Sheets("General")
Dim F_FeuilDB As Object
 
 
NbFct = F_G.Range("Gen_Liste_fonctions").Rows.Count - 4
Max = Sheets("General").Range("Gen_Liste_fonctions").Rows.Count - 4
 
    For i = Max To 1 Step -1
        Nom = Sheets("General").Range("Gen_Liste_fonctions").Cells(3 + i, 1)
 
        If Nom <> "" And Nom <> "N/A" Then
 
          Windows("classeurtest3.0").Activate 'Rend le fichier GénérateurSV_v2.10 actif
          Worksheets("Dossier GC Originel").Activate 'Rend la feuille Templet SV active
          ActiveSheet.UsedRange.Copy 'Fonction Selectionner tout + copier
          If SheetExists(Nom & "Section") Then
          ThisWorkbook.Sheets(Nom & "Section").Delete
          End If
          Sheets.Add After:=Worksheets(Worksheets.Count) 'ajoute une feuille dans le classeur actif en fin de classeur
          ActiveSheet.Name = Nom & "Section" 'Nomme la feuille cr?ee Folder GC Originel
          Cells(1, 1).Activate 'Rend la cellule A1 active
          ActiveSheet.Paste 'Fonction Coller
          ActiveSheet.Columns(2).Replace "FCT_XXX_YYY", Nom 'remplace dans la feuille bonjour, au niveau de la colonne 9 la valeur de fonction par la valeur de nom
          Columns("A:AD").EntireColumn.AutoFit
          Range("A1").Select
          Windows("HEM-AF-6300-001").Activate 'Rend le fichier GénérateurSV_v2.10 actif
          Worksheets("General").Activate 'Rend la feuille Templet SV active
 
        End If
 
         If Cells(i, 2).Text Like "*EQUIP*" Then ' est active si FUNCTION existe dans la colonne B
 
                    Cells(i, 2).Activate
                    ActiveCell.EntireRow.Delete
                    Range("A1").Select
                    i = i - 1
            End If
            If Cells(i, 2).Text Like "*IANA*" Then ' est active si FUNCTION existe dans la colonne B
                    'MsgBox "Le mot ""FUNCTION"" existe dans la colonne."
                    Cells(i, 2).Activate
                    ActiveCell.EntireRow.Delete
                    Range("A1").Select
                    i = i - 1
            End If
             If Cells(i, 2).Text Like "*OANA*" Then ' est active si FUNCTION existe dans la colonne B
 
                    Cells(i, 2).Activate
                    ActiveCell.EntireRow.Delete
                    Range("A1").Select
                    i = i - 1
            End If
             If Cells(i, 2).Text Like "*REGUL*" Then ' est active si FUNCTION existe dans la colonne B
 
                    Cells(i, 2).Activate
                    ActiveCell.EntireRow.Delete
                    Range("A1").Select
                    i = i - 1
            End If
            i = i + 1
 
 
 
    Next
 
Windows("HEM-AF-6300-001.xlsm").Close 'ici on ferme le fichier actif GénérateurSV_v2.10
 
End Sub
mon code consiste à aller dans une feuille type, copier les info de la feuille
créer une feuille avec un nom spécifique coller les infos, remplacer les info collées en fonction d'un critière particulier

j'éspère que vous pourrez m'aider

merci à vous