Afficher les fichiers ouverts dans une listbox

[aubelix]

Bonsoir à tous.
Mon problème est le suivant :
Peut-on dans une listbox afficher les fichiers ouverts et en en séléctionner l'un d'eux pour pour le rendre actif et l'imprimer ?
Merci pour vos réponses.

 

[Abel]

Bonjour aubelix,

Copie ceci dans un module

Public FichierChoisi As String
Public Position As Variant

Sub ActiverFichier()


UserForm1.Show
If FichierChoisi = "" Or Position = 0 Then
MsgBox ("Allez ouvrir le fichier contenant les données à copier")
Exit Sub
End If
Windows(FichierChoisi).Activate

End sub

Ajoute une ligne pour l'impression (instruction PrintOut, je crois)

Et importe les fichiers joints dans le zip :
ouvre Excel, Alt+F11, clic droit sur VBAProject (Classeur1) ou le classeur où tu veux mettre la macro, sélectionnes "Importer un fichier" et vas chercher "UserForm1.frm". Cela importera un userform et le code correspondant.

En espérant que cela te dépanne.

Abel

 

[salim]

Salut Abel, Aubelix le Forum

Dis moi Abel a tout hasard si tu repasse par ce Fil pourrai tu me dire pourquoi il m'est impossible d'ouvrir ton fichier " Format de Fichier Inconnue".

merci.

Salim

 

[Abel]

Bonjour Salim,

C'est un fichier que j'ai exporté depuis VBE.

Pour l'utiliser, il faut l'importer depuis VBE.

Dans VBE, se mettre sur un projet vierge (par exemple).
Faire clic droit sur ce projet (dans l'explorateur de projet) et sélectionner "Importer un projet".

Je suis le fil s'il y a un pb.

A+

Abel

 

[Abel]

Re,

J'oubliais, avant il faut dezipper les fichiers quelque part.

Abel

 

[salim]

Re le Fil

Merci Abel je ne connaissé pas tu ma appris quelque chôse en même temps tu me dira il ne se passe pas une journée sans que j'apprenne sur ce Forum .

Merci Abel

@+ Salim