IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Dupliquer une feuille excel par macro


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 38
    Par défaut Dupliquer une feuille excel par macro
    BOnjour, j'essaie de dupliquer une feuille excel faite en modèle via une macro. Le hic c'est que çà ne marche pas.
    POur le titre de l'onglet, je voulais récupérer les données inscrites en cellule B2.

    Il y a un souci d'exécution.

    POuvez-vous m'aider?

    Merci

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Sub duplic()
    Worksheets('modele').Copy After:=Sheets(Worksheets.Count)
    .Name = ActiveSheet.Range("B2").Value
    End Sub

  2. #2
    Expert confirmé
    Avatar de cafeine
    Inscrit en
    Juin 2002
    Messages
    3 904
    Détails du profil
    Informations forums :
    Inscription : Juin 2002
    Messages : 3 904
    Par défaut
    Hello,

    1- les noms des feuilles ne sont pas délimités par des quotes (') mais par des double quotes (") ...

    2- ce type d'écriture s'utilise dans un bloc With
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count)
    Set MySheet = ActiveSheet
    With MySheet
       .Name = Worksheets("feuil1").Range("B2")
    End With

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2005
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2005
    Messages : 38
    Par défaut
    si je mets cela

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub duplic()
    Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count)
    Set MySheet = ActiveSheet
    With MySheet
       .Name = Worksheets("feuil1").Range("B3")
    End With
    End Sub
    çà ne marche pas

    erreur d'exécution
    l'indice n'appartient pas à la sélection

    Si je mets le code tel qu'écrit plus haut : çà me met erreur de compilation instruction incorrecte à l'intérieur d'une procédure.

    J'ai du louper une étape.

    Merci d'avance

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    sur qu'elle ligne l'erreur ...? la feuil1 est bien présente dans ton classeur...?

  5. #5
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Le code donné par cafeine est un exemple.

    Le but n'était pas de le copier tel quel.

    Il me semble que ta feuille modèle s'appelle "modele" et pas "feuil1".
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

Discussions similaires

  1. Recapitulatif d'une feuille excel par une macro
    Par Mathsdeb dans le forum Excel
    Réponses: 6
    Dernier message: 06/04/2015, 14h57
  2. [Toutes versions] Impression d'une feuille Excel par macro --> Ne pas utiliser l'imprimante par défaut
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 23/05/2012, 13h41
  3. nommer une feuille excel par la date du jour.
    Par Bourezak dans le forum Access
    Réponses: 3
    Dernier message: 22/01/2007, 15h22
  4. Insérer une feuille Excel avec macro dans une page HTML
    Par Pakkaï dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 08/12/2006, 17h40
  5. Dupliquer une feuille Excel avec Delphi 7
    Par loci dans le forum Delphi
    Réponses: 1
    Dernier message: 01/07/2006, 15h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo