Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Imprimer fichier créé par un programme vba

  • Initiateur de la discussion Initiateur de la discussion kaiser
  • Date de début Date de début
K

kaiser

XLDnaute Occasionnel
Imprimer fichiers créés par un programme vba

Bonjour

Voila sur une feuille j'ai un programme en VBA qui ,en fonction de la couleur des cases, va remplir un fichier annexe (en demandant deux infos via un inputbox) puis l'enregistrer sur une autre nom.

j'aimerais que à la fin de ce programme, il demande à l'utilisateur si celui ci veut imprimer les fichiers qu'il vient de créer.
Pas de probléme pour faire le VbYesNo, mais je ne sais pas quoi mettre dans le cas oû l'utilisateur dis oui.

Voici mon code:
Code: 
Private Sub CommandButton1_Click()

Dim Cell As Range
Dim flag As Boolean

feuille = ActiveSheet.Name
Application.ScreenUpdating = False

For n = 9 To Range("B65536").End(xlUp).Row Step 3
If n = 30 Then n = 33
Workbooks.Open "c:\Documents And Settings\diaquint\My Documents\rpl.xls"
Workbooks("2007Schicht2modif1.xls").Activate
Set plage_date = Range("D" & n & ":AG" & n)

i = 6

   For Each Cell In plage_date
    If Cell.Interior.ColorIndex = 6 Or Cell.Interior.ColorIndex = 38 Then
    Application.ScreenUpdating = True
    Application.Calculation = xlManual
    'Application.EnableEvents = False
    If Not Cell.Comment Is Nothing Then Cell.Comment.Visible = True
    flag = True
    
        
i = i + 1
    nom = Range("B" & n)
    prenom = Range("B" & n + 1)
    Workbooks("rpl.xls").Sheets("sheet1").Range("E4") = prenom & " " & nom
    Workbooks("rpl.xls").Sheets("sheet1").Range("E4").Borders.LineStyle = xLineStyleNone
    Workbooks("rpl.xls").Sheets("sheet1").Range("E30") = "Fait le " & Date
    Workbooks("rpl.xls").Sheets("sheet1").Range("E30").Font.Bold = True
    heure = Cell.Value
    jour = Cells(6, Cell.column)
     Application.ScreenUpdating = False
         Select Case feuille
          ...
         End Select
         
    Workbooks("rpl.xls").Worksheets("sheet1").Range("G3") = mois
    With Workbooks("rpl.xls").Worksheets("sheet1").Range("G3").Font
    .Bold = False
    .Italic = False
    .Underline = False
    End With
    Workbooks("rpl.xls").Worksheets("sheet1").Cells(i, 2) = heure
    Workbooks("rpl.xls").Worksheets("sheet1").Cells(i, 4) = jour & " " & mois

    remplace = InputBox("Entrez le nom de la personne remplacée le " & jour & " " & mois & " par " & prenom & " " & nom, "Remplacement", lastname, 9960, 330)
    Workbooks("rpl.xls").Worksheets("sheet1").Cells(i, 5) = remplace
    lastname = remplace
    If Cell.Interior.ColorIndex = 38 Then
    poste = "Neutra"
    Else
    poste = InputBox("Entrez le poste", "Remplacement", lastposte, 9960, 330)
    lastposte = poste
    End If
    Workbooks("rpl.xls").Worksheets("sheet1").Cells(i, 6) = poste
    If Not Cell.Comment Is Nothing Then Cell.Comment.Visible = False
 End If
Next Cell
If flag Then
Workbooks("rpl.xls").Sheets("sheet1").Range("E4") = prenom & " " & nom
Workbooks("rpl.xls").Sheets("sheet1").Range("E4").Borders.LineStyle = xLineStyleNone
Workbooks("rpl.xls").Sheets("sheet1").Range("E30") = "Fait le " & Date
Workbooks("rpl.xls").Sheets("sheet1").Range("E30").Font.Bold = True
Workbooks("rpl.xls").SaveAs Filename:="remplacement " & mois & " " & nom
End If
flag = False
Next n
Workbooks("2007Schicht2modif1.xls").Activate
Workbooks("rpl.xls").Close
'Application.ScreenUpdating = True
Application.EnableEvents = True
[COLOR="Red"]reponse = MsgBox("Voulez-vous imprimer les fiches de remplacements?", vbYesNo + vbQuestion, "Impression Fiche de Remplacement")
If reponse = 6 Then
[/COLOR]If reponse = 7 Then

End If
End If
Application.Calculation = xlAutomatic
End Sub
 
Dernière édition:
Trier par date Trier par votes

Toine

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

