Salut,
je débute en vb et je voudrai savoir comment insérer une pause ou
demander une confirmation avant impression. Voici une partie de mon
script dans lequel je voudrai insérer cette pause :
.......
'Impression en double exemplaire
Sheets("Factures").Select
Range("B2:F33").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
'Sauvegarde de la facture dans un fichier Excel portant le numéro de
la facture
Sheets("Factures").Select
Sheets("Factures").Copy
Range("E8").Select
Dim Path As String
.......
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "Cynoq" wrote in message news:
Salut, je débute en vb et je voudrai savoir comment insérer une pause ou demander une confirmation avant impression. Voici une partie de mon script dans lequel je voudrai insérer cette pause :
....... 'Impression en double exemplaire Sheets("Factures").Select Range("B2:F33").Select ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True 'Sauvegarde de la facture dans un fichier Excel portant le numéro de la facture Sheets("Factures").Select Sheets("Factures").Copy Range("E8").Select Dim Path As String .......
Merci pour vos conseils.
Cynoq
Salut! :O)
regarde du coté de la fonction MsgBox(). Elle permet de questionner ou
d'avertir l'utilisateur.
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"Cynoq" <poste1.cybercentre@wanadoo.fr> wrote in message
news:Xns94BFAA86ABA1Fposte1cybercentrewan@195.25.12.38...
Salut,
je débute en vb et je voudrai savoir comment insérer une pause ou
demander une confirmation avant impression. Voici une partie de mon
script dans lequel je voudrai insérer cette pause :
.......
'Impression en double exemplaire
Sheets("Factures").Select
Range("B2:F33").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
'Sauvegarde de la facture dans un fichier Excel portant le numéro de
la facture
Sheets("Factures").Select
Sheets("Factures").Copy
Range("E8").Select
Dim Path As String
.......
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "Cynoq" wrote in message news:
Salut, je débute en vb et je voudrai savoir comment insérer une pause ou demander une confirmation avant impression. Voici une partie de mon script dans lequel je voudrai insérer cette pause :
....... 'Impression en double exemplaire Sheets("Factures").Select Range("B2:F33").Select ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True 'Sauvegarde de la facture dans un fichier Excel portant le numéro de la facture Sheets("Factures").Select Sheets("Factures").Copy Range("E8").Select Dim Path As String .......
Merci pour vos conseils.
Cynoq
ng
Salut,
Sinon, pour faire une pause proprement dit, regarde du coté de l'API Sleep :
'à coller dans la section déclarations : Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
'n'importe où : Call Sleep(1000) 'attend 1 sec.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Cynoq a écrit :
Salut, je débute en vb et je voudrai savoir comment insérer une pause ou demander une confirmation avant impression. Voici une partie de mon script dans lequel je voudrai insérer cette pause :
....... 'Impression en double exemplaire Sheets("Factures").Select Range("B2:F33").Select ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True 'Sauvegarde de la facture dans un fichier Excel portant le numéro de la facture Sheets("Factures").Select Sheets("Factures").Copy Range("E8").Select Dim Path As String .......
Merci pour vos conseils.
Cynoq
Salut,
Sinon, pour faire une pause proprement dit, regarde du coté de l'API Sleep :
'à coller dans la section déclarations :
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds
As Long)
'n'importe où :
Call Sleep(1000) 'attend 1 sec.
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Cynoq <poste1.cybercentre@wanadoo.fr> a écrit :
Salut,
je débute en vb et je voudrai savoir comment insérer une pause ou
demander une confirmation avant impression. Voici une partie de mon
script dans lequel je voudrai insérer cette pause :
.......
'Impression en double exemplaire
Sheets("Factures").Select
Range("B2:F33").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33"
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
'Sauvegarde de la facture dans un fichier Excel portant le numéro
de la facture
Sheets("Factures").Select
Sheets("Factures").Copy
Range("E8").Select
Dim Path As String
.......
Sinon, pour faire une pause proprement dit, regarde du coté de l'API Sleep :
'à coller dans la section déclarations : Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
'n'importe où : Call Sleep(1000) 'attend 1 sec.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Cynoq a écrit :
Salut, je débute en vb et je voudrai savoir comment insérer une pause ou demander une confirmation avant impression. Voici une partie de mon script dans lequel je voudrai insérer cette pause :
....... 'Impression en double exemplaire Sheets("Factures").Select Range("B2:F33").Select ActiveSheet.PageSetup.PrintArea = "$B$2:$F$33" ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True 'Sauvegarde de la facture dans un fichier Excel portant le numéro de la facture Sheets("Factures").Select Sheets("Factures").Copy Range("E8").Select Dim Path As String .......
