Bonjour à tous,
je suis novice sur Excel VBA.
Actuellement, je cherche à copier sur une nouvelle feuille qui s'appelle "table AS_IS" des élements d'une autre feuille dans la range ("A1:R1").

Ma macro est associé à un bouton. Du coup, j'ai prévu le cas ou l'utilisateur appuierais deux fois sur le bouton en ajoutant à la macro une fonction FeuilleExiste que j'ai récupérer sur internet.

Le souci c'est que j'ai une erreur 1004: la methode Paste de la classe Worksheets ne marche pas. En gros je perds ma copie au moment de coller.

Pourrier vous m'aider?
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
 
Sub Table_AS_IS()
'
' Table_AS_IS Macro
' Création de la table AS_IS
'
 
'
    'Selection des colonnes pour la table AS_IS
    Range("A1:R1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    'Si la feuille table AS_IS n'existe pas, elle est crée et nommée "table AS_IS"
    If Not (FeuilleExiste("table AS_IS")) Then
        Sheets.Add
        ActiveSheet.Name = "table AS_IS"
    End If
    Worksheets("table AS_IS").Select
    'Sinon(si elle existe déjà),on efface tous ce qui est dans les colonnes A jusqu\'à R'
    Range("A:R").Delete
    Range("A1").Select
    ActiveSheet.Paste
End Sub
 
Function FeuilleExiste(Nom As String) As Boolean
    On Error GoTo Err_FeuilleExiste
    FeuilleExiste = False
    FeuilleExiste = Not Worksheets(Nom) Is Nothing
Err_FeuilleExiste:
End Function