Microsoft 365 vbDirectory ou pas ? ?

[DenisHen]

Bonjour à la communauté.
Je fais en ce moment une petite "boite de dialogue" personnalisée pour ouvrir ou sauvegarder un fichier (un mini explorateur).
Je suis surpris que certain "dossiers" ("répertoires" pour les anciens) sont parfois concidérés comme des fichiers.

On voit bien sur la capture que "Users" est dans la liste des fichiers, et n'est pas dans la liste des dossiers.
Pour trier mes dossiers, j'ai :

If GetAttr(Chemin) = vbDirectory And Left(Chemin, 1) <> "." Then

Et pour mes fichiers :

If GetAttr(Chemin) <> vbDirectory And Left(Chemin, 1) <> "." Then

KelKin aurait une idée ?
Je pense à un problème de traduction entre "Users" et Utilisateurs".
Denis...

 

[job75]

- Oui, le poste #19 est plus "compliqué" que celui du #18, mais je le comprend et peut le modifier.

Moi je ne le comprends pas et je préfère le post #29 dont le code est simple et très rapide.

 

[jcf6464]

Moi je ne le comprends pas et je préfère le post #29 dont le code est simple et très rapide.

Bonjour à vous tous,
sujet intéressant avec deux demandes ou réflexion ,

1- un bouton avec retour,
2- Une adresse à partir d'une cellule d'une autres page exemple (parametres) pour que l'on tombe sur le bon dossier sans avoir a cliquer plusieurs fois pour arrivé sur le bon dossier surtout dans des apli bien spécifique exemple,
( D:\Competitions Vol a Voile\MARMANDE-2023\GESTION-DES-CONCURENTS\)


bonne continuation jcf

 

[job75]

Bonjour,

sujet intéressant avec deux demandes ou réflexion ,

1- un bouton avec retour,
2- Une adresse à partir d'une cellule d'une autres page

Bah si vous ouvrez mon fichier du post #29 vous verrez qu'il n'y a ni l'un ni l'autre.

A+

 

[job75]

Bonjour le forum,

Pour ceux que ça intéresse voici une solution avec les contrôles ActiveX dans la feuille de calcul.

A+

 

[job75]

Bonjour le forum,

Avec ce fichier un clic simple dans les ListBox suffit :

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ListBox1.ListIndex = -1 Then Exit Sub
ComboBox1.AddItem ListBox1
ComboBox1 = ListBox1
End Sub

A+

 

[DenisHen]

Bonjour à la communauté.
@jcf6464 : dans mon message #27, il y a les deux 😉.
Denis...

 

[jcf6464]

Bonjour à la communauté.
@jcf6464 : dans mon message #27, il y a les deux 😉.
Denis...

Bonjour Denishen et le forum ,

je ne voie pas ce que tu veut dire pour t'on message #27

cordialement jcf

 

[job75]

Bonjour le forum,

Dans le fichier du post #35 j'ai ajouté le dimensionnement des colonnes D et F pour rendre plus lisibles les textes :

Private Sub Worksheet_Change(ByVal Target As Range)
[D1,F1].ColumnWidth = 34 * [H6] / 100 'Liste de validation en H6
ComboBox1.Left = [D1].Left: ListBox1.Left = [D1].Left: ListBox2.Left = [F1].Left
ComboBox1.Width = [D1:F1].Width: ListBox1.Width = [D1].Width: ListBox2.Width = [F1].Width
End Sub

A+