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 :

Nommage d'un workbook par variable [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Femme Profil pro
    Tourneur
    Inscrit en
    Mai 2018
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 73
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Tourneur

    Informations forums :
    Inscription : Mai 2018
    Messages : 39
    Par défaut Nommage d'un workbook par variable
    Bonjour à tous,

    Je souhaite faire des manipulations avec un fichier nommé avec le contenu d'une variable (contenu de la variable = nom du fichier). Le nom du fichier peut changer donc il faudrait une formule générique basée sur cette variable qui est saisie via un userform, le but est d'obtenir un code du type :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Set NOM = Workbooks("var") 'var étant le nom du fichier
    Workbooks("Fichier 1").Sheets("Tableau").Copy After:=NOM.Sheets(2)

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    bonsoir
    à tester et à essayer avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    chemin = "Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\"
    fichier = combobox1.value & ".xlsx"
    Workbooks.Open chemin & fichier

  3. #3
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2007
    Messages
    2 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 478
    Par défaut
    Re,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim NOM As Workbook
    Dim var As String
    var = "Nom_du_fichier"
    Set NOM = Workbooks(var)
    Workbooks("Fichier 1").Sheets("Tableau").Copy After:=NOM.Sheets(2)

  4. #4
    Membre actif
    Femme Profil pro
    Tourneur
    Inscrit en
    Mai 2018
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 73
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Tourneur

    Informations forums :
    Inscription : Mai 2018
    Messages : 39
    Par défaut
    Bonsoir,

    Merci pour vos réponses qui m'ont bien aidé.

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 08/09/2006, 11h04
  2. Tracking par variable d'environnement PHP
    Par boteha dans le forum Langage
    Réponses: 2
    Dernier message: 15/07/2006, 14h55
  3. Nommage automatique des controls par Access
    Par sunvialley dans le forum Access
    Réponses: 2
    Dernier message: 13/06/2006, 09h54
  4. passage par variable et composant
    Par cfalcot dans le forum Composants VCL
    Réponses: 7
    Dernier message: 22/02/2006, 16h47
  5. [ASP] include remplacer chemin par variable
    Par damn dans le forum ASP
    Réponses: 3
    Dernier message: 01/10/2004, 15h27

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