Contourner la boite de dialogue
rEVOLV3r
Messages postés
232
Statut
Membre
-
rEVOLV3r Messages postés 232 Statut Membre -
rEVOLV3r Messages postés 232 Statut Membre -
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
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
A voir également:
- Contourner la boite de dialogue
- Dialogue boost - Accueil - Guide streaming
- Boite gmail pleine - Guide
- Se connecter à ma boite hotmail - Guide
- Boite gmail bloquée - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
2 réponses
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
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
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
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
