J'ai dans ma col B plus de 2000 ref. (exemple : 1BUR24) est t'il possible de
créer un dossier par ref. dans ce chemin : c:\devis. Ce qui ferais 2000
dossiers dans le dossier devis (exemple final : c:\devis\1BUR24) Mais il y
aura bien d'autres ref qui seront créer dans l'avenir, est-t'il donc
possible d'automatiser la création des nouveaux dossiers par le biais des
nouvelles ref qui seront créer sans toucher à ceux déjà existant.
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour
l'instant et que soit en cliquant sur une des cases ou en tapant quelque
chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou
pourquoi pas, que ca ouvre le dossier correspondant en cliquant directement
sur une des ref. de la col B
Je ne sais même pas si ce que je vous demande est possible... Je suis sur
Office 2007.
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Pour ouvrir le répertoire, j'ai choisi la méthode "mettre un x" en C, cela afin d'éviter l'ouverture de la fenêtre lors d'un clic sur une cellule de cette colonne par erreur!
Ce serait bien si tu prenais le temps de définir ce que tu veux faire avec
précision.
Ceci te permettra d'ouvrir tous les fichiers Word
http://cjoint.com/?DImsXzehaxY
Dans la procédure "choisir le fichier", si tu préfères ouvrir n'importe quel
fichier,
tu modifies cette ligne de code :
Pour ouvrir le répertoire, j'ai choisi la méthode "mettre un x" en C, cela
afin d'éviter l'ouverture
de la fenêtre lors d'un clic sur une cellule de cette colonne par erreur!
Pour ouvrir le répertoire, j'ai choisi la méthode "mettre un x" en C, cela afin d'éviter l'ouverture de la fenêtre lors d'un clic sur une cellule de cette colonne par erreur!
MichD
M'enfin, ce fichier OUVRE le fichier retenu : http://cjoint.com/?DImtZY2KsXN
;-)
M'enfin, ce fichier OUVRE le fichier retenu :
http://cjoint.com/?DImtZY2KsXN
M'enfin, ce fichier OUVRE le fichier retenu : http://cjoint.com/?DImtZY2KsXN
;-)
Manu
bonjour,
Pour info, j'ai trouvé sur un autre forum :
Dans un module 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
Sur la Feuil adéquate Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C, V
If Not Intersect(Target, Range("B2:B4000")) Is Nothing Then ' la plage qui contient les essais Application.ScreenUpdating = False V = ActiveCell.Value If V <> "" Then ShellExecute 0, "explore", "C:Devis" & V, "", "", 10 End If End If End Sub
Encore merci à vous deux pour votre aide.
Manu
"Manu" a écrit dans le message de groupe de discussion : luv60q$7h0$
Super de faire un clic et que ca ouvre, mais idem, je ne peux pas ouvrir des fichiers Word ou PDF.... Ce n'est peut-être pas possible...
Merci
"Jacky" a écrit dans le message de groupe de discussion : luv4f8$3cq$
Re..
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le fichier à ouvrir
Après avoir placer les classeurs dans les dossiers spécifiques Ceci ouvre la boite de dialogue "Ouvrir" sur le nom du dossier sélectionné en colonne B2:Bx
'------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)) Is Nothing Then Application.Dialogs(xlDialogOpen).Show "C:Devis" & Target End If End Sub '------------- A placer dans le module de la feuille en question
-- Salutations JJ
"Manu" a écrit dans le message de news: luuusb$k33$
Et d'ailleurs, même si je tape une ref avec un espace, le dossier fabriqué prendra le nom jusqu'à l'espace et non la totalité.
Et pour revenir sur ce sujet :
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour l'instant et que soit en cliquant sur une des cases ou en tapant quelque chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou pourquoi pas, que ca ouvre le dossier correspondant en cliquant directement sur une des ref. de la col B
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le fichier à ouvrir. Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : luuuc2$in2$
Merci bcp, la procédure de Jacky est rapide fonctionne nickel, la tienne Mich. elle prend le nom de dossier jusqu'à ce qu'il trouve un espace, (exemple : si ma ref est AB CE14, le dossier s'appelera AB)
D'autre part Mich., lorsque j'ajoute une nouvelle ref en la tapant, le dossier se fabrique parfaitement, mais le soucis, c'est que mes ref sont des formules du style : =SI(A2="";"";GAUCHE(K2;5)&"-"&GAUCHE(R2;4)&"-"&SI(NBCAR(A2)=4;GAUCHE(S2;1)&"-"&A2;GAUCHE(A2;1)&STXT(A2;4;1)&"-"&A2)) formule que j'ai tiré jusqu'à 10000 cellules Donc, ma ref se crée dés que je tape un nouveau N° dans ma col A et à ce moment là, le dossier ne se crée pas. Il y a t'il une solution ?
En tout cas, merci bcp à vous deux.
Manu
"Jacky" a écrit dans le message de groupe de discussion : luup8n$5d8$
Bonjour,
Ceci crée autant de répertoire dans C:Devis qu'il y a de référence dans la colonne B Le répertoire "Devis" doit exister dans ce cas '----------- Sub jj() Dim repertoire As String, c As Range repertoire = "C:Devis" For Each c In Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) On Error Resume Next MkDir repertoire & c On Error GoTo 0 Next End Sub '---------------- Connaissant l'emplacement d'origine des classeurs on pourrait imaginer leurs déplacements.
-- Salutations JJ
"Manu" a écrit dans le message de news: luulvp$sn2$
Bonjour,
J'ai dans ma col B plus de 2000 ref. (exemple : 1BUR24) est t'il possible de créer un dossier par ref. dans ce chemin : c:devis. Ce qui ferais 2000 dossiers dans le dossier devis (exemple final : c:devis1BUR24) Mais il y aura bien d'autres ref qui seront créer dans l'avenir, est-t'il donc possible d'automatiser la création des nouveaux dossiers par le biais des nouvelles ref qui seront créer sans toucher à ceux déjà existant.
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour l'instant et que soit en cliquant sur une des cases ou en tapant quelque chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou pourquoi pas, que ca ouvre le dossier correspondant en cliquant directement sur une des ref. de la col B
Je ne sais même pas si ce que je vous demande est possible... Je suis sur Office 2007.
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
bonjour,
Pour info, j'ai trouvé sur un autre forum :
Dans un module
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
Sur la Feuil adéquate
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C, V
If Not Intersect(Target, Range("B2:B4000")) Is Nothing Then ' la plage qui
contient les essais
Application.ScreenUpdating = False
V = ActiveCell.Value
If V <> "" Then
ShellExecute 0, "explore", "C:Devis" & V, "", "", 10
End If
End If
End Sub
Encore merci à vous deux pour votre aide.
Manu
"Manu" a écrit dans le message de groupe de discussion :
luv60q$7h0$1@speranza.aioe.org...
Super de faire un clic et que ca ouvre, mais idem, je ne peux pas ouvrir des
fichiers Word ou PDF.... Ce n'est peut-être pas possible...
Merci
"Jacky" a écrit dans le message de groupe de discussion :
luv4f8$3cq$1@speranza.aioe.org...
Re..
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le
fichier à ouvrir
Après avoir placer les classeurs dans les dossiers spécifiques
Ceci ouvre la boite de dialogue "Ouvrir" sur le nom du dossier sélectionné
en colonne B2:Bx
'------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row))
Is Nothing Then
Application.Dialogs(xlDialogOpen).Show "C:Devis" & Target
End If
End Sub
'-------------
A placer dans le module de la feuille en question
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news:
luuusb$k33$1@speranza.aioe.org...
Et d'ailleurs, même si je tape une ref avec un espace, le dossier fabriqué
prendra le nom jusqu'à l'espace et non la totalité.
Et pour revenir sur ce sujet :
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour
l'instant et que soit en cliquant sur une des cases ou en tapant quelque
chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou
pourquoi pas, que ca ouvre le dossier correspondant en cliquant
directement sur une des ref. de la col B
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le
fichier à ouvrir. Merci
Manu
"Manu" a écrit dans le message de groupe de discussion :
luuuc2$in2$1@speranza.aioe.org...
Merci bcp, la procédure de Jacky est rapide fonctionne nickel, la tienne
Mich. elle prend le nom de dossier jusqu'à ce qu'il trouve un espace,
(exemple : si ma ref est AB CE14, le dossier s'appelera AB)
D'autre part Mich., lorsque j'ajoute une nouvelle ref en la tapant, le
dossier se fabrique parfaitement, mais le soucis, c'est que mes ref sont
des
formules du style :
=SI(A2="";"";GAUCHE(K2;5)&"-"&GAUCHE(R2;4)&"-"&SI(NBCAR(A2)=4;GAUCHE(S2;1)&"-"&A2;GAUCHE(A2;1)&STXT(A2;4;1)&"-"&A2))
formule que j'ai tiré jusqu'à 10000 cellules
Donc, ma ref se crée dés que je tape un nouveau N° dans ma col A et à ce
moment là, le dossier ne se crée pas. Il y a t'il une solution ?
En tout cas, merci bcp à vous deux.
Manu
"Jacky" a écrit dans le message de groupe de discussion :
luup8n$5d8$1@speranza.aioe.org...
Bonjour,
Ceci crée autant de répertoire dans C:Devis qu'il y a de référence dans
la
colonne B
Le répertoire "Devis" doit exister dans ce cas
'-----------
Sub jj()
Dim repertoire As String, c As Range
repertoire = "C:Devis"
For Each c In Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
On Error Resume Next
MkDir repertoire & c
On Error GoTo 0
Next
End Sub
'----------------
Connaissant l'emplacement d'origine des classeurs on pourrait imaginer
leurs
déplacements.
--
Salutations
JJ
"Manu" <manuinf60@gmail.com> a écrit dans le message de news:
luulvp$sn2$1@speranza.aioe.org...
Bonjour,
J'ai dans ma col B plus de 2000 ref. (exemple : 1BUR24) est t'il possible
de créer un dossier par ref. dans ce chemin : c:devis. Ce qui ferais
2000 dossiers dans le dossier devis (exemple final : c:devis1BUR24)
Mais il y aura bien d'autres ref qui seront créer dans l'avenir, est-t'il
donc possible d'automatiser la création des nouveaux dossiers par le
biais des nouvelles ref qui seront créer sans toucher à ceux déjà
existant.
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour
l'instant et que soit en cliquant sur une des cases ou en tapant quelque
chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou
pourquoi pas, que ca ouvre le dossier correspondant en cliquant
directement sur une des ref. de la col B
Je ne sais même pas si ce que je vous demande est possible... Je suis sur
Office 2007.
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Dans un module 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
Sur la Feuil adéquate Sub Worksheet_SelectionChange(ByVal Target As Range) Dim C, V
If Not Intersect(Target, Range("B2:B4000")) Is Nothing Then ' la plage qui contient les essais Application.ScreenUpdating = False V = ActiveCell.Value If V <> "" Then ShellExecute 0, "explore", "C:Devis" & V, "", "", 10 End If End If End Sub
Encore merci à vous deux pour votre aide.
Manu
"Manu" a écrit dans le message de groupe de discussion : luv60q$7h0$
Super de faire un clic et que ca ouvre, mais idem, je ne peux pas ouvrir des fichiers Word ou PDF.... Ce n'est peut-être pas possible...
Merci
"Jacky" a écrit dans le message de groupe de discussion : luv4f8$3cq$
Re..
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le fichier à ouvrir
Après avoir placer les classeurs dans les dossiers spécifiques Ceci ouvre la boite de dialogue "Ouvrir" sur le nom du dossier sélectionné en colonne B2:Bx
'------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)) Is Nothing Then Application.Dialogs(xlDialogOpen).Show "C:Devis" & Target End If End Sub '------------- A placer dans le module de la feuille en question
-- Salutations JJ
"Manu" a écrit dans le message de news: luuusb$k33$
Et d'ailleurs, même si je tape une ref avec un espace, le dossier fabriqué prendra le nom jusqu'à l'espace et non la totalité.
Et pour revenir sur ce sujet :
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour l'instant et que soit en cliquant sur une des cases ou en tapant quelque chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou pourquoi pas, que ca ouvre le dossier correspondant en cliquant directement sur une des ref. de la col B
Je ne souhaite ouvrir que le dossier, c'est moi qui choisirais ensuite le fichier à ouvrir. Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : luuuc2$in2$
Merci bcp, la procédure de Jacky est rapide fonctionne nickel, la tienne Mich. elle prend le nom de dossier jusqu'à ce qu'il trouve un espace, (exemple : si ma ref est AB CE14, le dossier s'appelera AB)
D'autre part Mich., lorsque j'ajoute une nouvelle ref en la tapant, le dossier se fabrique parfaitement, mais le soucis, c'est que mes ref sont des formules du style : =SI(A2="";"";GAUCHE(K2;5)&"-"&GAUCHE(R2;4)&"-"&SI(NBCAR(A2)=4;GAUCHE(S2;1)&"-"&A2;GAUCHE(A2;1)&STXT(A2;4;1)&"-"&A2)) formule que j'ai tiré jusqu'à 10000 cellules Donc, ma ref se crée dés que je tape un nouveau N° dans ma col A et à ce moment là, le dossier ne se crée pas. Il y a t'il une solution ?
En tout cas, merci bcp à vous deux.
Manu
"Jacky" a écrit dans le message de groupe de discussion : luup8n$5d8$
Bonjour,
Ceci crée autant de répertoire dans C:Devis qu'il y a de référence dans la colonne B Le répertoire "Devis" doit exister dans ce cas '----------- Sub jj() Dim repertoire As String, c As Range repertoire = "C:Devis" For Each c In Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) On Error Resume Next MkDir repertoire & c On Error GoTo 0 Next End Sub '---------------- Connaissant l'emplacement d'origine des classeurs on pourrait imaginer leurs déplacements.
-- Salutations JJ
"Manu" a écrit dans le message de news: luulvp$sn2$
Bonjour,
J'ai dans ma col B plus de 2000 ref. (exemple : 1BUR24) est t'il possible de créer un dossier par ref. dans ce chemin : c:devis. Ce qui ferais 2000 dossiers dans le dossier devis (exemple final : c:devis1BUR24) Mais il y aura bien d'autres ref qui seront créer dans l'avenir, est-t'il donc possible d'automatiser la création des nouveaux dossiers par le biais des nouvelles ref qui seront créer sans toucher à ceux déjà existant.
Et pour conclure, je souhaiterais que dans ma col C qui est vide pour l'instant et que soit en cliquant sur une des cases ou en tapant quelque chose, que ca ouvre le dossier de la Ref. qui se trouve à sa gauche. ou pourquoi pas, que ca ouvre le dossier correspondant en cliquant directement sur une des ref. de la col B
Je ne sais même pas si ce que je vous demande est possible... Je suis sur Office 2007.
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
MichD
Tu avais tout ça et plus : http://cjoint.com/?DIpqvy5TgwZ
Tu avais tout ça et plus : http://cjoint.com/?DIpqvy5TgwZ
