1. #1
    Membre à l'essai
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    mars 2014
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : mars 2014
    Messages : 16
    Points : 11
    Points
    11

    Par défaut DEBUTANT - Copier le contenu d'une cellule dans le texte de commande (requête ODBC)

    Bonjour à tous,

    J'aurais besoin de modifier automatiquement le code SQL de requêtes ODBC sur excel
    (si je veux les modifier manuellement je me mets sur mon tableau de données et je fais /données/Propriétés/Je vais dans l'onglet définition puis je colle mon nouveau code dans le Texte de commande.)

    Toujours est-il que j'ai vainement essayé de trouver une solution (je suis une chèvre totale en VBA); ça marche de manière relativement bancale pour les codes de 20 caractères...(voir ci-dessous)
    Mais je me retrouve toujours avec le code erreur "Trop de caractères de continuité de ligne" dès que je place une requête un peu conséquente.

    De plus j'imagine que ce que j'ai fait avec l’enregistreur de macros doit être une pure hérésie pour la plupart d'entre vous.

    En espérant que cela soit possible, je vous remercie par avance.
    Matthieu


    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Sub Macro1()
    '
    ' Macro1 Macro
    '
     
    '
        ActiveCell.FormulaR1C1 = "select * from gescom.gescomf.artic"
        Range("C9").Select
        With ActiveWorkbook.Connections("Lancer la requête à partir de GESCOMF"). _
            ODBCConnection
            .BackgroundQuery = False
            .CommandText = Array("select * from gescom.gescomf.artic")
            .CommandType = xlCmdSql
            .Connection = "ODBC;DSN=GESCOMF;"
            .RefreshOnFileOpen = False
            .SavePassword = False
            .SourceConnectionFile = ""
            .ServerCredentialsMethod = xlCredentialsMethodIntegrated
            .AlwaysUseConnectionFile = False
        End With
        With ActiveWorkbook.Connections("Lancer la requête à partir de GESCOMF")
            .Name = "Lancer la requête à partir de GESCOMF"
            .Description = ""
        End With
        ActiveWorkbook.Connections("Lancer la requête à partir de GESCOMF").Refresh
    End Sub

  2. #2
    Membre à l'essai
    Homme Profil pro
    Analyste d'exploitation
    Inscrit en
    mars 2014
    Messages
    16
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste d'exploitation
    Secteur : Distribution

    Informations forums :
    Inscription : mars 2014
    Messages : 16
    Points : 11
    Points
    11

    Par défaut

    Bonjour Bonjour,

    Je sais que ce n'est pas très orthodoxe de faire un "up"...
    J'ai un peu de mal à cerner si ma demande est mal formulée, hors sujet ou manquant d'infos pour avoir plus de 60 lus et pas une bribe de réponse.

    Je "n'exige" évidemment pas de réponse d'un forum qui est basé sur l'entraide, mais si quelqu'un avait une petite idée ce serait d'un grand secours pour moi.
    -HS: quand je parle d'entraide, ce n'est pas tout à fait exact puisque les demandes viennent toujours des plus petits et les solutions des plus expérimentés,et jamais l'inverse. C'est donc plus de l'aide que de l'entraide.

    Bonne journée à tous.
    Matthieu

Discussions similaires

  1. Réponses: 2
    Dernier message: 29/01/2016, 09h20
  2. [Toutes versions] Macro pour copier le contenu d'une cellule d'un fichier excel et coller dans une form
    Par wizishop dans le forum VBA PowerPoint
    Réponses: 3
    Dernier message: 16/10/2015, 12h05
  3. [LibreOffice][Tableur] Copier le contenu d une cellule dans le presse papier windows
    Par ryan44x dans le forum OpenOffice & LibreOffice
    Réponses: 5
    Dernier message: 10/04/2015, 08h15
  4. [XL-2007] Copier le contenu d'une cellule dans la cellule suivante si celle-ci est vide
    Par Fransoun dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/07/2012, 19h17
  5. Copier le contenu d'une cellule dans une variable sous excel
    Par franckB dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/04/2007, 19h54

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