Lister Fichiers et Imprimer

[MuscatMimi]

Bonsoir a tout le Forum

Existe-il un moyen, avec ListBox,ListView,ou Treeview
de Lister les Fichiers d'un Dossier
et de pouvoir en Imprimer un en cliquant simplement
sur une ligne,ou Double cliquant
??????
Cordialement

 

[kiki29]

Re : Lister Fichiers et Imprimer

Salut, un exemple avec des hyperliens sur des fichiers pdf, à toi de l'adapter à ton contexte

 

[Etienne2323]

Re : Lister Fichiers et Imprimer

Salut vaucluse_immo,
je ne suis pas un expert des listview et encore moins des treeview. Alors désolé, à ce niveau je ne peux pas t'aider. Par contre, il y aurait toujours comme piste de solution le "Application.GetOpenFilename" qui ouvre un explorateur windows. Ce n'est pas une liste, mais ça pourrait toujours faire le travail. J'ai trouvé en cherchant un peu un code de "bigfish_le vrai" qui pourrait peut-être faire l'affaire.

Sub Impression()
    Dim Chemin As String, ExcelAppli As Object, OpFichier As Object, FichierDejaOuvert As Boolean
    FichierDejaOuvert = False
    Chemin = Application.GetOpenFilename 'recuperation du fichier
    On Local Error Resume Next
    Set ExcelAppli = GetObject(, "Excel.Application") 'ici on essaye de recuperer une session excel existante
    If Nothing Is ExcelAppli Then 'si pas de process excel en cours
        Set ExcelAppli = CreateObject("Excel.Application") 'on lance excel
         'un petit truc en passant, ici vous pouvez ajouter : ExcelAppli.visible = True si vous voulez ouvrir excel graphiquement
        Set OpFichier = ExcelAppli.Workbooks.Open(Chemin) 'on ouvre le fichier
        OpFichier.PrintOut Copies:=1, Collate:=True 'on lance l'impression
        OpFichier.Close False 'on ferme le fichier
        ExcelAppli.Quit 'on ferme excel
    Else 'process excel en cours
        On Error Resume Next
        ExcelAppli.Workbooks(Dir(Chemin)).Activate 'on verifi si ce fichier est deja ouvert
        If Err = 9 Then 'il n'est pas ouvert
              ExcelAppli.Application.ScreenUpdating = False
            Set OpFichier = ExcelAppli.Workbooks.Open(Chemin) 'on l'ouvre
        Else 'il est deja ouvert
            Set OpFichier = ExcelAppli.ActiveWorkbook 'on le recupere
              FichierDejaOuvert = True
        End If
        On Error Resume Next
        OpFichier.PrintOut Copies:=1, Collate:=True 'on lance l'impression
        If FichierDejaOuvert = False Then
            OpFichier.Close False 'le fichier n'etait pas ouvert donc on le referme
            ExcelAppli.Application.ScreenUpdating = True
        End If
        Err.Clear
    End If
End Sub

Aussi, j'ai récupéré un message sur mpfe de Frédéric Sigonneau qui dit qu'il est impossible d'imprimer un fichier fermé. Lui propose ceci :
URGENT: faire une macro pour imprimer un fichier excel fermé sans l'ouvrir - microsoft.public.fr.excel | Google Groups

En espérant que ça ta donne un petit coup de main.

Cordialement,

Étienne

 

[MuscatMimi]

Re : Lister Fichiers et Imprimer

Bonjour ,Etienne2323,kiki29,Le Forum

Merci de votre aide, c'est gentil

Mais je pense qu'il est impossible de pouvoir Imprimer un Fichier Excel sans l'ouvrir

Je laisse ce fil actif encore quelques jours
aprés je le mettras comme Abandonné

Vu que personne , a part vous deux, ne réponds

Bonne journée a tous
Cordialement