je sais po sa peut peut etre marcher avec de la chance jai deja vue un truc plus ou moins comme sa sur une apli mais ma mémoire c'est comme du gruillere (manger pas la souris)^^
 
Vote positif 0 Vote négatif

Toine

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

dsl suis dislexique(et impeut féneants ) mais je me soigne encore une fois pardon pour mon orthographe et ma gramaire qui sont toute deux dignes d'un robinson de retour en métropole aprés 20 a n'écrire que SOS sur la plage

mais promis je me soigne je vait chez l'ortophoniste que me fait faire des tas d'exercice je rentombe en enfance (c'est pas si loin en fin de compte ^^)
 
Vote positif 0 Vote négatif

Toine

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

aucun probléme sa fait du bien de ce faire tirer les oreilles des fois
je parle pour moi lol je ferais plus attention comme sa
 
Vote positif 0 Vote négatif

Toine

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

arg
donc je ne sait po
a mon avis l'idée de la boucle est bonne
pour le reste je ne sait pas
je cherche encor ^^
ta page a un nom ou sa reste "sheet 1"?? peut étre sa
ta modif le code ??
Code: 
For Each Worbook In Workbooks
MsgBox "coucou"
Next
sa sa marche donc ...
sa vien du code d'impretion je pense
cf le nom de la feuille
ou alors il faut activer le workbook avant de l'imprimer


enfin tien moi au courant
 
Dernière édition:
Vote positif 0 Vote négatif
K

kaiser

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

A part pour le fichier de pointage ou le nom du sheet correspond au mois en cours, pour les autres fichiers le sheet1 s'appelle sheet 1.

En cherchant sur le net j'ai trouvé un code pour un imprimer uniquement les feuilles d'un classeur comportant un mot:

Code: 
Sub imprimer()
Dim a As String
Dim i As Integer
Dim j As Integer
'compte le nombre de feuilles dans le classeur
j = ThisWorkbook.Worksheets.Count
'gestion des erreurs sur Find
On Error GoTo Line1
'recherche "remplacement"
For i = 1 To j
a = Worksheets(i).Name
If WorksheetFunction.Find("Remplacement", a, 1) Then
'active et imprime la feuille
Worksheets(i).Activate
ActiveSheet.PrintOut
End If
'numéro de la ligne pour la gestion d'erreur
Line1:
Next i
End Sub

J'ai essayé de bricoler avec ca mais je ne suis arrivé à rien...

je pense que une boucle avec la fonction find est une bonne idée, mais comment lui dire de chercher soit dans un dossier précis soit dans les fichiers excel ouvert?

PS: je faisait que refresh la page précedente poru voir si j'avais des réponse, je viens seulement de voir les posts précédents
 
Vote positif 0 Vote négatif

Toine

XLDnaute Occasionnel
Re : Imprimer fichier créé par un programme vba

la boucle que je tai donner cherche dans les classeur excel ouvert
for each workbook in workbooks parcour les classeur ouvert
mais tout les classeur ouvert même celui qu'il ne faut pas
Code: 
for each workbook in workbooks
workbook.acitvate
activesheet.printout
next
essaye un truc du genre voire mm sa ^^
ps pense a mettre un W a workbook dans la boucle il le fait pas auto


____________________________________________________________________________________

info de derniére minute
Code: 
Private Sub Workbook_Open()
Dim i As Integer
i = 1
For Each Worbook In Workbooks
Workbooks(i).Activate
MsgBox ActiveWorkbook.Name
i = i + 1
Next
End Sub
jai sa pour toi
alors je texplique
tu active tous les classeur ouvert les un aprés les autre jusquau dernier
sa parait impeut bourin comme sa mais sa marche
juste tu te debrouil pour faire la distinction avec le classeur a ne pas imprimer

remplace le msg box par ta ligne pour imprimer
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
317
Oneida
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
430
Chaton77
J
  • Question Question
Microsoft 365 Erreur de compilation: sub, fonction ou property attendue
Réponses
4
Affichages
490
dysorthographie
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
344
patricktoulon
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
257
MBEPID
M
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
459
Dranreb
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
283
Latias
L
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
168
patricktoulon
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
508
job75
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
564
M@xu3L
M
N
  • Question Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
324
NONO14
N
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
317
farid
F
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
352
rebatte
R
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
333
MarineU
M
P
  • Question Question
Microsoft 365 recherche fichier sans un dossier
2 3
Réponses
32
Affichages
2 K
pelerin65
P
L
  • Résolu(e)
Microsoft 365 Ouverture d'un fichier sur sharepoint
Réponses
6
Affichages
1 K
lesoldat9
L
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
298
aziz
A
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
364
marie3107
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…