Contourner la boite de dialogue Fermé

Question

Bonjour, 

La macro que j'ai créée va regarder dans 7 dossiers différents si des fichiers de données sont présents. Et si oui, les déplace dans un endroit spécifique. Cependant il y a un truc que je ne comprends pas.

For i = 0 To 6

'Définition du chemin à tester - PERMET DE PAS FAIRE BUGER LA MACRO SUIVANTE
    Dim RetVal As Boolean
    
    CheminOpen = CheminMachine(i)
    CheminOpenData = CheminOpen & "\*.*"
    ChDir (CheminOpen)
    
    RetVal = Application.Dialogs(xlDialogOpen).Show(CheminOpenData)
    If RetVal = True Then Exit Sub 


Je suis toujours obligé de faire apparaitre la boite de dialogue afin que le chemin soit bien prit en compte pour la suite des opérations...
Y a t'il une façon autre que de faire pop une boite de dialogue ? Quelque chose d'automatique ?
Merci bien

Configuration: Windows 7 / Firefox 21.0

Frenchie83 · Answer

Bonjour

pourquoi passer par la boîte de dialogue?

il n'y qu'a tester la présence du fichier

If Dir(CheminOpenData, 0) = "" Then  "msgbox "le fichier n'existe pas"
sinon suite du programme

ai-je bien compris ton problème?

bonne journée

rEVOLV3r · Answer

Bonjour, 

Je vais regarder si cela fonctionne, merci.
C'est le seul moyen que j'ai trouvé pour qu'excel prenne bien en compte le chemin. Sinon il me dit qu'il n'arrive pas a trouver les fichiers dans le répertoire, si je passe pas par la boite de dialogue.

Mais je vais essayer cette ligne de code 

Amicalement

Contourner la boite de dialogue

2 réponses

Discussions similaires