je cherche a affecter des commandes tel que "imprimer"=20
dans une progamation visual basic sous word ou excel
et une commande qui me permet de passer d'une feuille word=20
a un tableau excel.
Merci de me donner un coup de main ou de m'indiquer un=20
site ou un n=B0 de hotline
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
Hervé
Salut Boris, Affecte ces macros à des boutons et teste.
pour les 2 applis, à mettre dans un module standard : Sub Imprimer() With Application.CommandBars("Standard") .Controls(.FindControl(, 2521).Index).Execute End With End Sub
Pour Excel, dans un module standard : Sub ActiverWord() On Error Resume Next AppActivate "Microsoft Word" If Err <> 0 Then MsgBox "Word est fermé !" End If End Sub
Pour Word, dans un module standard : Sub ActiverExcel() On Error Resume Next AppActivate "Microsoft Excel" If Err <> 0 Then MsgBox "Excel est fermé !" End If End Sub
Hervé.
"boris meppiel" a écrit dans le message news: 094c01c36e18$f1c5fa20$ bonjour,
je cherche a affecter des commandes tel que "imprimer" dans une progamation visual basic sous word ou excel et une commande qui me permet de passer d'une feuille word a un tableau excel.
Merci de me donner un coup de main ou de m'indiquer un site ou un n° de hotline
boris
Salut Boris,
Affecte ces macros à des boutons et teste.
pour les 2 applis, à mettre dans un module standard :
Sub Imprimer()
With Application.CommandBars("Standard")
.Controls(.FindControl(, 2521).Index).Execute
End With
End Sub
Pour Excel, dans un module standard :
Sub ActiverWord()
On Error Resume Next
AppActivate "Microsoft Word"
If Err <> 0 Then
MsgBox "Word est fermé !"
End If
End Sub
Pour Word, dans un module standard :
Sub ActiverExcel()
On Error Resume Next
AppActivate "Microsoft Excel"
If Err <> 0 Then
MsgBox "Excel est fermé !"
End If
End Sub
Hervé.
"boris meppiel" <borismeppiel@hotmail.com> a écrit dans le message news:
094c01c36e18$f1c5fa20$a501280a@phx.gbl...
bonjour,
je cherche a affecter des commandes tel que "imprimer"
dans une progamation visual basic sous word ou excel
et une commande qui me permet de passer d'une feuille word
a un tableau excel.
Merci de me donner un coup de main ou de m'indiquer un
site ou un n° de hotline
Salut Boris, Affecte ces macros à des boutons et teste.
pour les 2 applis, à mettre dans un module standard : Sub Imprimer() With Application.CommandBars("Standard") .Controls(.FindControl(, 2521).Index).Execute End With End Sub
Pour Excel, dans un module standard : Sub ActiverWord() On Error Resume Next AppActivate "Microsoft Word" If Err <> 0 Then MsgBox "Word est fermé !" End If End Sub
Pour Word, dans un module standard : Sub ActiverExcel() On Error Resume Next AppActivate "Microsoft Excel" If Err <> 0 Then MsgBox "Excel est fermé !" End If End Sub
Hervé.
"boris meppiel" a écrit dans le message news: 094c01c36e18$f1c5fa20$ bonjour,
je cherche a affecter des commandes tel que "imprimer" dans une progamation visual basic sous word ou excel et une commande qui me permet de passer d'une feuille word a un tableau excel.
Merci de me donner un coup de main ou de m'indiquer un site ou un n° de hotline