Microsoft 365 Pb avec Windows

LUMBARDO · 31 Janvier 2023

Bonjour,
J'ai un code qui fonctionnait bien jusqu'à hier où des modifications à Windows ont été apportées.
Il permet de faire une recherche dans un dossier à partir d'un Useform.

Private Sub CommandButton65_Click()

Dim DataObj As New MSForms.DataObject
Dim Mon_texte As String
Dim RetVal As Long

ClearClipboard 'on vide le presse-papier

'on ouvre l'explorateur Windows
RetVal = ShellExecute(0, "open", "explorer.exe", "C:\Utilisateurs\x\Documents\dossiers", 0, SW_NORMAL)
Sleep 1000

If RetVal = 2 Or RetVal = 3 Then
MsgBox "Chemin ou fichier non trouvé"
Exit Sub
End If
If ComboBox2.Value = "" Then
MsgBox "Il n'y a pas de dossier sélectionné !", vbOKOnly + vbCritical, "Vas te coucher !"
Unload Me
irs1.Show
Exit Sub
End If
'on copie le texte de la cellule active dans le presse-papier

Mon_texte = Me.ComboBox2.Value
DataObj.SetText Mon_texte
DataObj.PutInClipboard

Sleep 500

'on se place dans la fenêtre de saisie y pour coller le contenu du presse-papier
SendKeys String:="{F3}", wait:=True
keybd_event VK_CONTROL, 0, 0, 0
keybd_event VK_V, 0, 0, 0
keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, 0, 0, 0
keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
Sleep 1000
SendKeys String:="{ENTER}", wait:=True

With Application
DoEvents
Application.SendKeys ("{NUMLOCK}"), True
End With

End Sub

J'ai vérifié il met bien dans le presse papier le numéro mais après pour une raison inconnue il copie dans la barre de recherche le symbole Windows...

Quelqu'un a t-il rencontré ce cas ?

fanch55 · 4 Février 2023

patricktoulon à dit:
bonsoir
perso je me pose toujours la question
je l'ai déjà soulevé en post #2 et on en est au post 15
mais qu'est ce que dis donc trucmuche bidule chouette explorer viens faire la dedans
en vb vba on a des filedialogs ou folderdialog qui font ça

Salut Pat, en fait les filedialogs affichent les fichiers filtrés et tous les dossiers du même niveau.
Le but serait d'obtenir uniquement les fichiers .

patricktoulon · 4 Février 2023

Bonjour @fanch55
et puis depuis longtemps déjà je ne me sert plus des dialog excel mais de getopenfilename qui a largement de quoi filtrer et présenter le dialog comme on veut avec ces arguments en sélection unique ou multiple même

sans chdir on peut déterminer le dossier de base
on peut sélectionner 1 ou plusieurs extensions qui apparaissent dans la liste
on peut titrer le dialog
on peut faire qu'il soit multi ou single select
etc.etc.

perso je dis explorer et on me dit dialog
même si je ne connais pas ou comprends pas je fait une recherche sur gogolito
et j'en apprend un peu plus
et comme je ne suis pas trop C.. je me rend compte que les solutions existent

patricktoulon · 4 Février 2023

re
et dans le pire des cas avec un userform c'est pas difficile de se faire un dialog perso

TooFatBoy · 4 Février 2023

patricktoulon à dit:
je me demande bien pourquoi tu t'ennuie avec explorer dans un shell alors que la fonction DIR peut te donner la réponse
ou même au pire avec FSO

si tu nous expliquais ce que tu veux faire avec ton code par ce que pour moi c'est obscure

C'est vrai que moi aussi je serais bien curieux de savoir pourquoi s'embêter avec le Shell.
Très bonne question.

fanch55 · 4 Février 2023

patricktoulon à dit:
re
et dans le pire des cas avec un userform c'est pas difficile de se faire un dialog perso

Et comme le SYSTEMINDEX ne fonctionne qu'avec les fichiers indexés, il ne reste plus que le FSO ...

Staple1600 · 4 Février 2023

Re,

@fanch55

fanch55 à dit:
Et comme le SYSTEMINDEX ne fonctionne qu'avec les fichiers indexés, il ne reste plus que le FSO ...

