Discussion :

[Dragern]

Bonjour le forum,

Je cherche à copier coller la feuille d'un classeur-modèle dans un classeur-cible via la méthode .copy, Or cela ne marche pas j'ai cherché un peu et je retrouve toujours la même méthode et certains disent qu'elle fonctionne très bien je voulais savoir si je n'avais donc par une erreur dans mon code ou alors si il y a une autre méthode.

Les Variables ont été préalablement déclarées.

CLASSEUR_MODELE_NAME = Classeur-modèle
str_WSName = Classeur-cible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks.Open (CHEMIN_FICHIER_MODELE)
        Workbooks(CLASSEUR_MODELE_NAME).Sheets(FEUILLE_SECURITE_NAME).Copy after:=Workbooks(str_WSName).Sheets(1)

Merci beaucoup.
Dragern

[SfJ5Rpw8]

Bonjour,

pour ceci :

...
Les Variables ont été préalablement déclarées.

CLASSEUR_MODELE_NAME = Classeur-modèle
str_WSName = Classeur-cible
...

ce n'est pas une déclaration de variable mais plutôt une affectation ... , il aurait était bien que tu mette ton vrai code plutôt que ce pseudo-code qui ne nous permet pas de savoir si tu déclare et affecte bien tes variables ...!

l'on ne sait pas non plus comment tu ouvre le classeur cible ...

tu ne nous dis pas non plus ce qu'il se passe lorsque tu exécute ton code ...?

[Dragern]

Global Const FEUILLE_SECURITE_NAME = "Sécurité"
Global Const CHEMIN_SOURCE_PROGRAMME = "U:\\Repertoire\"
Global Const CLASSEUR_MODELE_NAME = "Repertoire modele interimaire"
Global Const CHEMIN_FICHIER_MODELE = CHEMIN_SOURCE_PROGRAMME & "Repertoire modele interimaire.xlsx"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ongletexiste(onglet As String, str_WSName) As Boolean
 
Dim ligne As Long
 
    On Error GoTo Erreur_onglet
    ongletexiste = False
' Si la feuille n'est pas rien alors renvoie la valeur vrai
    If Not Workbooks(str_WSName).Sheets(onglet) Is Nothing Then
        ongletexiste = True
    End If
 
Erreur_onglet:
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    If ongletexiste(FEUILLE_SECURITE_NAME, str_WSName) Then
        GoTo Dispo
    Else
'La méthode .Copy ne marche pas
        Workbooks.Open (CHEMIN_FICHIER_MODELE)
        Workbooks(CLASSEUR_MODELE_NAME).Sheets(FEUILLE_SECURITE_NAME).Copy after:=Workbooks(str_WSName).Sheets(1)
        Workbooks(CHEMIN_FICHIER_MODELE).Close

Le code se résume à ça et sa indique que la méthode copy de la classe worksheet a échoué

[SfJ5Rpw8]

...

l'on ne sait pas non plus comment tu ouvre le classeur cible ...

[Dragern]

Le classeur cible est déjà ouvert

[Marc-L]

Bonjour, bonjour !

Pas de souci avec la méthode Copy !

En activant l'Enregistreur de macros puis en effectuant l'opération manuellement, une base de code est livrée sur un plateau ‼
En comparant avec ta tentative, tu trouveras ta boulette …


______________________________________________________________________________________________________
Je suis Paris, …

[Dragern]

Merci Marc j'ai utilisé l'enregistreur et j'ai trouvé une erreur, c'était ma variable qui posait problème.