Accès USF

[RONIBO]

Bonsoir le forum,

Je viens vers vous concernant une modification que j'aimerais faire dans ce 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 Sub

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

 

[Misange]

Re : Accès USF

Bonjour

à tester :

Sub BoutonDossierFactureDevis()
Chemin1 = "C:\Ronibo\Facture\"
LeFichier1 = Dir(Chemin1 & "*.xlsm")
Chemin2 = "C:\Ronibo\Devis\"
LeFichier2 = Dir(Chemin2 & "*.xlsm")
If LeFichier1 = "" AND le fichier2="" Then
MsgBox "Il n'y a ni facture ni devis établi pour le moment !", vbInformation, "Attention"
else
ConsultationFactureDevis.Show
end if
End Sub

 

[RONIBO]

Re : Accès USF

Bonjour,

Merci pour ton aide,
Mais je bloque ici :

If LeFichier1 = "" and le LeFichier2="" Then

Erreur de compilation - erreur de syntaxe

a+

 

[Si...]

Re : Accès USF

salut

"LeFichier2" et non "Le Fichier2" ou "le LeFichier2" ...

 

[RONIBO]

Re : Accès USF

Bonjour,

J'ai pas trop compris, j'ai bien mit : LeFichier2

 

[Si...]

Re : Accès USF

re

voir le code de Misange (6ème ligne) et l'encadré du #3

 

[RONIBO]

Re : Accès USF

re,

J'ai recopié le code que misange m'as proposé (sans rien modifier) j'ai cette ligne en rouge avec une erreur de syntaxe

 

[Si...]

Re : Accès USF

re

que vois-tu ?

 

[RONIBO]

Re : Accès USF

J'ai pu résoudre l'erreur de syntaxe.

Mais malgré que mes dossiers devis et facture sont vides, j'ai quand même accès à l'usf et le msgbox : MsgBox "Il n'y a ni facture ni devis établi pour le moment !", vbInformation, "Attention" ne fonctionne pas

 

[RONIBO]

Re : Accès USF

Bonsoir,

Vous avez une idée pourquoi le msgbox ne s'affiche pas, alors qu'il y a pas d'erreur

 

[Misange]

Re : Accès USF

RE bonjour

Parceque ce code n'est pas bon 🙂

Voici un code qui fonctionne, avec une fonction pour compter le nombre de fichiers dans chaque dossier.
Si tu ne veux compter que les fichiers avec une extension xlsm remplace ci-dessous
NbFichiers(Chemin1)
par
NbFichiers(Chemin1,"xlsm")

Sub test()
Dim Chemin1 As String
Dim Chemin2 As String
Chemin1 = "E:\www\test\"
Chemin2 = "E:\www\test1\"
If NbFichiers(Chemin1) = 0 And NbFichiers(Chemin2) = 0 Then
MsgBox "Il n'y a ni facture ni devis établi pour le moment !", vbInformation, "Attention"
Else
MsgBox "il y a au moins une facture ou un devis"
End If

End Sub

Private Function NbFichiers(Dossier As String, Optional Extension As String = "*.*") As Double
'adapté de Ken Puls (www.excelguru.ca)

    Dim objFiles As Object
    Dim objFile As Object

    'Set Error Handling
    On Error GoTo SorsSorsSors

    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFiles = objFso.GetFolder(Dossier).Files


    If Extension = "*.*" Then
        NbFichiers = objFiles.Count
    Else
        For Each objFile In objFiles
            If UCase(Right(objFile.Path, (Len(objFile.Path) - InStrRev(objFile.Path, ".")))) = UCase(Extension) Then
                NbFichiers = NbFichiers + 1
            End If
        Next objFile
    End If

SorsSorsSors:
    On Error Resume Next
    Set objFile = Nothing
    Set objFiles = Nothing
    Set objFso = Nothing
    On Error GoTo 0
End Function

 

[RONIBO]

Re : Accès USF

Bonjour,

Mille merci Misange, ca me convient parfaitement 🙂

Bonne journée

 

[MJ13]

Re : Accès USF

Bonjour à tous

Pour compter le nombre de fichiers xls dans un dossier, j'avais dévelopé ce code avec le chemin sélectionné:

Sub Compte_Dossiers_Sel_NB_Xls()
For Each Cell In Selection
N = 0
NF = Dir(Cell.Value & "\*.xls")
Do While NF <> ""
N = N + 1
NF = Dir ' suivant
Loop
Cell.Offset(0, 1) = N
Next
End Sub

 

[RONIBO]

Re : Accès USF

Bonjour,

Mj13 : Merci pour ton code, j'ai pas trop compris le but de ton code, il permet de compter les fichier dans un dossier? Comment va t-on savoir le nombre de fichier?

A+

 

[Si...]

Re : Accès USF

salut

quel est l'intérêt de court-circuiter le formulaire de choix ?