CheckBox ouvre fichier

[maval]

Bonjour et bonne fêtes de fin d'année,

J'ai sur une feuille une carte avec des shappes clicable et un CheckBox.
J'aimerais que lorsque je coche ma CheckBox et que je click sur une shappe je puisse ouvrir le fichier qui se trouve dans le même dossier correspondant au nom de ma Shappes;
ex: si je click sur la shappe "Vannes" le fichier nommer Vannes s'ouvre.

Je joint mon fichierqui sera plus explicit.

Merci d'avance

 

[Paritec]

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

 

[maval]

Re : CheckBox ouvre fichier

Bonjour Papou

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

Bonne journée

 

[Paritec]

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😱

 

[Paritec]

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😱

 

[maval]

Re : CheckBox ouvre fichier

Re,

je te remercie beaucoup

Le code est bien ceci

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

@+

 

[Paritec]

Re : CheckBox ouvre fichier

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

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

a+
Papou😱

 

[maval]

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?

@+

 

[Paritec]

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😱

 

[maval]

Re : CheckBox ouvre fichier

Re,

J'aime bien ton expression !

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

@+

 

[Paritec]

Re : CheckBox ouvre fichier

Re Maval
a+
Papou😱

 

[maval]

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:

  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

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

et en feuil1 ceci

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

Merci encore

@+

 

[Paritec]

Re : CheckBox ouvre fichier

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

 

[maval]

Re : CheckBox ouvre fichier

Re

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