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 :

Renommer la feuille par rapport au fichier précédemment importer


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Septembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : Septembre 2015
    Messages : 2
    Par défaut Renommer la feuille par rapport au fichier précédemment importer
    Bonjour à tous,
    Je débute sur Excel, jusqu'à là je n'ai pas eu beaucoup de problème pour mettre au point mon petit programme dans un cadre professionnel mais je bloque sur une macro.
    Je m'explique,
    J'importe un fichier XLSX, sa copie les données de ce fichier dans le classeur actuelle et j'aimerais que la feuille où les données sont copié ai le même nom que le fichier qu'on a choisi dans le menu déroulant lors de l'importation.

    En gros : La feuille "Acceuil" du fichier "Import" , j'aimerais quel soit transformer en "GE_BALLON_PREPARATEUR_ECS" après l'importation.

    D'autre part quand on clique sur annuler lorsque l'on doit choisir le fichier à importer , sa met un message d'erreur:

    "Erreur d'exécution '1004':
    Désolé... Nous ne trouvons pas Faux.xlsx. Peut-être l'avez-vous déplacé, renommé ou supprimé?

    PS : Les fichiers qui seront importer à l'avenir n'auront pas le même nom.

    Merci pour votre aide.
    Fichiers attachés Fichiers attachés
    • Type de fichier : zip 1.zip (147,9 Ko, 90 affichages)

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    D'autre part quand on clique sur annuler lorsque l'on doit choisir le fichier à importer , sa met un message d'erreur
    Tester si Faux :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    If choix = False Then Exit Sub Else Set wbks = Workbooks.Open(choix)
    'pour le nom
    ActiveSheet.Name = Left(wbks.Name, InStr(wbks.Name, ".") - 1)

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Septembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : Septembre 2015
    Messages : 2
    Par défaut
    Bonjour,
    Super ! Sa fonctionne.
    Merci beaucoup déjà un problème de résolu.

Discussions similaires

  1. Réponses: 8
    Dernier message: 30/10/2009, 17h39
  2. [XL-2003] renommer une feuille par la valeur contenue dans une cellule
    Par mimilll dans le forum Excel
    Réponses: 2
    Dernier message: 20/06/2009, 00h06
  3. renommer plusieurs feuilles par un nom de cellules
    Par ickis69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/01/2009, 15h50
  4. Réponses: 4
    Dernier message: 03/07/2008, 19h55
  5. Chemin relatif par rapport à un fichier
    Par thibouille dans le forum Langage
    Réponses: 3
    Dernier message: 08/11/2007, 20h43

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