Discussion :

[8e8eClo]

Bonjour,


Grâce à l'aide de JoeJoeH dans un de mes fils précédents, j'ai abouti à ce code qui répond parfaitement à mes attentes :

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
 
Sub CréationDossier()
 
'***COPIER CELLULE DU DOCUMENT ACTIF VERS DOCUMENT MODELE***
   Range("A12").Copy
   Workbooks.Open Filename:= _
   "C:\Documents and Settings\Pierre\Fiche marché_.xls"
   Range("A1").Select
   ActiveSheet.Paste
 
'***CREATION DES DOSSIERS***
   MkDir "P:\2069" & Range("A1").Value
   MkDir "P:\2069" & Range("A1").Value & "\aPréparation"
   MkDir "P:\2069" & Range("A1").Value & "\bPublication"
   MkDir "P:\2069" & Range("A1").Value & "\dAnalyse"
 
'***ENREGISTREMENT AVEC VALEUR CELLULE DANS NOUVEAU DOSSIER***
   ActiveWorkbook.SaveAs Filename:= _
   "P:\2069" & Range("A1").Value & "\Fiche marché_" & Range("A1").Value
   ActiveWindow.Close
 
End Sub

Cette macro se met en marche quand on clique sur A12.

Je souhaiterais améliorer ce code de la manière suivante : quand on clique sur A13 c'est A13 qui est copié, quand on clique sur A14 c'est A14 qui est copié, ... Le reste du code ne change pas.

Je pense qu'il faut utiliser SelectionChange mais je ne vois pas comment agencer le tout.

Merci.

PS : je n'ai pas continué sur l'ancien fil car le problème est différent.

[Daranc]

je te conseille plutôt BeforeDoubleClick
pour lancer ta macro
et remplacer le range("A12") par activecell
bon j'ai pas testé mais ça me parait plus à même de répondre à une manipulation sur une feuille : avec le change tu lancerais ta macro dès que tu cliques ( et tu copy au clic y compris le clic malheureux)

[8e8eClo]

Bonjour,


Bon j'ai regardé un peu ce que je pouvais faire.
Voilà le code qui fonctionne mais qui ne fait pas ce que je veux :

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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
 
'***COPIER CELLULE DU DOCUMENT ACTIF VERS DOCUMENT MODELE***
   ActiveCell.Copy
   Workbooks.Open Filename:= _
   "C:\Documents and Settings\Pierre\Fiche marché_.xls"
   Range("A1").Value = ActiveCell.Value
 
 
'***CREATION DES DOSSIERS***
   MkDir "P:\2069" & Range("A1").Value
   MkDir "P:\2069" & Range("A1").Value & "\aPréparation"
   MkDir "P:\2069" & Range("A1").Value & "\bPublication"
   MkDir "P:\2069" & Range("A1").Value & "\dAnalyse"
 
'***ENREGISTREMENT AVEC VALEUR CELLULE DANS NOUVEAU DOSSIER***
   ActiveWorkbook.SaveAs Filename:= _
   "P:\2069" & Range("A1").Value & "\Fiche marché_" & Range("A1").Value
   ActiveWindow.Close
 
End Sub

Le code ouvre bien le fichier, créé les dossiers, fait une copie de "Fiche marché_" mais ne copie pas la valeur de la cellule où j'ai double cliqué...


PS : comme vous le constaterez je ne brille pas en vba

[SfJ5Rpw8]

Bonjour,

il faut toujours éviter d'utiliser les ActiveCell, ActiveWorkBook, Select, Range non-préfixé du nom de la feuille....
qui ne font qu’alourdir le code et cause des "bugs"...


Pour agir sur la cellule cliqué tu as l'objet "Target" en paramètre de ta fonction événementielle

Pour ouvrir un classeur utilise une variable Workbook qui te permet ensuite d'agir sur ce classeur..

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim wbModele As  as WorkBook
 
set wbModele =Workbooks.Open ( Filename:=  "C:\Documents and Settings\Pierre\Fiche marché_.xls" )
 
(...)
wbModele.SaveAs Filename:= _
   "P:\2069" & Target.Value & "\Fiche marché_" & Target.Value
   wbModele.Close

pour copier ta valeur précise la feuille de destination (je suppose que c'est la 1° du classeur) :

Code :

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

 wbModele.sheets(1).Range("A1").Value = Target.Value

[Daranc]

je voyais plus un truc du genre

Code :

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

1
2
3
dim valeur
valeur= activecell.value
range("a1").value=valeur

[casanabo]

Bonjour,

ça ne marche pas en utilisant "Target" à la place de "Activecell"?

edit : erf trop lent

[Daranc]

curieux que le "target" ne fonctionne pas , c'est nettement plus pur comme codage

[Philippe Tulliez]

Bonjour,
Je ne comprends pas non plus que le Target ne fonctionne pas
Si je reprends ton code

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'***COPIER CELLULE DU DOCUMENT ACTIF VERS DOCUMENT MODELE***
   ActiveCell.Copy 
   Workbooks.Open Filename:= _
   "C:\Documents and Settings\Pierre\Fiche marché_.xls"
   Range("A1").Value = ActiveCell.Value

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'***COPIER CELLULE DU DOCUMENT ACTIF VERS DOCUMENT MODELE***
   Workbooks.Open Filename:= _
   "C:\Documents and Settings\Pierre\Fiche marché_.xls"
   Application.ActiveWorkbook.ActiveSheet.Range("A1") = Target.Value

Copiera la valeur de la cellule où l'on a cliqué vers la cellule A1 du classeur que l'on vient d'ouvrir et sur la feuille qui sera active au moment de son ouverture.
Je me rallie tout à fait à la remarque de BBIL. Il faut préciser le nom du classeur, le nom de la feuille etc... Cela évite bien des surprises.