[XL-2003] Reprendre valeur cible dans USF [Résolu]

[8e8eClo]

Bonjour,

Soit un fichier excel.
Quand je double clique sur une cellule compris dans une plage définie, une macro se lance et demande confirmation pour la création d'un dossier.
Si oui, affichage d'un USF.
On choisit parmi trois solutions possible.
Quelque soit la réponse, un dossier est crée.

Problème : j'aimerais que le dossier ait le même nom que la cellule double cliquée.

J'ai essayé avec Target.value mais j'ai un message d'erreur "objet manquant".

Comment faire ?

Merci

[jfontaine]

Bonjour,

sans le code c'est difficile de répondre.

[8e8eClo]

Oups

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim Plage As Range
Dim wbModele As Workbook
 
Set Plage = Intersect(Target, Range("E11:E110"))
 
If Plage Is Nothing Then Exit Sub
 
If MsgBox("Etes-vous certain de vouloir créer un nouveau dossier  ?", vbYesNo + vbQuestion _
, "Demande de confirmation") = _
vbYes Then
 
Userform3.show

Code dans le USF 3 (vous moquez pas j'ai essayé ) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim fso
Dim sfol As String, dfol As String
Dim Plage As Range
 
Set Plage = Intersect(Target, Range("E11:E110"))
 
sfol = "S:\Inférieur_4000" 
dfol = "S:\Contrat\" & Target.Value
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder sfol, dfol
 
Unload Me
End Sub

[jfontaine]

une macro se lance et demande confirmation pour la création d'un dossier

et après dans le code

Code :

fso.CopyFolder sfol, dfol

Il faut créer un dossier ou faire une copie d'une dossier ?

[8e8eClo]

Désolé pour l’ambiguïté.
Il faut copier un dossier.

[jfontaine]

dans ce cas, le problème provient probablement de la déclaration de ta variable fso

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim fso AS object
Dim sfol As String, dfol As String
Dim Plage As Range
 
Set Plage = Intersect(Target, Range("E11:E110"))
 
sfol = "S:\Inférieur_4000" 
dfol = "S:\Contrat\" & Target.Value
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder sfol, dfol
 
Unload Me
End Sub

[8e8eClo]

Non toujours pas.

Le débogage indique l'erreur à ce niveau :

Code :

Set Plage = Intersect(Target, Range("E11:E110"))

"erreur d'exécution 424. Objet requis".

[jfontaine]

Dans le commandbuton tu n'as pas de variable target. (Du moins la porté de cette variable reste au niveau du Worksheet_BeforeDoubleClick)

[8e8eClo]

oui c'est bien ça le problème.

On ne peut pas faire le lien entre le beforedoubleclick et le USF ?

[Ormonth]

Bonjour,

Si tu double-cliques, tu sélectionnes, si tu sélectionnes :

Code :

MsgBox Selection.value 'qui est la target...

cordialement,

Didier

[8e8eClo]

Pas tout compris (désolé je ne maîtrise pas plus que ça).

[jfontaine]

Voici ce que te propose Ormonth

Code :

Set Plage = Intersect(Selection, Range("E11:E110"))

Tu pourrais aussi utiliser ActiveCell

[8e8eClo]

Ok.
Bon j'ai essayé et apparemment ça fonctionne bien.

Dans le beforedoubleclick j'ai mis comme indiqué :

Code :

Set Plage = Intersect(Selection, Range("E11:E110"))

Et dans le USF :

Code :

dfol = "s:\Contrat\" & Selection.Value

Merci !

[Ormonth]

Bonjour,

Quand tu doubles clic sur ta cellule, tu la sélectionnes (on ne rentre pas dans le fait que l'USF pourrait-être non modal etc...), donc quand tu as ton USF actif et que tu choisis une option, tu n'as pas besoin de chercher à te référer au Target de l'évènementiel vu qu'il suffit de te référer à la cellule sélectionnée ou active ce qui dans ce cas identique vu que target ne se réfère qu'à une cellule "Cellule la plus proche du pointeur de la souris lorsque le double-clic se produit.".
Dans ton cas c'est donc forcément la cellule double cliquée.

Par là même elle est sélectionnée et tu peux donc y référer directement avec la propriété Selection (cf aide VBA).

Ton target ne te sert qu"à t'assurer que tu es dans la plage désirée, ce n'est pas la peine de sa casser la tête au-delà..

cordialement,

Didier