CheckBox ouvre fichier

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #2

Re : CheckBox ouvre fichier

Bonjour Maval
ton dossier en retour, avec des modifs et une fois de plus tes variables pas déclarées!!!
bref j'ai le sentiment que tu n'as pas envie d'apprendre, de plus retirer la couleur avant d'appliquer le bleu, j'ai viré aussi et l'utilisation d'un checkbox ??? j'ai viré aussi et j'ai mis un bouton
bref tu décompresses le dossier sur ton bureau tu ouvres je ne sais plus recherche je pense et tu cliques et tu me redis (peut-être)
a+
Papou

 

Pièces jointes

• Recherche.zip

  89.6 KB · Affichages: 21
• Recherche.zip

  89.6 KB · Affichages: 22
• Recherche.zip

  89.6 KB · Affichages: 19

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #3

Re : CheckBox ouvre fichier

Bonjour Papou

Et merci encore, Se n'est pas possible de le faire avec la CheckBox?

Bonne journée

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #4

Re : CheckBox ouvre fichier

Re Maval le forum
si mais tes checkbox c'est de la ????? tu auras la même chose mais plus compliqué car la checkbox il faudra une sélection de plus pour ouvrir le fichier, pas rationnel du tout.
je refais
a+
Papou😱

 

Dernière édition: 26 Décembre 2014

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #5

Re : CheckBox ouvre fichier

Re Bonjour Maval le forum
voilà avec ta checkbox, qui n'apporte rien bien au contraire, maintenant si tu as un département sélectionné tu devras après avoir
coché la checkbox choisir un département pour l'ouvrir!!! Une bêtise mais c'est ce que tu veux alors
a+
Papou😱

 

Pièces jointes

• Recherche.zip

  91.9 KB · Affichages: 15
• Recherche.zip

  91.9 KB · Affichages: 17
• Recherche.zip

  91.9 KB · Affichages: 21

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #6

Re : CheckBox ouvre fichier

Re,

je te remercie beaucoup

Le code est bien ceci

Code:

   If Feuil1.C22 Then
        adr = ThisWorkbook.Path
        Workbooks.Open (adr & "\" & [AD23])
    End If

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #7

Re : CheckBox ouvre fichier

Re Maval le forum
oui sur une sélection de département et sur le click du C22

Code:

Private Sub C22_Click()
    Dim adr$
    If C22 Then
        adr = ThisWorkbook.Path
        Workbooks.Open (adr & "\" & [AD23])
    End If
End Sub

a+
Papou😱

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #8

Re : CheckBox ouvre fichier

RE,

Je te remercie et te souhaite des bonnes fêtes d'année


Je viens de m'apercevoir que les différent départements sont nommer par le N°, sa pose probléme si ont les nomme par leur nom?

@+

 

Dernière édition: 26 Décembre 2014

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #9

Re : CheckBox ouvre fichier

Re Maval le forum
bah oui pourquoi faire simple quand on peut faire compliqué ??
Oui on peut le faire mais c'est plus chiant et moins direct
a+
Papou😱

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #10

Re : CheckBox ouvre fichier

Re,

J'aime bien ton expression !

bah oui pourquoi faire simple quand on peut faire compliqué ??

Cliquez pour agrandir...

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #11

Re : CheckBox ouvre fichier

Re Maval
a+
Papou😱

 

Pièces jointes

• Recherche V4.zip

  91.8 KB · Affichages: 23

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #12

Re : CheckBox ouvre fichier

Re papou,

Je te remercie beaucoup.

J'essaie de comprendre ton code, si j'ai bien compris tu as ajouter ceci:

Code:

  choix = Format(CStr([AD23]), "00")
    Pref = LTrim(Replace(ActiveSheet.Shapes("FR-" & choix).TextFrame2.TextRange.Characters.Text, vbLf, ""))
        Pref = LTrim(Mid(Pref, 3))
    [AE23] = Pref

puis ceci

Code:

  If Feuil1.C22 Then
        adr = ThisWorkbook.Path
        Workbooks.Open (adr & "\" & [AE23])
    End If

et en feuil1 ceci

Code:

Private Sub C22_Click()
    Dim adr$
    If C22 Then
        adr = ThisWorkbook.Path
        Workbooks.Open (adr & "\" & [AE23])
    End If
End Sub

Merci encore

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 26 Décembre 2014

• #13

Re : CheckBox ouvre fichier

Re Maval le forum
oui c'est bien cela
a+
Papou😱

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 26 Décembre 2014

• #14

Re : CheckBox ouvre fichier

Re

Je te remercie, aller Bail à la prochaine....!

 

Vote positif 0 Vote négatif