[VBA - E] Controler recherche windows

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/12/2006, 14h16
alex_elder1_1

merci bcp
qu'est ce que tu entends par declarer variables
en fait j'incere cette commande ds une fonction recherche qui precede celle ci j'ai donc mis Call mais laquelle dois je appeler?
j'ai un probleme il ne marche pas qd je lance il me met mauvais nom ou mauvais nombre pour \\Ctdwks055\motor test data dump je l'ai modif parce que c'est une network place et c'est aps ds C mais ca marche pas
le fait qu'il soit ds une autre Network place (dsl je sais aps l'equivalent francais) joue t'il?
il met le bon chemin mais le rep est vide
je t'ai mis mon fichier le code est a la fin de la sheet2 juste pour jeter coup d'oeil si tu peux mais le fait qu'ils soient ds des network places diff peut il changer les choses?
j'ai en plus type mismatch pour NomComplet = Chemin & NomDuRépertoire(Chemin, CStr(NoMoteur)) & "\"
merci encore pour ton aide
dsl d'etre lourd
12/12/2006, 15h12
alex_elder1_1

dc en fait j'hesite sur les variables a def
parce que je je viens je pense d'ameliorer le prob pour type mismatch mais maintenant j'ai
If NoMoteur = TableauRep(1) Then subscript out of range
j'ai donc supprime le (1) pour essayer mais en fait il me met type mismatch
peux tu me dire pkoi?
merci d'avance
12/12/2006, 16h56
alex_elder1_1

salut

tjrs le probleme de NomComplet = Chemin & NomDuRépertoire(Chemin, CStr(NoMoteur)) & "\" = type mistmatch
le nom de mon rep est \\Ctdwks055\motor test data dump\ parce que ca vient d'une network place et pas de C (dsl je ne l'avais pas dit)
et pour If NoMoteur = TableauRep(1) Then il me met subscript out of the range et si j'enleve le (1) il me met type mistmach
dsl peut on m'aider?
merci d'avance
12/12/2006, 17h38
ouskel'n'or

Sur quel volume se trouve le répertoire "Ctdwks055" (C:\, D:\, ...)
Est-ce un nom de volume ?
Si tu es en réseau, indique-le. (tu l'as peut-être précisé mais je n'en ai pas souvenir)
A+
12/12/2006, 17h43
alex_elder1_1

1 pièce(s) jointe(s)

oui c'est un reseau c'est pour ca que le repertoire a pour nom
\\Ctdwks055\motor test data dump avec deux slash au depart
c'est un reseau d'entreprise appele Ctdinternal
voila
j'ai le probleme du tableau aussi avec type mistmatch ou out of range tu sais pkoi?
le fichier je te le remets il devrait marcher dsl
sheet2
si je veux le mettre ds ma recherche motor description je dois appeler quelle fonction
call?

merci
12/12/2006, 17h53
ouskel'n'or
Bien alors je pense que tu as un pb avec le chemin.
Place un fichier dans l'un des sous-répertoires, NimporteLeQuel.xls. Disons dans celui-ci :
\\Ctdwks055\motor test data dump\ID 1032 142U2B600\
Ensuite ouvre ton fichier par "Fichier -> Ouvrir..."
Puis copie cette sub dans un module standard de ton fichier
Code:

1 2 3 Sub AfficherLeChemin() Msgbox ThisWorkBook.path End sub
Et dis-moi ce que ça donne.
A tout'
12/12/2006, 17h53
alex_elder1_1

pour les variables je sais ce que veut dire definir les variables mais lesquelles dois je def parce je ne sais pas si je dois toutes les def ou juste certaines
voila
dsl
merci
12/12/2006, 17h59
alex_elder1_1

ca me met
\\CTdynamics\r&d\General\Students\CPlat\Visual Basic\LAB MANAGER
12/12/2006, 18h11
ouskel'n'or

Dernier essai

Ce que tu me donnes est le chemin du fichier Book1.xls
\\Ctdynamics1\r&d\General\Students\CPlat\Visual Basic\LAB MANAGER\Book1.xls
Je te demande de mettre le code que je t'ai passé dans un fichier que tu enregistres sous le répertoire "\\Ctdwks055\motor test data dump\ID 1032 142U2B600\"
Essaie au moins de faire ce qu'on te dit. Là, je t'avoue que je désespère assez et cela a une forte propension à empirer à chacune de tes nouvelles questions :cry:
Relis ce que je t'ai mis dans le dernier post et donne-moi la réponse que j'attends et qui doit, dans le chemin, comporter au moins "ID 1032 142U2B600" puisque c'est dans ce répertoire que je te demande d'enregistrer le fichier test.
A+
12/12/2006, 18h15
alex_elder1_1

dsl c'est la fin de journee je pete un cable pas a cause de toi mais de mon programme dsl encore une fois
\\Ctdwks055\motor test data dump\ID 1032 142U2B600
dsl encore:cry:
12/12/2006, 18h35
ouskel'n'or

Dans le fichier test, mets 1032 comme N° de moteur dans la colonne B
Puis colle le code que je t'ai passé, là.
Tu vas dans l'éditeur VBA, tu sélectionnes ta feuil1 (deux clics sur Feuil1(Feuil1) ) et sur cette page tu colles l'intégralité du code.
Ensuite, retourne dans Excel, fais un clic sur 1032
A+
12/12/2006, 18h51
ouskel'n'or

