pourquoi ne marche plus

Chris24

XLDnaute Impliqué

• 13 Mars 2018

• #16

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

 

Pièces jointes

• essai_userform_multi (1).xls

  45 KB · Affichages: 33

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 13 Mars 2018

• #17

Chris24 à dit:

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

Cliquez pour agrandir...

Bonjour Chris, Jean et tous

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

A+ Jean-Paul

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 13 Mars 2018

• #18

VIARD à dit:

Bonjour Chris, Jean et tous

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

A+ Jean-Paul

Cliquez pour agrandir...

Bonjour

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

VB:

'----------- 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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 13 Mars 2018

• #19

RE

rectif faite

 

Pièces jointes

• essai_userform_multi (1).xls

  44.5 KB · Affichages: 28

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 13 Mars 2018

• #20

Chris24 à dit:

RE

rectif faite

Cliquez pour agrandir...

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.

VB:

'----------- 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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 13 Mars 2018

• #21

RE

Petit oubli de ma part

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

 

Dernière édition: 13 Mars 2018

Vote positif 0 Vote négatif

J

jean32

XLDnaute Nouveau

• 13 Mars 2018

• #22

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

 

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 13 Mars 2018

• #23

jean32 à dit:

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

Cliquez pour agrandir...

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.

VB:

'=====================================
'------ 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

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 13 Mars 2018

• #24

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

Version revue z'et corrigée

 

Pièces jointes

• essai_userform_multi (1).xls

  42.5 KB · Affichages: 17

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 13 Mars 2018

• #25

RE:

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

 

Pièces jointes

• essai_userform_multi (2).xls

  47.5 KB · Affichages: 22

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 13 Mars 2018

• #26

Bon_jour

un exemple fait en 2014.

 

Pièces jointes

• Usf Dir.xlsm

  24.9 KB · Affichages: 26

Vote positif 0 Vote négatif

V

VIARD

XLDnaute Impliqué

• 14 Mars 2018

• #27

Si... à dit:

Bon_jour

un exemple fait en 2014.

Cliquez pour agrandir...

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

 

Pièces jointes

• Fichier(4)_XLS.xlsm

  26 KB · Affichages: 23

Vote positif 0 Vote négatif

J

jean32

XLDnaute Nouveau

• 16 Mars 2018

• #28

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

 

Vote positif 0 Vote négatif

J

jean32

XLDnaute Nouveau

• 17 Mars 2018

• #29

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

 

Vote positif 0 Vote négatif