Problème pour copier une feuille

**bentor22** · 30/04/2013, 11h12

Bonjour à tous,

j'ai écrit une macro pour créer un fichier avec 5 onglets et nommer les différents onglets.
voici ma macro:

Code :

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

1
2
3
4
5
6
7
8
9
If Workbooks(book1).Sheets("P1").Cells(ligne, 1).Value = 0 Then
For n = 1 To 5 - Worksheets.Count
    Sheets.Add after:=Worksheets(Worksheets.Count)
Next
    Worksheets(1).name = ("Achat")
 
    worksheets(2).name=("vente")
 
    worksheets(3).name=("avoir")

toutefois sur le worksheets crée, j aimerai copier une feuille d un fichier nomme str, feuille ("achat 1") et la coller sur le worksheets(1).

Code :

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

1
2
    'Workbooks(str).Sheets("achat 1").Copy
    'Worksheets(1).Sheets("achat").Paste

j ai essayé ca mais ca ne marche pas.

Sauriez vous comment remédier à cela?

bien cordialement,

**rvtoulon** · 30/04/2013, 11h40

Bonjour essai de voir comment tu peux adapter 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
Dim wk1 As Workbook, wk2 As Workbook
 
'classeur qui lance la macro et dans lequel je colle ma feuille
Set wk1 = ThisWorkbook
 
'classeur qui contient le feuille que je veux copier
Set wk2 = Workbooks("Test.xlsx")
 
'je copie ma feuille dans mon classeur avant la feuille 1
wk2.Sheets("Mafeuille").Copy Before:=wk1.Sheets(1)
 
'je copie toutes les cellules de ma feuille dans mon classeur
'wk2.Sheets("Mafeuille").Cells.Copy wk1.Sheets("Feuil1").Range("A1")

Attention cela nécessite que les deux classeurs soient ouvert.
Ici j'insére une copie de ma feuille dans mon classeur 1.
Avec l'autre ligne que j'ai mis en commentaire, je copie toutes les cellules de ma feuille dans mon autre feuille.

**PierG** · 30/04/2013, 11h41

Plutôt que de créer une feuille et de vouloir insérer du contenu, pourquoi ne pas copier ta feuille du document 'str' dans ton fichier et la renommer ?

Voici le code pour le copier :

Code :

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

Workbooks(File1).Sheets(XXX).Copy Before:=Workbooks(File2).Sheets(YYY)

**bentor22** · 30/04/2013, 11h42

merci pour ta réponse,

le problème est que le classeur ou je colle ma feuille est le classeur que je crée à partir de la macro.

du coup je ne sais pas comment le définir

**rvtoulon** · 30/04/2013, 11h47

peux tu mettre le code entier stp.

**bentor22** · 30/04/2013, 11h51

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub create_report(nom, str, Book1, resultat_p, resultat_o, resultat_i, resultat_a, ligne)
On Error Resume Next
Workbooks.Add
 
 
 If Workbooks(Book1).Sheets("P1").Cells(ligne, 1).Value = 0 Then
For n = 1 To 12 - Worksheets.Count
    Sheets.Add after:=Worksheets(Worksheets.Count)
Next
    Worksheets(1).name = ("Achat")
 
    'Workbooks(str).Sheets("Achat 1").Copy
    'Worksheets(1).Sheets("Achat").Paste

**rvtoulon** · 30/04/2013, 11h53

ou tu peux essayer ceci:
remplace:

Code :

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

1
2
'Workbooks(str).Sheets("achat 1").Copy
    'Worksheets(1).Sheets("achat").Paste

par:

Code :

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

Workbooks(Str).Sheets("achat 1").Cells.Copy ThisWorkbook.Sheets("achat").Range("A1")

cela implique que tu as défini ta variable str en string avec comme nom de fichier quelque chose comme "yyyy.xls" (ou une autre extension)

**bentor22** · 30/04/2013, 11h59

je ne vois pas quand vous avez collé dans le code

**SfJ5Rpw8** · 30/04/2013, 11h59

Bonjour,

je comprends pas l'utilité de ta boucle FOR ...

tiens pour créer une feuille "Achat" et y copier les données de la feuille "Achat 1" .. ( un seul classeur celui contenant ce code)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim shDest As Worksheet
    Dim shSource As Worksheet
 
   'Création nouvelle feuille
    Set shDest = ThisWorkbook.Sheets.Add
    shDest.Name = "Achat"
 
   'Définition de la feuille à copier (source)
    Set shSource = ThisWorkbook.Sheets("Achat 1")
 
   'Copie..
    shSource.Cells.Copy shDest.Cells

**rvtoulon** · 30/04/2013, 12h04

Workbooks(Str).Sheets("achat 1").Cells.Copy ThisWorkbook.Sheets("achat").Range("A1")

cette ligne indique que tu veux copier toutes les cellules de la feuille achat 1 du classeur str dans la feuille achat du classeur qui lance la macro.
ici pas besoin de paste.

toutefois je rejoins bbil je ne vois pas vraiment l'utilité de la boucle