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 :

[VBA][Excel]Copier une feuille dans un nouveau classeur


Sujet :

Macros et VBA Excel

  1. #1
    Expert confirmé Avatar de illight
    Homme Profil pro
    Analyste décisionnel
    Inscrit en
    septembre 2005
    Messages
    2 328
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste décisionnel
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2005
    Messages : 2 328
    Points : 4 272
    Points
    4 272
    Par défaut [VBA][Excel]Copier une feuille dans un nouveau classeur
    Bonjour,

    Je voudrais copier une feuille de mon classeur existant dans un classeur que je vais créer. De plus, je voudrais que ce nouveau classeur est pour nom le nom de l'ancien classeur, "_", et le nom de la feuille que je copie..vous suivez jusque la ?
    Il faut aussi savoir que l'ancien classeur a plusieurs feuilles (60) et que donc cette fonction je vais "l'automatiser" pour pouvoir le faire pour toutes les feuilles...(d'ailleurs faudra tetre que je l'automatise aussi pour les classeurs vu qu'il y en a 3 ou 4 enfin ça je verrai plus tard pas ça le plus important bref...)
    J'ai donc créé cette fonction pour débuter pour voir ce que ça donnait (après il suffira juste de rajouter une boucle) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Sub macro()
    Dim objWorkbookCible As Workbook
    Dim objworkbooksource As Workbook
    Set objworkbooksource = ActiveWorkbook
    Set objWorkbookCible = Application.Workbooks.Add
    'objWorkbookCible.Name = objworkbooksource.Name & "_" & objworkbooksource.Worksheets(1).Name
    Worksheets(1).Copy after:=Workbooks(objWorkbookCible.Name).Worksheets("Feuil1")
     
    End Sub
    Quand je fais cette macro, il me créé bien un nouveau classeur, mais il ne copie pas les données de ma feuille dans le nouveau classeur et il créé une nouvelle feuille nommée "Feuil1 (2)" vide

    Cette ligne la :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    'objWorkbookCible.Name = objworkbooksource.Name & "_" &
    je l'ai mise en commentaire parce qu'il me disait que cette opération n'était pas possible parce que le classeur était en lecture seule (un truc comme ça..)
    J'ai essayé de changé après mais ça a pas marché non plus

    Quelqu'un aurait-il une solution ?

    Je vous remercie par avance de toute l'aide que vous m'apporterez
    1. Avant de poster, et http://www.developpez.com/sources/
    2. Lors du post, n'oubliez pas, si besoin les balises CODE => voir ici pour l'utilisation
    3. N'oubliez pas le
    4. N'oubliez pas le si la réponse vous a été utile !

  2. #2
    Expert éminent sénior


    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
    Points : 20 027
    Points
    20 027
    Par défaut
    tiens en modifiant un peu ton code ...:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub macro()
     Dim objWorkbookCible As Workbook
     Dim objworkbooksource As Workbook
      Set objworkbooksource = ActiveWorkbook
      Worksheets(1).Copy
      Set objWorkbookCible = ActiveWorkbook
      ActiveWorkbook.SaveAs objworkbooksource.Name & "_" & objworkbooksource.Worksheets(1).Name
    End Sub

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2005
    Messages : 12 464
    Points : 15 275
    Points
    15 275
    Par défaut
    J'avais ça dans un coin

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub CopierUneFeuilleDunClasseurDansLautre()
        FichierOùCopier = ActiveWorkbook.Name
        Application.Workbooks.Add
        FichierOùColler = ActiveWorkbook.Name
        Workbooks(FichierOùCopier).Activate
        Sheets("Feuil1").Select
        Sheets("Feuil1").Copy After:=Workbooks(FichierOùColler).Sheets(2)
    End Sub
    ... et j'arrive après la bagarre...

    A+

  4. #4
    Expert confirmé Avatar de illight
    Homme Profil pro
    Analyste décisionnel
    Inscrit en
    septembre 2005
    Messages
    2 328
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste décisionnel
    Secteur : Service public

    Informations forums :
    Inscription : septembre 2005
    Messages : 2 328
    Points : 4 272
    Points
    4 272
    Par défaut
    merci c'est nickel

    Hop la résolvélu
    1. Avant de poster, et http://www.developpez.com/sources/
    2. Lors du post, n'oubliez pas, si besoin les balises CODE => voir ici pour l'utilisation
    3. N'oubliez pas le
    4. N'oubliez pas le si la réponse vous a été utile !

  5. #5
    Candidat au Club
    Homme Profil pro
    Chargé de projet
    Inscrit en
    octobre 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé de projet
    Secteur : Industrie

    Informations forums :
    Inscription : octobre 2016
    Messages : 1
    Points : 3
    Points
    3
    Par défaut Solution en 1 ligne
    Hello,

    Je sais que ça date, mais j'ai une solution qui tient en 1 ligne si jamais :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks("tonFichierDeBase").Sheets("LafeuilleQueTuVeuxCopierDansUnNouveauClasseur").Copy
    Quand je fais ça, ça me génère un nouveau classeur "Classeur1.xlsx" avec une copie de la feuille et qui garde le même nom.
    Tu n'as plus qu'à enregistrer ton fichier sous un nouveau nom.

    Voilà

  6. #6
    Candidat au Club
    Homme Profil pro
    Auditeur Financier
    Inscrit en
    juillet 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Congo-Kinshasa

    Informations professionnelles :
    Activité : Auditeur Financier
    Secteur : Conseil

    Informations forums :
    Inscription : juillet 2020
    Messages : 2
    Points : 3
    Points
    3
    Par défaut
    Salut, toujours dans le même sujet, j'aimerai que le nouveau classeur crée prenne automatiquement le nom de la feuille copiée.

    Merci de m'aider svp !

  7. #7
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    10 928
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 10 928
    Points : 26 144
    Points
    26 144
    Billets dans le blog
    34
    Par défaut
    Bonjour,
    Cette discussion étant très ancienne et de plus résolue, il eut été préférable d'en créer une nouvelle quitte a faire référence à celle-ci

    Etant donné que la feuille copiée dans le nouveau classeur est la feuille active, pour récupérer son nom c'est simplement ActiveSheet.Name

    Autre solution à adapter car un message va s'afficher
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub t()
      Dim sht As Worksheet
      Set sht = ThisWorkbook.Worksheets("A traiter")
      sht.Copy
      ActiveWorkbook.SaveAs Filename:=sht.Name
      Set sht = Nothing
    End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Copier une feuille dans un nouveau classeur
    Par Rob's dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 18/12/2013, 17h16
  2. [XL-2003] Copier une feuille dans un autre classeur
    Par mistermail dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/10/2009, 19h06
  3. Réponses: 6
    Dernier message: 01/05/2007, 23h03
  4. [VBA-E] Copie par valeur d'une feuille dans un nouveau classeur
    Par MatMeuh dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 17/05/2006, 23h38
  5. copier une feuille dans un nouveau doc excel
    Par alkmehd dans le forum Access
    Réponses: 1
    Dernier message: 24/09/2005, 12h01

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