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 :

Erreur 438 pour feuille ayant la date d'aujourd'hui + un préfixe [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé

    Homme Profil pro
    Développeur VBA \ VB
    Inscrit en
    Novembre 2015
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Développeur VBA \ VB
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2015
    Messages : 30
    Billets dans le blog
    1
    Par défaut Erreur 438 pour feuille ayant la date d'aujourd'hui + un préfixe
    Bonjour,
    J'ai bien réussis à déplacer la feuille au dernier emplacement mais ce qui ne marche pas ici c'est la renommer.
    J'aimerais que la feuille s'appelle "S3-SRVTR-dd-mm-yyyy" ou la date serait celle d'aujourd'hui :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Sub CommandButton7_Click()
    PREFIX = "S3-SRVTR-"
    i = Format(Now, "dd-mm-yyyy")
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet(Sheets.Count).Name = PREFIX & i
    End Sub
    Help me

  2. #2
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2012
    Messages
    345
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2012
    Messages : 345
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sheets(Sheets.Count).Name = PREFIX & i
    Cordialement

  3. #3
    Membre éclairé

    Homme Profil pro
    Développeur VBA \ VB
    Inscrit en
    Novembre 2015
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Développeur VBA \ VB
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2015
    Messages : 30
    Billets dans le blog
    1
    Par défaut Sheets(Sheets.Count)
    Malheureusement sa ne marche pas le code s'arrête avant. Sa copie la feuille mais ne modifie pas le nom le nom reste S3-SRVTR-2015-03-02(02).

  4. #4
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2012
    Messages
    345
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2012
    Messages : 345
    Par défaut
    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
    Sub copie_Onglet()
     
    Dim WsSource as worksheet
    Dim WsCible as worksheet
    Dim PREFIX as string
    Dim i
     
    PREFIX = "djdjdj"
    i = "..."
     
    Set  WsSource = ThisWorkbook.Sheets("Nom de la feuille à copier")
     
    Set WsCible = ThisWorkbook.Sheets.Add(after:=Sheets(Sheets.Count))
     
    WsCible.Name = PREFIX & i
     
    WsSource.UsedRange.Copy WsCible.Range("A1")
     
    End  Sub

  5. #5
    Membre éclairé

    Homme Profil pro
    Développeur VBA \ VB
    Inscrit en
    Novembre 2015
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Développeur VBA \ VB
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2015
    Messages : 30
    Billets dans le blog
    1
    Par défaut Merci
    Oui sa marche aussi, en fait mon Problème c'était que je n'avais pas :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim PREFIX As String
    Dim i As String

  6. #6
    Membre éclairé
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2012
    Messages
    345
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2012
    Messages : 345
    Par défaut
    OK,

    n'oublie pas de cliquer sur Résolu

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

Discussions similaires

  1. initialiser un champ à la date d aujourd hui
    Par Methode dans le forum SQL Procédural
    Réponses: 3
    Dernier message: 02/05/2007, 13h11
  2. Date d'aujourd'hui par défaut
    Par MorganStern dans le forum PostgreSQL
    Réponses: 2
    Dernier message: 23/02/2007, 12h25
  3. Réponses: 3
    Dernier message: 11/11/2006, 07h14
  4. Durée depuis une certaine date jusqu'à aujourd'hui
    Par kirouha dans le forum Access
    Réponses: 5
    Dernier message: 13/07/2006, 10h07
  5. Ouvrir un Form sur la date d'aujourd'hui
    Par Technicien dans le forum Access
    Réponses: 3
    Dernier message: 04/07/2006, 19h17

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