DoCmd

Le
albert
Bonjour
Est-il possible de modifier la commande suivante
pour que le fichier EXCEL s'ouvre et s'affiche quand le transfer est
complété?

DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes",
CurrentProject.Path & "RQT Groupes.xls ", True, ""

Merci

Albert
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jose Muller
Le #26460470
Le vendredi 19 janvier 2018 21:05:59 UTC+1, albert a écrit :
Bonjour
Est-il possible de modifier la commande suivante
pour que le fichier EXCEL s'ouvre et s'affiche quand le transfer est
complété?
DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes",
CurrentProject.Path & "RQT Groupes.xls ", True, ""
Merci
Albert

J'ajoute
Public Function ShellExec( _
ByVal strFichier As String, _
Optional ByVal strOperation As String = "Open", _
Optional ByVal awsAffichage As VbAppWinStyle = VbAppWinStyle.vbNormalFo cus, _
Optional ByVal strParametres As String = "", _
Optional ByVal strDossier As String = "") _
As Boolean
Dim lngRes As Long
lngRes = ShellExecute(Access.hWndAccessApp, strOperation, _
strFichier, strParametres, strDossier, awsAffichage)
ShellExec = (lngRes < 0) Or (lngRes > 32)
End Function
et ensuite
ShellExec (CurrentProject.Path & "RQT Groupes.xls)
albert
Le #26460565
"Jose Muller" news:
Merci je vais essayer cela
Merci
albert
Le vendredi 19 janvier 2018 21:05:59 UTC+1, albert a écrit :
Bonjour
Est-il possible de modifier la commande suivante
pour que le fichier EXCEL s'ouvre et s'affiche quand le transfer est
complété?
DoCmd.TransferSpreadsheet acExport, 8, "RQT Groupes",
CurrentProject.Path & "RQT Groupes.xls ", True, ""
Merci
Albert

J'ajoute
Public Function ShellExec( _
ByVal strFichier As String, _
Optional ByVal strOperation As String = "Open", _
Optional ByVal awsAffichage As VbAppWinStyle =
VbAppWinStyle.vbNormalFocus, _
Optional ByVal strParametres As String = "", _
Optional ByVal strDossier As String = "") _
As Boolean
Dim lngRes As Long
lngRes = ShellExecute(Access.hWndAccessApp, strOperation, _
strFichier, strParametres, strDossier, awsAffichage)
ShellExec = (lngRes < 0) Or (lngRes > 32)
End Function
et ensuite
ShellExec (CurrentProject.Path & "RQT Groupes.xls)
Publicité
Poster une réponse
Anonyme