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 :

Charger une feuille Excel à partir d'une chaîne de caractères String [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Mars 2020
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : Maroc

    Informations professionnelles :
    Activité : Chef de projet MOA
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Mars 2020
    Messages : 6
    Par défaut Charger une feuille Excel à partir d'une chaîne de caractères String
    Bonjour,

    à partir d'un fichier excel d'entrée je récupéré un certain nombre de données

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Do While Not IsEmpty(w2.Worksheets("Tableau EC AL").Range("A" & Lig))
    w2.Worksheets("Tableau EC AL").Range("A" & Lig).Copy w1.Worksheets("TargetSheet").Range("P" & Lig + 1)
    ces données représentes des noms des feuilles dans le fichier excel d'entrée

    par suite je voudrais récupérer des données qui existent sur les feuilles en question, pour cela j'ai utilisé l'astuce suivante:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim SheetFlag As String
     
    SheetFlag = w2.Worksheets("Tableau EC AL").Range("A" & Lig)
    w2.Worksheets("SheetFlag").Range("C5").Copy w1.Worksheets("TargetSheet").Range("Q" & Lig + 3)
    mais ça ne fonctionne pas ça donne toujours un message d'erreur

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Moutaanni Voir le message
    mais ça ne fonctionne pas ça donne toujours un message d'erreur
    Quel est ce message d'erreur <,
    Que contient EXACTEMENT w2.Worksheets("Tableau EC AL").Range("A" & Lig) au moment de l'erreur ?

    Si SheetFlag est une variable, il ne faut pas mettre de guillemets lorsqu'on l'utilise.
    Essaye :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    w2.Worksheets(SheetFlag).Range("C5").Copy w1.Worksheets("TargetSheet").Range("Q" & Lig + 3)

  3. #3
    Membre habitué
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Mars 2020
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : Maroc

    Informations professionnelles :
    Activité : Chef de projet MOA
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Mars 2020
    Messages : 6
    Par défaut
    Oui c'est exactement ça, fallait enlever les guillemets,
    Merci bcp pour votre aide

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 05/03/2007, 20h10
  2. Réponses: 2
    Dernier message: 04/10/2006, 10h45
  3. insérer une nouvelle feuille Excel à partir d' Access
    Par Sebastien_INR59 dans le forum Access
    Réponses: 2
    Dernier message: 06/08/2006, 18h47
  4. [VBA]Renseigner une feuille excel à partir d'un site web
    Par DonKnacki dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 23/01/2006, 13h43
  5. Réponses: 5
    Dernier message: 05/07/2005, 20h25

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