Tu veux dire que c'est compliqué d'utiliser WindowsSearch avec VBA ?
Sinon en plus du FSO, il reste PowerShell
(Les deux n'étant pas "livrés, liés" avec Excel mais avec Windows)

fanch55 · 5 Février 2023

Staple1600 à dit:
Re,

@fanch55

Tu veux dire que c'est compliqué d'utiliser WindowsSearch avec VBA ?
Sinon en plus du FSO, il reste PowerShell
(Les deux n'étant pas "livrés, liés" avec Excel mais avec Windows)

Non, c'est pas compliqué , c'est limité aux dossiers indexés ou plutôt qu'on a défini dans l'indexation de windows.
Une clé USB, un CD, un disque externe ou réseau ne sont pas nativement indexés .
C'est plutôt une sauce interne depuis Vista. ...

patricktoulon · 5 Février 2023

re
tiens j'ai pris 15 minutes pour le faire mon dialog perso
il ne ressort que les fichiers avec extensions demandées,meme si il y a des dossiers dans ce dossier ils ne ressortent pas
ps: je n'ai pas fait dans l’élaguant je vous laisse l'arranger a votre sauce

lancer la sub tests

pour info toute mes boites dialogs perso fonctionnent comme ca

a savoir une fonction public est le return en hide , le modal étant en lui même la gestion d'attente

fanch55 · 5 Février 2023

patricktoulon à dit:
tiens j'ai pris 15 minutes pour le faire mon dialog perso
pour info toute mes boites dialogs perso fonctionnent comme ca

Fonctionne tout à fait correctement sur les Dossiers locaux.
Perso, je n'utilise plus Dir pour lister les fichiers car celui-ci me fait parfois des misères sur les dossiers et fichiers réseaux avec des caractères accentués, ce que récupère Fso sans problème .

Exemple:
J'ai des disques réseaux sur un Synology(Linux)
que je contacte ainsi : \\MaoServeur\Partage\Scanneur
Les caractères que je récupère via Dir ne me permettent pas d'exploiter le nom ....

Via Dir
Via Fso

patricktoulon · 5 Février 2023

Bonjour @fanch55
je dois avoir la fonction quelque part pour ça
mais FSO a d'autre probleme avec les noms trop long les nom de fichiers systems etc...que dir n'a pas
voir la discussion avec Dudu2 sur la fonction récursive avec fso que l'on a mis au point et qui devient plus rapide que dir

patricktoulon · 5 Février 2023

re

VB:

' version avec dir
'Private Sub UserForm_Activate()
    'Dim ex, f
    'Me.Caption = titre
    'With ListBox1
        '.multiSelect = Abs(multiSel)
        'For Each ex In ext
            'f = Dir(doss & "\" & ex)
            'Do While f <> ""
                '.AddItem f
                '.List(ListBox1.ListCount - 1, 1) = doss & "\" & f
                'f = Dir
            'Loop
        'Next
    'End With
'End Sub

'version avec FSO
Private Sub UserForm_Activate()
    Dim FSO, ex, FlD, Fil
    Me.Caption = titre
    With ListBox1
        .multiSelect = Abs(multiSel)
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set FlD = FSO.GetFolder("F:\vba excel")
        For Each Fil In FlD.Files
            For Each ex In ext
                If Fil Like ex Then
                    .AddItem Fil
                    .List(ListBox1.ListCount - 1, 1) = Fil
                End If
            Next
        Next
    End With
End Sub

je lui ai mis des petits trucs en plus

fanch55 · 5 Février 2023

Il semblerait que @LUMBARDO se "fout" des extensions du moment qu'il a des fichiers commençants par les caractères qu'il demande ...
Voir le classeur ci-joint qui utilise Filedialog, Fso et FollowHyperlink

patricktoulon · 5 Février 2023

re
et ben dans ext tu met
ext="toto*;titi*;riri*"
en gros ext fait office de partname
avec un"*" devant ca fait pour une partie de (au milieu)
sans le"*" devant c'est pour commence par
comme dans ma fonction récursive fso
et pour les deux
exe ext="toto*xl*;riri*txt
pas compliqué

LUMBARDO · 5 Février 2023

patricktoulon à dit:
résultat chez moi.

Bonsoir le fil,
Merci pour vos propositions. Pour l'instant j'ai un peu de mal à les inclure dans mon appli.

patricktoulon · 6 Février 2023

re
bonjour
ben si on a pas ton fichier on risque pas de savoir
sur quelle ligne est déclenchée l'erreur ?

Microsoft 365 Pb avec Windows

LUMBARDO

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

LUMBARDO

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires