Afficher les fichiers ouverts dans une listbox

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

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

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

Re,

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

Abel

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