Discussion :

[David M]

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 :

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
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

[SfJ5Rpw8]

je n'ai pas acces sous la main mais une recherche dans l'aide en ligne de TransferSpreadsheet .. devrai t'aider... ou utilise l'enregistreur de macro pour déterminer le code à effectuer..

[David M]

Bonjour et merci pour cette réponse.

J'ai effectivement pensé à la commande TransferSpreadsheet mais il faut pour cela que le fichier d'export soit en fichier excel alors que dans mon cas il est en fichier texte et c'est en excel que je voudrais l'exporter comme le fait automatiquement la commande ci-dessous pour le format texte.
VarBO.ActiveDocument.Reports.Item(1).ExportAsText ("C:\user\essai.txt")
Question : comment en excel ?
Merci.