1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : mars 2016
    Messages : 14
    Points : 10
    Points
    10

    Par défaut Insérer une variable dans une valeur ?

    Bonjour,

    C'est BleuBite le Hobbit qui vient encore chercher de l'aide

    Je cherche à faire ne boucle pour écrire dans un fichier excel sur une même ligne mais dans plusieurs colonne.
    Je n'arrive pas à écrire correctement ma variable dans la valeur d'écriture, j'ai testé &col1 &col1& "&col1" "&col1&" sans succès
    Peut-être n'est-ce pas possible ?
    Voici mon script si quelqu'un a la bonté de jeter un œil
    voir ligne 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    While Col1 < "5" 
    	col1 = col1 + 1
     
    Set objExcel = CreateObject("Excel.Application")
    'objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Open(fichier2)
    Set objWorksheet = objWorkbook.Worksheets(1)
    	objWorksheet.Cells(9,&col1&).Value = Lect1
    objWorkbook.Save()
    objExcel.Quit
     
    Wend
    Merci pour vos réponses

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 390
    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 390
    Points : 9 475
    Points
    9 475

    Par défaut

    Salut
    Ligne 1, While Cstr(col1) = "4" ou mieux (plus propre) While Col1 = 4 .
    Ta ligne 8, tu devrais essayer objWorksheet.Cells(9,col1).Value = Lect1 .
    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
    Technicien maintenance
    Inscrit en
    mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : mars 2016
    Messages : 14
    Points : 10
    Points
    10

    Par défaut

    Bonjour,

    Merci pour ta réponse ProgElecT mais mon problème porte sur la variable de la ligne 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objWorksheet.Cells(9,&col1&).Value = Lect1
    Ma commande est bonne mais je n'arrive pas à écrire la variable col1 correctement, à chaque fois cela me mets erreur de syntaxe (&col1 &col1& "&col1" "&col1&")

    Si tu as une idée ?

  4. #4
    Membre expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : mars 2007
    Messages : 2 660
    Points : 3 685
    Points
    3 685

    Par défaut

    Bonjour,

    quelques remarques :
    - Evite de fermer/ouvrir Excel plusieurs fois dans la même sub, surtout si tu as plusieurs valeurs à enregistrer dans ta feuille
    - Si, comme je le pense, Col1 est une variable de type numérique tu ne peux pas écrire
    mais plutôt :
    Et du coup la ligne qui te poses problème devient tout simplement (comme te le suggérait ProgElect) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objWorksheet.Cells(9,Col1).Value = Lect1
    Sinon je te suggère un truc du style :
    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
    Dim xl As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
     
    Private Sub Command1_Click()
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open(NomFichier)
    Set ws = xl.ActiveWindow.ActiveSheet
     
    Do While col1 < 5
        col1 = col1 + 1
        ws.Cells(9, col1).Value = VariableDeTonChoix
    Loop
     
    wb.save
    xl.Quit
    End Sub
    Pour VB6 : N'oubliez pas d'aller voir la FAQ et les Tutoriels
    Vous trouvez une reponse particulierement utile ? Votez pour !

  5. #5
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : mars 2016
    Messages : 14
    Points : 10
    Points
    10

    Par défaut

    Yeah ça marche ! Mon problème était donc la définition de variable col = 1

    Merci OhMonBato (Trop délire ton profil"
    Merci ProgElecT (désolé je n'avais pas vu la subtilité dans ta réponse)

    Très bon week-end à vous !

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

Discussions similaires

  1. Insérer le contenu d'une variable dans une table SQLITE avec php
    Par St-42-FCM-57 dans le forum PHP & SGBD
    Réponses: 2
    Dernier message: 26/10/2017, 20h27
  2. Réponses: 2
    Dernier message: 24/10/2011, 17h15
  3. Réponses: 1
    Dernier message: 02/06/2010, 14h05
  4. portée d'une variable dans une fonction dans une méthode
    Par laurentg2003 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 29/06/2009, 19h05
  5. Réponses: 1
    Dernier message: 15/02/2007, 00h24

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