Discussion :

[youyououj]

Bonjour,
Je sollicite votre aide pour un programme VBA pour copier et coller avec mise en forme. ce programme doit être ajouté au code vba suivant :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Option Explicit
 
Dim tablo, dico, i, j, k, t, ln, v(), fdep, f
 
Sub CréerLesDossiers()
 
tablo = Range(Cells(1, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column))
Set dico = CreateObject("Scripting.Dictionary")
 
Set fdep = ActiveSheet
Sheets.Add
Set f = ActiveSheet
fdep.Select
 
For i = 2 To UBound(tablo, 1)
dico(tablo(i, 1)) = ""
Next i
 
k = dico.keys
For i = 0 To dico.Count - 1
'MsgBox k(i)
ln = 0
For t = 2 To UBound(tablo, 1)
If k(i) = tablo(t, 1) Then
ReDim Preserve v(UBound(tablo, 2), ln + 1)
For j = 1 To UBound(tablo, 2)
v(j - 1, ln) = tablo(t, j)
Next j
ln = ln + 1
End If
Next t
 
f.Cells.Clear
Rows("1:1").Copy f.Range("A1")
f.Range("A2").Resize(UBound(v, 2), UBound(v, 1)) = Application.Transpose(v)
 
f.Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & " " & k(i)
.Close
End With
Next i
 
'f.Cells.Clear
f.Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
MsgBox "Travail terminé."
End Sub
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
Sheets("Feuil7").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Le code en dessus a pour but de créer des classeurs a partir de cellule A1, A2,A3.... pour moi j'ai besoin que chaque classeur créer a le contenu de classeur ci joint avec la même mise en forme. Merci en avance.

[clementmarcotte]

https://msdn.microsoft.com/fr-fr/vba...l-method-excel

https://msdn.microsoft.com/fr-fr/vba...meration-excel

https://msdn.microsoft.com/fr-fr/vba...meration-excel

https://msdn.microsoft.com/fr-fr/vba...s-object-excel

https://msdn.microsoft.com/fr-fr/VBA...y-method-excel

https://msdn.microsoft.com/fr-fr/vba...s-object-excel

https://msdn.microsoft.com/fr-fr/vba...s-method-excel

https://msdn.microsoft.com/fr-fr/vba...s-method-excel


Balisage du code


Fichiers-joints

Tu peux faire un classeur-modèle avec ton classeur actuel. Et personne ne le fera à ta place.

Tu peux faire une copie de ton classeur et travailler dessus. Et personne ne le fera à ta place.

Tu peux travailler directement sur ton classeur et l'enregistrer sous un autre nom. Ensuite tu fermes sans enregistrer. Et personne ne le fera à ta place.

Le forum n'est pas un service de production de code gratuit.

[Menhir]

Le code en dessus a pour but de créer des classeurs a partir de cellule A1, A2,A3.... pour moi j'ai besoin que chaque classeur créer a le contenu de classeur ci joint avec la même mise en forme. Merci en avance.

Il est plus simple de copier tout le classeur que de copier son contenu.
Ou, plus précisément, d'ouvrir le classeur modèle et de l'enregistrer sous un autre nom avec un SaveAs.