erreur code suite à import données d'access

  • Initiateur de la discussion Initiateur de la discussion David
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

David

Guest
Bonjour le forum
Vous allez et je n’en doute pas me sortir de l’impasse dans laquelle je suis.
Explication :

J’importe de requêtes d’Access des données dans plusieurs feuilles d’Excel que j’ai, au préalable nommé.
J’ai défini une plage sur laquelle je me base et effectue donc, ma boucle.
Mon code s’exécute normalement jusqu’à la dernière ligne :
.Refresh BackgroundQuery:=False ou je me trouve avec le message :
‘Erreur de syntaxe SQL
Je pense que les informations de la ligne agrandie sont mal renseignées ce qui occasionne ce message.
Je sèche un peu sur ce coup là.
C’est donc là que j’ai besoin de vous pour m'aider à corriger ce qui ne va pas
En vous remerciant par avance.



Code:
Dim plage As Range, nom As String, plage2 As Range
    Sheets('affaire').Activate
    Set plage = Sheets('affaire').Range('a2').End(xlDown)(1, 1)
    Set plage2 = Range(Selection, 'a2')
    
      
    For Each cell In plage2
    

    Sheets('Données' & cell.Value).Select
    Range('J7').CurrentRegion.Select
    Selection.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        'ODBC;DSN=MS Access Database;DBQ=C:\\mes documents\\suivi .mdb;DefaultDir=C:\\Mes documents;DriverId=25;FIL=MS Access;MaxBufferSi' _
        ), Array('ze=2048;PageTimeout=5;')), Destination:=Range('J7'))
        .CommandText = Array( _
        '[size=4][color=#0000FF]SELECT cell.value.différence, cell.value.`alerte `, cell.value.Pays, cell.value.designation' & Chr(13) & '' & Chr(10) & 'FROM `C:\\Mes documents\\suivi `.cell.value cell.value' _[/color][/size]        )
        .Name = 'Lancer la requête à partir de MS Access Database'
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With

Next

End sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
33
Affichages
4 K
  • Question Question
Microsoft 365 Code VBA - Erreur
Réponses
1
Affichages
692
Réponses
2
Affichages
2 K
Retour