Re : Impression auto
re,
Il faut que tu testes si le fichier est fermé ou non:
Function FichOuvert(F As String) As Boolean
'Auteur: Didier_mdf sur forum
www.Excel-downloads.com (merci)
Dim Wk As Workbook
On Error Resume Next
Set Wk = Workbooks(F)
On Error GoTo 0
FichOuvert = Not Wk Is Nothing
End Function
sub ta_macro()
....
if fichouvert(fichier) then
Sheets(LaJournée).Select
ActiveWindow.SelectedSheets.PrintOut
else
'on travaille avec le fichier fermé
Set source = New ADODB.Connection
source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"data source=" & fichier & ";" & _
"extended properties=""Excel 8.0;"""
...
Tu as la procédure pour copier la feuille "la journée" dans le Wiki page6 de notre ami MichelXLD
A copier dans une feuille tampon ("dummy") que tu nettoies après une impression par l'instruction cells.clear
Je repète ce que je t'ai dit: on importe du fichier fermé que des données
quant aux cellules fusionnées, elle sont à éviter au maximum possible! (tu peux utiliser format-cellule-alignement -horzontal, centrer sur plusieurs colonnes tout aussi présentable).
Enfin, pour 10 fichiers s'ils ne sont pas trop lourds, pour ma part j'utiliserais l'ouverture des fichiers en gardant la fonction "fichouvert" de notre Didier_mdf national , l'avantage étant de garder la mise en forme originelle.
Et si c'est un peu long, j'irais boire un café (ou autre)