Discussion :

[supercopain]

Bonjour,
je débute dans les macros (office 2003)et je souhaiterai en créer une qui ouvre des dossiers (le nom de ce dossier se trouve dans une liste ".xls".

1 - j'ai une liste de numéro qui regroupe des "numéros d'essais" sur une feuille .xls
exemple:
E1001
E1002
E1003
E1004
E.... .

2 - Donc, lorsque je sélectionne la cellule de mon tableau (.xls) qui contient le "E1002"

3 - ensuite à l'aide d'un bouton (qui se trouve dans ma feuille .xls) j'active une macro qui ouvre CE dossier "E1002"
(il faut prendre en compte uniquement les 5 premiers caractères E1002)

MERCI POUR VOTRE AIDE

[rjamin]

Bonjour,

Ce que vous appelez Dossier consiste en quoi?
Un fichier .xls ou .doc ou ?
Ou alors un dossier qui contient des fichiers?
Il me semble qu'un peu plus d'explications est nécessaire.

[supercopain]

Bonjour,
Il s'agit bien d'un dossier qui contient des fichiers qui peuvent être des .xls .doc .jpg

Explications:
Je m'occupe de gérer des essais réalisés sur différente machine, a chaque essai un fichier .pdf est crééé (description de l'essai) ce fichier est nommé : "E1002, ordre d'essai" ce fichier est enregistré dans un dossier nommé : "Ordres d'essais"

Ensuite je créer un dossier nommé "E1002, mesure température"
Ce dossier contiendra tous les documents nécessaire à la réalisation de l'essai. (.xls, .doc, .jpg, ....)
Depuis un tableau récapitulatif des numéros d'ordres d'essais (.xls)
Je souhaite ouvrir le dossier qui correspond au numéro d'essai selectionné dans ma liste afin de consulter les différents fichiers qu'il contient.

Merci beaucoup!

Bonjour,
pas facile à expliquer mais peut-être avec un autre exemple:
Dans mon classeur .xls (liste des essais) je selectionne le numéro (exemple :E1002) et j'active ma macro ci-dessous celle-ci m'ouvre le fichier .pdf
(E1002, ordre d'essai)
********************************************************
Que faut-il modifier (si c'est possible) dans cette macro afin qu'elle m'ouvre le DOSSIER ou sont classé les résultats???

********************************************************

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub PDF_Ordres()
Dim NomFichier
Dim tempo
Dim cel
'les lignes ci-dessous devront être présente en entête du module
'Option Explicit
'Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
'(ByVal hwnd As Long, ByVal lpOperation As String, _
'ByVal lpFile As String, ByVal lpParameters As String, _
'ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'tempo = ActiveCell.Value
tempo = Left(ActiveCell.Value, 10)
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ".pdf"
'NomFichier = "g:\DOCU\R&D\Ordres d'essais" + ActiveCell.Value + ".pdf"
'NomFichier1 = "g:\DOCU\Lignes Produit\Dossiers Personnels\Philippe M\Normalisation\NORMES\Normes-pdf\" + ActiveCell.Value + ".pdf"
' ActiveWorkbook.FullName
 
If Dir(NomFichier) <> "" Then
ShellExecute 0, "open", NomFichier, "", "", 0
Else
If Dir(NomFichier) = "" Then
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ".pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + ", ordre d'essai.pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + tempo + "e.pdf"
ShellExecute 0, "open", NomFichier, "", "", 0
Else
MsgBox "Chemin ou fichier introuvable."
End If
End If
 
NomFichier = "g:\DOCU\R&D\Ordres d'essais\" + ActiveCell.Value + ".pdf"
If Dir(NomFichier) <> "" Then
ShellExecute 0, "open", NomFichier, "", "", 0
Else
 
End If
 
End Sub

********************************************************
Merci et bonne journée à tous

[D-D-Du-06]

Bonjour,

en attendant mieux...

1) dans une cellule (par exemple A1), tu mets une formule pour concaténer [=CONCATENER(A2;A3)] afin de reconstituer l'adresse du dossier.
Avec:
par exemple en A2 tu mets ce morceaux d'adresse [g:\DOCU\R&D\Ordres d'essais\ ] (extrait de ta formule);
en A3, la cellule active de ta liste déroulante.

