pourquoi ne marche plus

[jean32]

Bonjour,

Quelqu'un pourrait il me dire pourquoi la listbox n' affiche plus les fichiers du répertoire.
Cette petite application a été créée avec excel 2000 sous xp, maintenant win7 et excel 2013.
Je vous joint une partie du fichier.
Merci de vos réponse et éventuellement une solution
Merci à tous

Jean

 

[Chris24]

Bonjour

A moins que ce soit pour le fun, l'usage d'un multipage n'est pas utile.

Une solution toute simple en retour sur ton fichier

Cdt

 

[VIARD]

Bonjour

A moins que ce soit pour le fun, l'usage d'un multipage n'est pas utile.

Une solution toute simple en retour sur ton fichier

Cdt

Bonjour Chris, Jean et tous

Tu as raison pas besoin de multipage, c'est parfait.

A+ Jean-Paul

 

[VIARD]

Bonjour Chris, Jean et tous

Tu as raison pas besoin de multipage, c'est parfait.

A+ Jean-Paul

Bonjour

Il y a juste un petit soucis. il faut reprendre au niveau de l'extension pour le PDF.

'----------- Liste Fichier -------------
For Each Fichier In Dossier.Files
'    Ex = Right(Fichier.Name, 4)
'    If UCase(Ex) = ".XLS" Then
        ListBox1.AddItem Fichier.Name
'    End If
Next Fichier

et mettre c'est trois lignes en commentaires.
sinon les PDF ne seront pas listés

A+ Jean-Paul

 

[Chris24]

RE

rectif faite

 

[VIARD]

RE

rectif faite

Bonjour Chris, Jean

C'est bon mais Il subsiste malgré tout un petit PB.
lorsque l'on sélectionne "PDF" il ne revient pas au "XLS".
donc j'ai corrigé comme ceci.

'----------- Liste Fichier -------------
For Each Fichier In Dossier.Files
Ex = Right(Fichier.Name, 4)
    If Lebouton = "PDF" Then
        If UCase(Ex) = ".PDF" Then ListBox1.AddItem Fichier.Name
    ElseIf Lebouton = "XLS" Then
        If UCase(Ex) = ".XLS" Then ListBox1.AddItem Fichier.Name
    End If
Next Fichier

de plus il faut rajouter aux 2 boutons (Devis et Facture) --> Lebouton="XLS"
là cela doit-être bon.
pour ma part j'avais fait autrement, mais comme çà c'est bon.

A+ Jean-Paul

 

[Chris24]

RE

Petit oubli de ma part

Il suffit de rajouter dans les procédures BtDevis et BtFacture : LeBouton = ""

 

[jean32]

Bonjour Chris et Viard,

Je viens de voir vos réponses et après les petites modifications cela marche et me convient parfaitement, en tous cas je vous remercie de votre aide.
Je vous souhaite une bonne fin de journée
Jean

 

[VIARD]

Bonjour Chris et Viard,

Je viens de voir vos réponses et après les petites modifications cela marche et me convient parfaitement, en tous cas je vous remercie de votre aide.
Je vous souhaite une bonne fin de journée
Jean

Bonjour Jean, Chris

Je pensais que c'était fini hé bien non.
avec tout ça on ne peut pas visualiser les "PDF"
donc voici la modif à apporter au DoubleClick.

'=====================================
'------ Validation Double Click ------
'=====================================
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Lebouton = "XLS" Then
    Workbooks.Open Chemin & ListBox1.Value
ElseIf Lebouton = "PDF" Then
    ThisWorkbook.FollowHyperlink Address:=Chemin & ListBox1.Value
End If
Application.Visible = True
Unload Me
End Sub
'=====================================

A+ Jean-Paul

 

[Chris24]

Effectivement je n'ai pas testé cette partie du code

Version revue z'et corrigée

 

[Chris24]

RE:

Un petit dernier pour ouvrir les fichiers PDF sans avertissement de sécurité

 

[Si...]

Bon_jour

un exemple fait en 2014.

 

[VIARD]

Bon_jour

un exemple fait en 2014.

Bonjour Jean, Chris et à tous

Voici un dernier jet pour la route avec un petit plus.
Comme il était fait je le livre.

A+ Jean-Paul

 

[jean32]

Bonjour à vous tous,

Je suis enfin rentré après quelques jours d' absence, et je vois qu' il y a eu des suppléments, je charge les 2 ou 3 fichiers et je reviens d' ici quelques heures le temps d' apprécier votre fabuleux boulot.
jean

 

[jean32]

Re bonjour à tous,

J' ai fait les changements dans mon fichier et cela va très bien et vous remercie encore de votre aide.
Mais un autre problème s' est manifesté, j' ai maintenant une erreur 1004 qui se produit à un autre niveau de l' application et je pense ouvrir un autre fil de discutions car s' est la première fois que j' ai ce problème.
jean