Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jose Muller
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)
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é?
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
"Jose Muller" a écrit dans le message de 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)
"Jose Muller" <papyzoucam@gmail.com> a écrit dans le message de
news:949d99b3-4caf-4c65-8bf4-53ba9742131f@googlegroups.com...
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é?
"Jose Muller" a écrit dans le message de 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)