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