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 :

Macro d'insertion feuille


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Avril 2013
    Messages : 7
    Par défaut Macro d'insertion feuille
    bonsoir à tous,

    j'utilise actuellement une nomenclature créé à chaque fois ainsi qu'une feuille de suivi nommée suivivierge.xlsx qui lui est fixe.
    je l'ouvre copie et colle à chaque fois sur la nomenclature créée

    je voulais savoir s'il étais possible d'une macro, de coller automatiquement la feuille de suivi sur une nouvelle feuille de la nomenclature

    merci d'avance

  2. #2
    Membre Expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 475
    Par défaut
    Bonjour

    Va voir ceci http://www.developpez.net/forums/d80...asseur-resolu/, http://www.developpez.net/forums/d11...es-worksheets/

    Cela pourrait ressembler à ceci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub CopieFeuille() 
    Workbooks(1).Sheets("Feuil1").Copy Before:=Workbooks(2).Sheets("Feuil3")
    End Sub

  3. #3
    Membre du Club
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Avril 2013
    Messages : 7
    Par défaut
    j'ai beau essayer je n'y arrive pas du tout. J'ai tester via le 1er lien j'arrive à créé une nouvelle feuille mais je n'arrive pas a prendre via un chemin mon suivivierge.xlsx et le coller sur cette feuille créée

    je ne m'y connais pas en macro faut dire aussi

  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
    bonjour,

    suivivierge.xlsx c'est un "classeur" , ce que tu veux c'est bien copier une feuille de ce classeur vers le classeur contenant ton code ?

    et si tu nous monter ton code entre balises [code] [/code] ?

  5. #5
    Membre du Club
    Homme Profil pro
    Inscrit en
    Avril 2013
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Avril 2013
    Messages : 7
    Par défaut
    et bien j'essaie de suivre ça

    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
    mais je ne comprend pas ou noté le chemin d'accès , s'il faut rajouté des balises ou autres quelque part

    ce que je veux faire exactement c'est copier mon suivi vierge sur une feuille d'une nomenclature créée auparavent.
    Actuellement : je créé ma nomenclature en format excel a partir d'un logiciel
    une fois la nomenclature faite, j'ouvre une nouvelle feuille, j'ouvre mon classeur suivi vierge et je copie la feuille de suivi dans la feuille vierge du classeur nomenclature ..
    Ce que je veux faire :
    un raccourci clavier me permettant de faire tout cela sans créer une nouvelle feuille et ouvrir le classeur suivi vierge
    car manip' trop compliqué pour un nouvel arrivant qui ne connait pas l'informatique.

    quelqu'un peux m'aider ?

    j'ai donc reessayer depuis j'ai réussi à faire ça

    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
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    ' Touche de raccourci du clavier: Ctrl+k
    '
        Sheets("Feuil3").Select
        Sheets("Feuil3").Name = "Nomenclature"
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets("Feuil5").Select
        Sheets("Feuil5").Name = "SUIVI"
        Sheets("SUIVI").Select
        Sheets("SUIVI").Move Before:=Sheets(1)
        Windows("suivi vierge.xlsx").Activate
        Cells.Select
        Selection.Copy
        Windows("Nouveau Feuille de calcul Microsoft Excel.xlsx").Activate
        Cells.Select
        ActiveSheet.Paste
    End Sub
    mais la feuille suivi vierge ne veux pas se mettre dans le nouveau classeur...
    de plus le nouveau classeur peux avoir n'importe quel nom vis à vis de mes fichiers ... ça peux posé un problème ?

Discussions similaires

  1. Lancer macro à l'insertion d'une nouvelle feuille
    Par Tho69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/07/2013, 11h11
  2. [VBA Excel] macro création de feuille
    Par Viper7 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 29/06/2006, 11h13
  3. macro sur plusieurs feuilles
    Par lolo_bob2 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/06/2006, 16h51
  4. [VBA-E] Lier une macro a une feuille excel
    Par Ol.Geez dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 02/06/2006, 10h53
  5. Réponses: 9
    Dernier message: 30/05/2006, 17h55

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