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 :

erreur d’exécution 3075


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2011
    Messages
    232
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : août 2011
    Messages : 232
    Points : 436
    Points
    436
    Par défaut erreur d’exécution 3075
    Bonjour,

    J'ai le message d'erreur Nom : err.PNG
Affichages : 20
Taille : 28,2 Ko quand j'exécute le bout de code suivant : "
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    TexteRequete = TexteRequete & "ACT_PASS"
     
     Application.StatusBar = "Première Requête"
     
        TexteRequete = "SELECT " & TexteRequete & "" & _
        "FROM [TempB.txt]"
        ' éxécute la requête
        Set Requete = Donneestxt.OpenRecordset(TexteRequete, DAO.dbOpenSnapshot)
     Application.StatusBar = "Traitement des résultats pour TempA"
    Je ne vois vois pas l'erreur sur le code.

    merci de l'aide !

  2. #2
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur informatique indépendant
    Inscrit en
    novembre 2003
    Messages
    16 589
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur informatique indépendant
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2003
    Messages : 16 589
    Points : 47 771
    Points
    47 771
    Billets dans le blog
    88
    Par défaut
    Salut.

    Il faudrait voir le texte complet de TexteRequete pour pouvoir t'aider
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    août 2011
    Messages
    232
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : août 2011
    Messages : 232
    Points : 436
    Points
    436
    Par défaut
    Citation Envoyé par Pierre Fauconnier Voir le message
    Salut.

    Il faudrait voir le texte complet de TexteRequete pour pouvoir t'aider
    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
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    Option Explicit
    ' Avec référence microsoft DAO 3.6 Object Library
                                    Dim Donneestxt              As DAO.Database
     
                                    Dim Appli                   As Object
                                    Dim Creation                As Object
                                    Dim Enregistrement          As String
                                    Dim Chemin                  As String
                                    Dim NomFichier              As String
                                    Dim TexteRequete            As String
                                    Dim Requete                 As Recordset
                                    Dim ChampsTempA             As String
     
                                    Dim Depart                  As Date
                                    Dim TempsTotal              As String
                                    Dim NbLigne                 As Long
                                    Dim CompA                   As Integer
                                    Dim CompB                   As Integer
    Sub test()
                                    Dim NbLigne                 As Long
        Depart = Time
     
        Chemin = "C:\Users\ibwa\Desktop\test\"
        NomFichier = "table_provisions_cedees.txt"
     
        Set Donneestxt = DAO.OpenDatabase(Chemin, False, False, "Text;Database=" & Chemin)
        Set Appli = CreateObject("Scripting.FileSystemObject")
     
        Set Creation = Appli.CreateTextFile(Chemin & "schema.ini", True)
        Creation.Write "[" & NomFichier & "]" & vbCrLf
        Creation.Write "Format=Delimited(;)" & vbCrLf
        Creation.Write "ColNameHeader = True" ' Problème avec les entêtes de champs du fichier fichierdebase.txt (Peut être _)?
        Creation.Write "" & vbCrLf
        Creation.Write "[TempA.txt]" & vbCrLf
        Creation.Write "Format=Delimited(;)" & vbCrLf
        Creation.Write "ColNameHeader = True"
        Creation.Write "" & vbCrLf
        Creation.Write "[TempB.txt]" & vbCrLf
        Creation.Write "Format=Delimited(;)" & vbCrLf
        Creation.Write "ColNameHeader = True"
     
     Application.StatusBar = "Premier traitement du fichier de base"
     
                                Dim Lecture                         As String
        Set Creation = Appli.CreateTextFile(Chemin & "TempB.txt", True)
        Open Chemin & NomFichier For Input As #1
        Do While Not EOF(1)
            Input #1, Lecture
            If Not IsNumeric(Split(Lecture, ";")(0)) Then ' si le premier enregistre n'est pas un numérique
            ' on condidére que c'est les entêtes et on replace le "." par "_"
            ' Si tous les premiers enregistremets ne sont pas des numériques on adaptera
                Creation.Write Replace(Lecture, ".", "_") & vbCrLf
            Else
                Creation.Write Lecture & vbCrLf
            End If
        Loop
        Close #1
     
    ' Création du fichier Temporaire
    Set Creation = Appli.CreateTextFile(Chemin & "TempA.txt", True)
     
        ChampsTempA = "LINE;"
        ChampsTempA = ChampsTempA & "DATE_BILAN;"
        ChampsTempA = ChampsTempA & "REFERENTIEL;"
        ChampsTempA = ChampsTempA & "CONTEXTE;"
        ChampsTempA = ChampsTempA & "VERSION;"
        ChampsTempA = ChampsTempA & "SCENARIO;"
        ChampsTempA = ChampsTempA & "METHODE;"
        ChampsTempA = ChampsTempA & "SURVENANCE;"
        ChampsTempA = ChampsTempA & "GENERATION;"
        ChampsTempA = ChampsTempA & "SOCIETE;"
        ChampsTempA = ChampsTempA & "CANTON;"
        ChampsTempA = ChampsTempA & "RISQUE;"
        ChampsTempA = ChampsTempA & "GARANTIE;"
        ChampsTempA = ChampsTempA & "LOB;"
        ChampsTempA = ChampsTempA & "OUTIL;"
        ChampsTempA = ChampsTempA & "SEGMENT;"
        ChampsTempA = ChampsTempA & "CODE_PROV;"
        ChampsTempA = ChampsTempA & "NATURE_TECHNIQUE_PROV;"
        ChampsTempA = ChampsTempA & "CODE_AMORTISSEMENT;"
        ChampsTempA = ChampsTempA & "CODE_DEVISE;"
        ChampsTempA = ChampsTempA & "MONTANT_DEVISE;"
        ChampsTempA = ChampsTempA & "MONTANT_EURO;"
        ChampsTempA = ChampsTempA & "TIERS;"
        ChampsTempA = ChampsTempA & "TYPE_TRAITE;"
        ChampsTempA = ChampsTempA & "FORME_TRAITE;"
        ChampsTempA = ChampsTempA & "RISQUE_REASS;"
        ChampsTempA = ChampsTempA & "LOB_REASS;"
        ChampsTempA = ChampsTempA & "TP_SUPPORT;"
        ChampsTempA = ChampsTempA & "ACT_PASS"
     
        Creation.Write ChampsTempA & vbCrLf ' on écrit les entêtes de champs
     
    ' Création des champs à remonter
     
     TexteRequete = "LINE,"
        TexteRequete = TexteRequete & "DATE_BILAN,"
        TexteRequete = TexteRequete & "REFERENTIEL,"
        TexteRequete = TexteRequete & "CONTEXTE,"
        TexteRequete = TexteRequete & "VERSION,"
        TexteRequete = TexteRequete & "SCENARIO,"
        TexteRequete = TexteRequete & "METHODE,"
        TexteRequete = TexteRequete & "SURVENANCE,"
        TexteRequete = TexteRequete & "GENERATION,"
        TexteRequete = TexteRequete & "SOCIETE,"
        TexteRequete = TexteRequete & "CANTON,"
        TexteRequete = TexteRequete & "RISQUE,"
        TexteRequete = TexteRequete & "GARANTIE,"
        TexteRequete = TexteRequete & "LOB,"
        TexteRequete = TexteRequete & "OUTIL,"
        TexteRequete = TexteRequete & "SEGMENT,"
        TexteRequete = TexteRequete & "CODE_PROV,"
        TexteRequete = TexteRequete & "NATURE_TECHNIQUE_PROV,"
        TexteRequete = TexteRequete & "CODE_AMORTISSEMENT,"
        TexteRequete = TexteRequete & "CODE_DEVISE,"
        TexteRequete = TexteRequete & "MONTANT_DEVISE,"
        TexteRequete = TexteRequete & "MONTANT_EURO,"
        TexteRequete = TexteRequete & "TIERS,"
        TexteRequete = TexteRequete & "TYPE_TRAITE,"
        TexteRequete = TexteRequete & "FORME_TRAITE,"
        TexteRequete = TexteRequete & "RISQUE_REASS,"
        TexteRequete = TexteRequete & "LOB_REASS,"
        TexteRequete = TexteRequete & "TP_SUPPORT,"
        TexteRequete = TexteRequete & "ACT_PASS"
     
     Application.StatusBar = "Première Requête"
    'Requête dans TempB et non plus dans le fichier d'origine
        TexteRequete = "SELECT " & TexteRequete & "" & _
        "FROM [TempB.txt]"
        ' éxécute la requête
        Set Requete = Donneestxt.OpenRecordset(TexteRequete, DAO.dbOpenSnapshot)

Discussions similaires

  1. [AC-2013] Erreur d’exécution '3075' : Erreur de syntaxe (opérateur absent)
    Par Alesli dans le forum VBA Access
    Réponses: 8
    Dernier message: 20/07/2019, 10h17
  2. Erreur dexécution '91'
    Par VELO1222 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 27/01/2011, 18h25
  3. erreur dexécution 1004
    Par VELO1222 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 23/01/2011, 23h29
  4. erreur execution 3075
    Par youki_22 dans le forum VBA Access
    Réponses: 13
    Dernier message: 17/03/2010, 11h47
  5. Réponses: 2
    Dernier message: 07/05/2008, 14h31

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