Une précision : Bien sûr, modifie cette ligne

Citation:

Chemin = "d:\Ctdwks055\motor test data dump\"

par ça

Code:

Chemin = "\\Ctdwks055\motor test data dump\"

A+
12/12/2006, 19h21
alex_elder1_1

est ce que ça devrait marcher apres?
en fait j'ai quitté mon boulot dc je n'ai plus ma base de donnée a dispo
quelles sont les heures ou tu es dispo s'il te plait?
merci encore de ton aide
12/12/2006, 20h55
ouskel'n'or

Citation:

Envoyé par alex_elder1_1

est ce que ça devrait marcher apres?

Ben non ! Je dis toujours des c...ries... Je viens sur le forum uniquement pour piéger les programmeurs en herbe et em... der tous ceux qui posent des questions. :twisted:
Mais qu'est-ce que je m'amuse :aie: :arf: :mur: :lefou: :fou:
Une question : Tu testes ma patience ? Tu te moques ? C'est une blague ?
Si oui, alors j'avoue, elle est vraiement très bonne :mouarf:
13/12/2006, 09h29
alex_elder1_1

non dsl ce n'etait pas mon intention de te faire chier ou de te blesser c'etait une question idiote je le reconnais
pour ce que tu m'as demande j'ai teste le code j'ai comme reponse

Code:

If NoMoteur = TableauRep(1) Then

subscript out of range
voila encore dsl et merci de m'aider
13/12/2006, 09h49
ouskel'n'or
Comme je n'ai pas ce pb, avant cette ligne,

Citation:

If NoMoteur = TableauRep(1) Then

écris
Code:

1 2 3 msgbox NomRep 'ou Debug.print NomRep
et dis-nous.
J'espère que tu n'as pas modifié le code, à part le chemin ;)
13/12/2006, 09h53
ouskel'n'or

Une question qui me vient : As-tu déjà des "sous-répertoires" portant des N° de moteurs ? Si tu n'en as pas, alors l'erreur est "normale".
Si cela risque de se produire, il faudra ajouter un test d'erreur. Mais on verra ça après
Essaie de répondre à chaque question qu'on te pose.

je crois qu'il ne selectionne pas le bon dossier en fait
j'ai mis ce que tu m'as dit et la msg box me met un dossier qui s'appelle encoder test qui est le premier sous dossier en fait sans prendre celui du moteur
il me met tjrs le probleme de subscript out of range pour la ligne
je n'ai pas modif le code juste remplace ce que tu m'avais dit cad le chemin voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 
'Target te donne l'adresse de la cellule selectionnée
If Target.Column <> 2 Then Exit Sub
NoMoteur = Target.Value
Chemin = "\\Ctdwks055\motor test data dump\"
NomComplet = Chemin & NomDuRépertoire(Chemin, CStr(NoMoteur)) & "\"
ChDir NomComplet 'Ex : "D:\Ctdwks055\motor test data dump\" & NomSousRep
dlgAnswer = Application.Dialogs(xlDialogOpen).Show
 
End Sub
 
 
Function NomDuRépertoire(Chemin, NoMoteur)
    ' Affiche les noms des sous-répertoires contenus dans ce répertoire
    NomRep = Dir(Chemin, vbDirectory)
    Do While NomRep <> ""
        If NomRep <> "." And NomRep <> ".." And NomRep <> "" Then
            ' vérifie que NomRep est un répertoire.
            If (GetAttr(Chemin & NomRep) And vbDirectory) = vbDirectory Then
                   TableauRep = Split(NomRep, " ")
                   MsgBox NomRep
                   If NoMoteur = TableauRep(1) Then ' <- NomDuRépertoire = NomRep
                         Exit Do
                   End If
            End If
        End If
        NomRep = Dir    ' Extrait l'entrée suivante.
    Loop
End Function

tous mes sous rep sont construits sur ce modele ID nummoteur descript a part quelques un juste des lettres comme encoder test que la commande a selectionne en fait; c'est peut etre pour cela que ca ne marche pas

merci a toi encore

13/12/2006, 10h05
ouskel'n'or
Ok, j'ignorais que tu avais d'autres sous-répertoires ne portant pas le N° de moteur.
Essaie de comprendre le test que j'ajoute et corrige cette ligne

Citation:

If (GetAttr(Chemin & NomRep) And vbDirectory) = vbDirectory Then

en ajoutant un test :
Code:

1 2 If (GetAttr(Chemin & NomRep) And vbDirectory) = vbDirectory _ and (Ucase(left(NomRep,3)) = "ID ") Then
Remarque que j'ai ajouté un espace après ID. Mets-le
13/12/2006, 10h09
alex_elder1_1

ca marche merci mais serait il possible d'ouvrir alors le dossier apres puisque ca m'ouvre l'explorateur windows steplait? cad de me mettre directement ds ce dossier la ? puisque l'explorateur s'ouvre directement est ce une commande possible?
est ce possible?
merci encore

Code:

Application.Dialogs(xlDialogOpen) = NomDuRépertoire

=>un truc du genre
je sais pas

Voir 40 message(s) de cette discussion en une page