Discussion :

[Genesis24]

Bonjour,
Voilà je dois créer un fichier Excel qui en fonction des cases cochées ajoutera une feuille avec la description de cette case:
Exemple: case à cocher 1 = compta, créer une feuille appelée compta qui contient la description de ce qu'est la compta.
Pas de souci pour la case à cocher qui ajoute une feuille . Mais pour le reste, je sèche un peu surtout sur comment faire pour que la description de la compta (contenu dans un autre classeur) apparaisse.
Merci de vos réponses.
Bonne journée

[Marc-L]

Bonjour,

en utilisant le Générateur de macros et en effectuant manuellement un Copier / Coller avec liaison
entre les classeurs par exemple, un code est livré sur un plateau !

Sinon cela exige une présentation claire et exhaustive …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Genesis24]

Bonjour,
Je ne suis pas sûre de saisir ce que tu expliques.
Je pars de ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Caseàcocher1()
'
' ajoutfeuille Macro
'
'
Dim NomFeuil As String, NexistePas As Boolean, Caractere As String
NomFeuil = Sheets("Feuil1").Range("B1")
If [Case à cocher 1].Value = 1 Then
    Sheets("Feuil2").Select
    Sheets.Add
    ActiveSheet.Name = NomFeuil
End If
End Sub

Il faut donc que j'ajoute un copier coller de ce que je veux avoir à ce code? Mais comment?
Merci

[Genesis24]

Re,
J'ajoute des éléments à ma demande pour que ce soit plus clair.
Donc je clic sur une case à cocher dans un premier classeur qui va me chercher une feuille Excel dans un autre classeur (qui est fermé), elle la copie sur le premier classeur en Feuille 2 tout en la renommant.
J'ai utilisé ce code après quelques recherches mais je ne suis pas sûre de moi: Pouvez-vous me le valider?

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
Sub CàC1()
'
' CàC1 Macro
'
Dim NomFeuil As String, NexistePas As Boolean, Caractere As String
NomFeuil = Sheets("Feuil1").Range("B1")
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
 
'classeur A qui contient la macro
Set wkA = ThisWorkbook
 
'chemin ou se trouve le fichier B
chemin = "\\gcl.adds\users$\_Bureaux\gcladmin\Bureau\"
 
'nom du fichier B
fichier = "Données.xlsx"
 
'ouvre le fichier B
Workbooks.Open chemin & fichier
 
'met en variable le classeur B
Set wkB = ActiveWorkbook
If [Case à cocher 1].Value = 1 Then
wkB.Sheets("Compta").Copy After:=wkA.Sheets(1)
 
MsgBox ("La feuille est maintenant copiée") 'message pour dire que la feuille est copiée.
 
wkB.Close True 'ferme et enregistre le classeur B
End If
 
End Sub

Merci encore