Bonjour,
je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée,
la fonction imprimer la page.
voici ma matrice, merci. Yann
-----
'bouton 6
Set newbouton6 =
CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton6
.Caption = "IMPRIMER"
.FaceId = 59 'image
.BeginGroup = True
.OnAction = "??"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "import"
End With
-------
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
Youky
Salut, .OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
Salut,
.OnAction = "Impression"
et dans un module standart, le nom feuil doit être le codename
c'est à dire celui qui apparait à gauche en fenetre projet
Sub Imression()
Feuil1.PrintOut
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 242032AF-DC1F-4932-B20B-03BF0183A366@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour ajouter, dans ma barre
personnalisée,
la fonction imprimer la page.
voici ma matrice, merci. Yann
-----
'bouton 6
Set newbouton6 > CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton6
.Caption = "IMPRIMER"
.FaceId = 59 'image
.BeginGroup = True
.OnAction = "??"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "import"
End With
-------
Salut, .OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
Sunburn
Re, merci. mais en fait, je veux que ce bouton m'imprime la page qui est visuellement là, la page en cours quoi. Faut-il préciser quelque chose? Merci. Yann
Salut, ..OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 > > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
Re,
merci. mais en fait, je veux que ce bouton m'imprime la page qui est
visuellement là, la page en cours quoi. Faut-il préciser quelque chose?
Merci.
Yann
Salut,
..OnAction = "Impression"
et dans un module standart, le nom feuil doit être le codename
c'est à dire celui qui apparait à gauche en fenetre projet
Sub Imression()
Feuil1.PrintOut
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 242032AF-DC1F-4932-B20B-03BF0183A366@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour ajouter, dans ma barre
personnalisée,
la fonction imprimer la page.
voici ma matrice, merci. Yann
-----
'bouton 6
Set newbouton6 > > CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton6
.Caption = "IMPRIMER"
.FaceId = 59 'image
.BeginGroup = True
.OnAction = "??"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "import"
End With
-------
Re, merci. mais en fait, je veux que ce bouton m'imprime la page qui est visuellement là, la page en cours quoi. Faut-il préciser quelque chose? Merci. Yann
Salut, ..OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 > > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
Youky
ActiveWindow.SelectedSheets.PrintOut au lieu de
Feuil1.PrintOut Youky
"Sunburn" a écrit dans le message de news:
Re, merci. mais en fait, je veux que ce bouton m'imprime la page qui est visuellement là, la page en cours quoi. Faut-il préciser quelque chose? Merci. Yann
Salut, ..OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 >> > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
ActiveWindow.SelectedSheets.PrintOut
au lieu de
Feuil1.PrintOut
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 212DBA04-A368-49D0-A393-DF1D059C0587@microsoft.com...
Re,
merci. mais en fait, je veux que ce bouton m'imprime la page qui est
visuellement là, la page en cours quoi. Faut-il préciser quelque chose?
Merci.
Yann
Salut,
..OnAction = "Impression"
et dans un module standart, le nom feuil doit être le
codename
c'est à dire celui qui apparait à gauche en fenetre projet
Sub Imression()
Feuil1.PrintOut
End Sub
Youky
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 242032AF-DC1F-4932-B20B-03BF0183A366@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour ajouter, dans ma barre
personnalisée,
la fonction imprimer la page.
voici ma matrice, merci. Yann
-----
'bouton 6
Set newbouton6 >> > CommandBars("barremacro").Controls.Add(Type:=msoControlButton)
With newbouton6
.Caption = "IMPRIMER"
.FaceId = 59 'image
.BeginGroup = True
.OnAction = "??"
.Style = msoButtonIconAndCaptionBelow
.TooltipText = "import"
End With
-------
Re, merci. mais en fait, je veux que ce bouton m'imprime la page qui est visuellement là, la page en cours quoi. Faut-il préciser quelque chose? Merci. Yann
Salut, ..OnAction = "Impression" et dans un module standart, le nom feuil doit être le codename c'est à dire celui qui apparait à gauche en fenetre projet Sub Imression() Feuil1.PrintOut End Sub
Youky "Sunburn" a écrit dans le message de news:
Bonjour, je voudrais savoir comment faire pour ajouter, dans ma barre personnalisée, la fonction imprimer la page. voici ma matrice, merci. Yann ----- 'bouton 6 Set newbouton6 >> > CommandBars("barremacro").Controls.Add(Type:=msoControlButton) With newbouton6 .Caption = "IMPRIMER" .FaceId = 59 'image .BeginGroup = True .OnAction = "??" .Style = msoButtonIconAndCaptionBelow .TooltipText = "import" End With -------
