[VBA-A] problème d'import de données texte
Bonjour
Voici mon problème.
J’ai depuis Access, crée un code me permettant de mettre à jour une requête BO, d’exporter celle-ci au format Txt puis d’importer les données texte dans une table access.
Malheureusement, lorsque j’importe depuis Access mes données, je me retrouve avec des doublons (que j’enlève) et, je me retrouve avec des incohérences dans mes champs (ex : dans un champ date, je peux avoir du texte ou des données inversées voire manquantes)
En exportant manuellement ma requête mise à jour de BO au format .xls, je ne rencontre pas ce problème.
Question : quelle est la ligne de code me permettant d’envoyer mes données de ma requête BO au format .xls et non pas en txt comme vous pouvez le voir ci-dessous ?
En vous remerciant.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Private Sub IDENTIF_Click()
Dim VarBO As busobj.Application
MsgBox "Votre mise à jour est encours de traitement, veuillez patienter jusqu'au prochain message"
DoCmd.Hourglass True
Set VarBO = New busobj.Application
VarBO.Interactive = True
VarBO.Visible = True
' Vous trouverez dans la ligne suivante, mon user,mon Mot de passe,Mon domaine
If Not VarBO.LoginAs("titi", "titi", False, "importation") Then
Exit Sub
End If
'Vous trouverez dans la ligne suivante le chemin de ma Requête BO
VarBO.Documents.Open ("C:\user\\BusinessObjects\UserDocs\import.rep")
If VarBO.ActiveDocument.AutoRefreshWhenOpening = False Then VarBO.Application.ActiveDocument.Refresh
'vous trouverez dans la ligne suivante le chemin de mon fichier export en TXT
VarBO.ActiveDocument.Reports.Item(1).ExportAsText ("C:\user\essai.txt")
VarBO.ActiveDocument.Close (2)
VarBO.Application.Quit
Set VarBO = Nothing
MsgBox "Votre mise à jour vient d'être effectuée"
DoCmd.Hourglass False
End Sub |
