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 :

Utilisation des noms de feuilles [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2010
    Messages
    120
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 120
    Par défaut Utilisation des noms de feuilles
    Bonjour,
    désolé de poser une question basique mais voici 2 heures que je patauge dans les aides sans trouver la solution :
    Je veux tout simplement copier un fichier (une feuille) "base" 3 fois mais en lui donnant un nom spécifique à chaque fois ( "Fich01" "Fich02" "Fich03" par exemple.

    Je sais faire :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     For n = 3 To 1 Step -1
            Worksheets("base").Copy Before:=Worksheets("Jour")
        Next
    mais ça me donne évidemment 3 copies "base(2)" "base(3)" et "base(4")

    Comment copier et changer le nom ?

    Merci beaucoup

  2. #2
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour,
    et comme ça ? :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    For n = 3 To 1 Step -1
    Worksheets("base").Copy Before:=Worksheets("Jour")
    ActiveSheet.Name = "Fich" & Format(n, "00")
    Next
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2010
    Messages
    120
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 120
    Par défaut Utilisation des noms de feuilles
    Bonsoir casefayere,

    tout d'abord excuse moi pour cette réponse tardive, mais j'ai eu un gros bug avec mon internet et j'étais . . . sans fil !
    C'est réparé.
    Merci pour ton aide. Evidemment ça fonctionne parfaitement.

    Vous êtes tous formidables.

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

Discussions similaires

  1. [XL-2003] l'affectation des nom aux feuilles excel
    Par foughaa01 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/01/2010, 13h35
  2. [WD14] Utilisation des nom de champs comme le contenu d'un champ
    Par darkterreur dans le forum WinDev
    Réponses: 5
    Dernier message: 06/10/2009, 18h20
  3. Utiliser un nom de feuille variable dans une formule
    Par DubDub dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/02/2009, 18h46
  4. Possiblité d'utiliser des noms de répertoires
    Par vicelard dans le forum Access
    Réponses: 4
    Dernier message: 27/10/2005, 11h04
  5. Réponses: 2
    Dernier message: 08/07/2004, 01h04

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