1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 25
    Points : 15
    Points
    15

    Par défaut Variable VBS à partir d'une valeur de cellule

    Bonjour à tous,
    Je sèche un peu sur une partie relativement simple de VBS, la déclaration de variable.
    J'aimerai que ma variable prenne la valeur d'une cellule provenant d'un fichier Excel.
    J'ai pensé à une structure comme ci-dessous mais cela ne marche pas comme VBA... :S
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Dim variable
    variable=Workbooks("Monfichier.xlsx").sheets("maFeuil").Cells(1,1)
    msgbox variable
    Si quelqu'un peut m'aider ...
    .Merci d'avance

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 520
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 520
    Points : 9 718
    Points
    9 718

    Par défaut

    Salut

    Avec ce lien Comment piloter Excel pour créer un classeur.xls ? et le fait que tu as semble t'il la maitrise de VBA Excel, tu devrais pouvoir solutionner ton problème.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 25
    Points : 15
    Points
    15

    Par défaut

    ProgElecT ,
    Merci pour l'aide, je ne l'avais pas trouvé celle-ci.
    En plus super claire.
    voici le code
    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
     
     
    dim xlApp, xlBook, xlSht 
    dim filename, value1
    filename = "Mon_fichier.xlsx"
    set xlApp = CreateObject("Excel.Application")
    set xlBook = xlApp.WorkBooks.Open(filename)
    set xlSht = xlApp.activesheet
    value1 = xlSht.Cells(1, 1)
     
    msgbox value1 
    xlBook.Close False
    xlApp.Quit
    set xlSht  = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
    Bien sur je m'en sers pour autre chose après

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

Discussions similaires

  1. [XL-2013] Filtrer un TCD à partir d'une valeur de cellule
    Par Romain49 dans le forum Excel
    Réponses: 3
    Dernier message: 10/03/2015, 21h27
  2. Réponses: 1
    Dernier message: 01/05/2014, 17h25
  3. Réponses: 2
    Dernier message: 30/08/2013, 14h11
  4. Suppression d'une ligne d'un tableau à partir d'une valeur de cellule
    Par jerem1 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/12/2010, 14h15
  5. Lancer une macro à partir d'une valeur de cellule
    Par arkorrigan dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/06/2008, 10h03

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