2) ensuite essaies le code ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub OuvreDossier2()
Shell ("explorer.exe " & ActiveSheet.Cells(1, 1) & TextBox2), 1
End Sub

Il pointe sur la cellule A1.

A+
D D du 06

[supercopain]

Bonjour,

merci beaucoup pour votre aide, mais sa ne marche pas il me renvoie : "erreur d'execution '53'
fichier introuvable"

Dans le code que j'ai posté un plus haut, il n'y a pas de modification possible, pour ouvrir un dossier à la place du fichier ".pdf" ?

j'ai copié ce code je ne l'ai pas écrit (je débute dans le monde du VB..)

Il ne faut pas perdre votre temps avec mes questions, si c'est pas possible, c'est pas possible..

Bonne journée à vous tous.

[D-D-Du-06]

Bonjour,

petite erreur de ma part.

Pour que le bout de code fonctionne, il faut ajouter le code suivant:
______________________________________________

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
     lParam As Long
    iImage As Long
End Type

________________________________

Ensuite bien sûr tu mets à jour les différentes adresses des cellules visées par le code:
----------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub OuvreDossier2()
Shell ("explorer.exe " & ActiveSheet.Cells(1, 1) & TextBox2), 1
End Sub

-------------------------------
ActiveSheet.Cells(1, 1) = la cellule A1

C'est la cellule dans laquelle l'adresse sera reconstituée par concanétation (?!) [=CONCATENER(A2;A3)]

-- de la partie stable -- A2 [g:\DOCU\R&D\Ordres d'essais\
-- et de la partie variable (le filtre de la liste) A3...

Voilà
Ca fonctionne chez moi...
A+
D D Du 06

[supercopain]

Super ça marche!
Merci beaucoup D-D-Du-06 pour ton aide, je te souhaite une bonne journée!
et merci a tous encore une fois
A bientôt...

[supercopain]

Heuu... rebonjour,

Encore juste une petite modification si c'est possible,
Lors de la recherche et de l'ouverture du dossier il faut tenir compte uniquement des 6 premiers caracatéres [exemple: E 1002, blabla] le reste du nom est variable.

une ligne à ajouter ? -> [tempo = Left(ActiveCell.Value, 6)] si c'est ça je doit l'ajouter ou?

Merci A+

[supercopain]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
33
34
35
36
37
Option Explicit  
Public V As String  
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _  
(ByVal hwnd As Long, ByVal lpOperation As String, _  
ByVal lpFile As String, ByVal lpParameters As String, _  
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long  
 
 
Sub OuvreDossier()  
 
Dim Target As Range  
 
Dim i As Integer  
 
V = ""  
Dim chainePath As String  
 
Set Target = ActiveCell  
chainePath = "G:\Docu\R&D\Rapports d'essais"  
'chainePath = "C:\Data"    
 
If Not Intersect(Target, Range("A2:A20")) Is Nothing Then  ' la plage qui contient les essais  
    Application.ScreenUpdating = False  
 
    V = Left(Replace(ActiveCell.Value, "E", "E ", 1), 6)  
 
    Call AfficherListeDossiers(chainePath, CreateObject("scripting.filesystemobject"), V)  
 
 
    If V <> "" Then  
 
        ShellExecute 0, "explore", V, "", "", 10  
    End If  
End If  
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Sub AfficherListeDossiers(ByVal specdossier As String, ByRef Fso, ByVal leChemin)  
'  
' il faut déclarer i en global  
'  
    Dim dossier, fd, sDossier  ' variable de type variant  
   ' Set Fso = CreateObject("Scripting.FileSystemObject") ' créé un objet fileSystem  
    Set dossier = Fso.GetFolder(specdossier)             ' dossier : héritage de fso  
    Set sDossier = dossier.SubFolders                    'sDossier : héritage de dossier  
 
 
    For Each fd In sDossier                 ' Scanne la collection sDossier  
 
        If InStr(1, fd.Name, V) > 0 Then  
            V = fd            
           Exit For  
        End If  
 
    Next  
   Set sDossier = Nothing  
   Set dossier = Nothing  
 
 
End Sub

Merci!