Discussion :

[Grégory76570]

Bonjour, pour mon travail je me suis fait un tableau pour gérer des bons de commandes, à chaque bon je doit créer un nouveau dossier à un endroit précis avec le nom du BT puis que je créer un lien hypertexte et après je glisse mes docs PDF dedans.

Je me suis lancé dans une macro en piquant un peu à droite et à gauche qui à pour but que lorsque je rentre le numéro de bon dans la colonne A et que je clique sur un bouton lié à cette macro cela me créer un dossier avec le nom du BT et me créé un lien hypertexte dans le dossier qu'elle vient de créer. Mais malheureusement cela ne fonctionne pas, la seule chose que j'ai réussi, c'est de créer un dossier avec le nom et un lien hypertexte dans le dossier parent ou est créé le dossier.

Auriez-vous une idée?

Ma macro:

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
Sub creation_dossierEN()
Dim x As String, strPath As String
For Each cell In Selection
Rep = cell.Value
On Error Resume Next
strPath = "Y:\Bureautique\Groupement Eure Habitat\Evreux Nord\" & Rep
x = GetAttr(strPath) And 0
If Err <> 0 Then
MkDir strPath
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Y:\Bureautique\Groupement Eure Habitat\Evreux Nord\"
End If
Next cell
On Error GoTo 0
End Sub

Merci d'avance pour vos retours!

Cordialement,

Grégory

[anasecu]

Bonjour,

à chaque bon je doit créer un nouveau dossier à un endroit précis avec le nom du BT puis que je créer un lien hypertexte

Je te propose de modifier ainsi ta macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub creation_dossierEN()
Dim cell As Range, rep As String, strPath As String
For Each cell In Selection
    rep = "Y:\Bureautique\Groupement Eure Habitat\Evreux Nord\" & cell.Value
    strPath = Dir(rep, vbDirectory)
    If strPath = "" Then
        MkDir rep
        ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=rep
    End If
Next cell
End Sub

Si tu dois le faire à chaque modification de la colonne A ce serais plus judicieux de mettre cette macro dans ta feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(Range("A:A"), sel) Is Nothing Then
    Dim rep As String, strPath As String
    rep = "Y:\Bureautique\Groupement Eure Habitat\Evreux Nord\" & sel.Value
    strPath = Dir(rep, vbDirectory)
    If strPath = "" Then
        MkDir rep
        ActiveSheet.Hyperlinks.Add Anchor:=sel, Address:=rep
    End If
End If
End Sub

[Grégory76570]

Bonjour, c'est exactement ce que je recherchais à faire!!! Pour l'intégré à la feuille je sais pas trop, car là dans l'exemple EN représente une agence, il y a aussi BE,ES,GA... donc à créer dans différent dossier d'où les boutons. Sinon il faudrait intégrer que si EN est tapé dans la cellule direction tel dossier, et si BE dans tel dossier... Pas facile, même impossible pour moi!!!

Encore merci!!

[anasecu]

Bonjour,

là dans l'exemple EN représente une agence, il y a aussi BE,ES,GA... donc à créer dans différent dossier d'où les boutons. Sinon il faudrait intégrer que si EN est tapé dans la cellule direction tel dossier, et si BE dans tel dossier...

Ce doit être tout à fait possible mais où as-tu vu "dans l'exemple EN" ?