Fin d'instruction

Résolu
Bonjour,

question bête comment fait-on une fin d'instruction en vba?

6 réponses

  1. Non, J'ai trouver le problème.

    Les chemins sont juste, le problème viens de la requête j'ai oublier un espace après chaque and. Mais merci quand même.
    1. Re,

      mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID avoir, je n'utilise pas ces connexions.
      1. Merci je n'est plus de problème à la requête maintenant j'ai "La requête ne c'est pas exécutée ou la table de la base de donnée n'a pas pu être ouverte"

        Je met le code(Je vous épargne la requête):

        Sub Macro1()
        '
        ' Macro1 Macro
        '
        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=PCSoft.HFSQL;Initial Catalog=\\tse\Domino_web$\4643;User ID="""";Data Source="""";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = "requête"
        .Refresh BackgroundQuery:=False
        End With
        End Sub

        J'aimerai avoir votre avis car je ne sais pas si ça vien du code sinon je pense que c'est mon chemin qui et faut.....
        1. Bonjour,

          .CommandText = "select presences_absences.date_da,presences_absences.dureerelle_mo,presences_absences.dureearrondie_mo," & _
          "presences_absences.presenceabsence_ch,presences_absences.idfacture,periode.libelleperiode_ch,regime.regime_ch," & _
          "presences_absences.matin_bo,presences_absences.midi_bo,presences_absences.soir_bo,presences_absences.idrubrique," & _
          "rubrique.libellerub_ch,famille.nomfamille_ch,enfants.naissance_da,dossier.idetablissements,etablissements.etablissement_ch,acceuils.idacceuils" & _
          " from regimes, famille, dossier, enfants, presences_absences, rubrique, periode, acceuils, etablissements " & _
          "where regimes.idregimes = familles.idregimes " & _
          "and famille.idfamille = dossier.idfamille" & _
          "and enfants.idenfants = dossier.idenfants" & _
          "and dossier.iddossier = presences_absences.iddossier" & _
          "and rubrique.idrubrique = presences_absences.idrubrique" & _
          "and periode.idperiode = presences_absences.idperiode" & _
          "and acceuils.idacceuil = periode.idacceuils" & _
          "and etablissements.idetablissements = acceuils.idetablissements" & _
          "and (presences_absences.date_da between '20120101' and '20120131')"

          a voir
          1. J'ai une requête SQL a traiter et j'ai un message "attendu: fin d'instruction".

            la voici:

            .CommandText = "select presences_absences.date_da,presences_absences.dureerelle_mo,presences_absences.dureearrondie_mo,presences_absences.presenceabsence_ch,presences_absences.idfacture,periode.libelleperiode_ch,regime.regime_ch,presences_absences.matin_bo,presences_absences.midi_bo,presences_absences.soir_bo,presences_absences.idrubrique,rubrique.libellerub_ch,famille.nomfamille_ch,enfants.naissance_da,dossier.idetablissements,etablissements.etablissement_ch,acceuils.idacceuils
            " from regimes, famille, dossier, enfants, presences_absences, rubrique, periode, acceuils, etablissements
            " where regimes.idregimes = familles.idregimes
            "and famille.idfamille = dossier.idfamille
            "and enfants.idenfants = dossier.idenfants
            "and dossier.iddossier = presences_absences.iddossier
            "and rubrique.idrubrique = presences_absences.idrubrique
            "and periode.idperiode = presences_absences.idperiode
            "and acceuils.idacceuil = periode.idacceuils
            "and etablissements.idetablissements = acceuils.idetablissements
            "and (presences_absences.date_da between '20120101' and '20120131')"