Bonsoir le forum,
Je viens vers vous concernant une modification que j'aimerais faire dans ce code.
Il permet d'afficher un msgbox si le dossier (Facture) est vide, s'il est pas vide, afficher le contenu du dossier dans une ListBox.
Mon problème est qu'à partir du moment ou j'ai un devis (fichier dans le dossier devis), je peux pas le consulter depuis l'USF (ConsultationFactureDevis), car le macro ci dessus fonctionne que pour le dossier "facture"
J'aimerais transformer ce code, l'utiliser pour les deux dossiers (devis et facture)
Avoir accès à l'usf si au moins un fichier dans le dossier facture ou devis et afficher le msgbox quand ces deux sont entièrement vide.
Voici un fichier exemple (à extraire dans c: svp)
Merci d'avance
A bientôt
Je viens vers vous concernant une modification que j'aimerais faire dans ce code.
Code:
Sub BoutonDossierFactureDevis()
Chemin = "C:\Ronibo\Facture\"
LeFichier = Dir(Chemin & "*.xlsm")
If LeFichier = "" Then
MsgBox "Il n'y a pas de facture d'établie pour le moment !", vbInformation, "Attention"
Exit Sub
End If
ConsultationFactureDevis.Show
End SubIl permet d'afficher un msgbox si le dossier (Facture) est vide, s'il est pas vide, afficher le contenu du dossier dans une ListBox.
Mon problème est qu'à partir du moment ou j'ai un devis (fichier dans le dossier devis), je peux pas le consulter depuis l'USF (ConsultationFactureDevis), car le macro ci dessus fonctionne que pour le dossier "facture"
J'aimerais transformer ce code, l'utiliser pour les deux dossiers (devis et facture)
Avoir accès à l'usf si au moins un fichier dans le dossier facture ou devis et afficher le msgbox quand ces deux sont entièrement vide.
Voici un fichier exemple (à extraire dans c: svp)
Merci d'avance
A bientôt