informer

une solution est

• Créer dans MS-Access un paramétrage d'import texte en y identifiant le champ à déclarer en memo (pour Access 2010: Données externes -> fichier texte -> Sélectionner la source et la destination des données-> ... avant de terminer cliquer sur Avancer et enregistrer les paramètres d'import exemple paramImport
• transformer l'onglet Excel à charger en csv
• Utiliser DoCmd.TransferText

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferText acImportDelim, "paramImport",  "myTable",

...

Soit la structure des données suivante


NUMERO (num: integer pk)
XRF (code: string; intervDeb: integer; intervFin: integer) -> table d’intervalle
MNX (code: string; intervDeb: integer; intervFin: integer; code2:string) -> Enregistrements dont on doit définir à quel intervalle ils appartiennent

Voici une solution

• Création d'une table NUMERO avec un seul champ clé primaire = Numérique incrémenté de 1 => Autant

...

Fichiers attachés

• Database1.zip (23,7 Ko, 181 affichages)

Voici une routine qui fonctionne avec comme précision majeure => Doubler les parenthèses pour Namespace Source ICI

oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items

Avec simple parenthèse => Génération d'un message d'erreur

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function test()
 
    Dim oShell As Object
    Dim pathFile As String
 
    'Récuperation de la liste des fichiers
    pathFile = "C:\folder\"

...

La fonction SWITCH est plus modulaire qu’IIF

Switch ( expression1, value1, expression2, value2, ... expression_n, value_n, True, default value)

EXEMPLE

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SELECT Switch(num=0,'ZERO',num=1,'UN' ,num=2,'DEUX',True,'Autre' ) AS test FROM table

Un conseil pour debugger une requête SQL, crée une fonction vba qui écrit la requête SQL dans un fichier puis la copier dans l’éditeur SQL pour test.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim intFic As Integer
 
intFic = FreeFile
Open "D:\debug\monfichier.txt" For Output As intFic
Print #intFic, req_lecteur
Close intFic

A appliquer pour toute variable

Attention
Cela ne vaut pas pour les objets