[VBA][Excel]Copier coller de feuilles d'un classeur à un autre classeur

**sadhya** · 30/04/2013, 15h23

Salut j'ai regardé un peu dans le forum mais les solutions que j'ai trouvé ne fonctionne pas . Voici ma problématique :

-Je veux copier la Feuil1 du Classeur PMI.xlsm dans la Feuil2 du Classeur RETARDPMI.xlsm
-Puis je veux copier la Feuil1 du Classeur INTERVENTIONREALISEE.xlsm dans la Feuil3 du Classeur RETARDPMI.xlsm

J'ai essayé ce code mais il recréé à chaque fois un nouveau classeur

Code :

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

1
2
3
4
5
Sheets(Feuil1").cells.copy Sheets("Feuil2").Range("A1")
Sheets("Feuil2").copy
Chemin = C:\BILAN TRIMESTRIEL\
ClasseurCible = "RETARDPMI.xls" 'Là je ne peux pas mettre .xlsm je peux que créer un fichier ne prenant pas en charge les macros alors que j'ai besoin d'un fichier prenant en charge les macros 
ActiveWorkbook.SaveAs chemin & ClasseurCible

Puis ce code que j'ai trouvé sur le forum mais ça me dit que l'indice n'appartient pas à la sélection erreur 9

Code :

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

Workbooks("PMI.xlsm").Sheets(Feuil1).Cells.Copy Workbooks("RETARDPMI.xlsm").Sheets(Feuil2).Range("A1")

**SfJ5Rpw8** · 30/04/2013, 15h28

Bonjour,

tu n'as pas précisé ou tu écrivais ton code ? dans quel classeur ?

et quel était l'état de tes classeurs au moment de l'exécution du codes , sont-t'ils tous ouvert dans la même application excel ?

**sadhya** · 30/04/2013, 15h57

Bonjour bbil,

Pour copier la Feuil1 du Classeur PMI.xlsm dans la Feuil2 du Classeur RETARDPMI.xlsm :

J'écris le code dans le Classeur PMI.xlsm et le Classeur RETARDPMI.xlsm est fermé

Pour copier la Feuil1 du Classeur INTERVENTIONREALISEE.xlsm dans la Feuil3 du Classeur RETARDPMI.xlsm :

J'écris le code dans le Classeur INTERVENTIONREALISEE.xlsm et le Classeur RETARDPMI.xlsm est fermé

**SfJ5Rpw8** · 30/04/2013, 16h05

et bien avant de copier des données dans un classeur commence par l'ouvrir...

Comment ouvrir un classeur ?

ou mieux :

Comment travailler sur deux classeurs ?

**sadhya** · 30/04/2013, 16h33

J'ouvre le classeur qui est fermé

Code :

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

Application.Workbooks.Open "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"

Et ensuite j'ai essayé ça bien sur ça ne fonctionne pas :

Code :

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

Workbooks("PMI.xlsm").Sheets(Feuil1).Cells.Copy Workbooks("RETARDPMI.xlsm").Sheets(Feuil2).Range("A1")

Après avoir effectué cette action j'aurais souhaité enregistrer et fermer le classeur que j'ai ouvert ceci va fonctionner ?

Code :

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

1
2
Application.Workbooks.Save "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"
Application.Workbooks.Close "C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm"

**SfJ5Rpw8** · 30/04/2013, 17h06

il manque des guillemets dans ton code de copie...

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim wkDest as workbook ' Classeur destinataire
 
set wkDest = Application.Workbooks.Open ("C:\BILAN TRIMESTRIEL\RETARDPMI.xlsm") 
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkBook.Sheets("Feuil1").Cells.Copy wkDest.Sheets("Feuil2").Range("A1")
 
wkDest.Close true 'Ferme en sauvant.

**sadhya** · 30/04/2013, 17h56

Salut Bbil ,
quand j'exécute la macro sa plante Excel voilà ce que je lance ton code est à partir de la ligne 69

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Sub PMI()
'##############Définition des colonnes en format dates#####################
Dim i As Long
Dim stock As Date
fin = Range("A3").End(xlDown).Row
 
'##############Définition des colonnes en format dates#####################
Columns("D:E").Select
Selection.NumberFormat = "dd/MM/yyyy"
Columns("F").Select
Selection.NumberFormat = "General"
 
'###############Transformation de la périodicité en jours##################
For i = 3 To fin
    Cells(i, 6).Select
    If Cells(i, 6).Value = "4 Ans" Then
    Cells(i, 6).Value = "1460"
    End If
    If Cells(i, 6).Value = "3 Ans" Then
    Cells(i, 6).Value = "1095"
    End If
    If Cells(i, 6).Value = "2 Ans" Then
    Cells(i, 6).Value = "730"
    End If
    If Cells(i, 6).Value = "1 Ans" Then
    Cells(i, 6).Value = "365"
    End If
    If Cells(i, 6).Value = "18 Mois" Then
    Cells(i, 6).Value = "548"
    End If
    If Cells(i, 6).Value = "6 Mois" Then
    Cells(i, 6).Value = "183"
    End If
    If Cells(i, 6).Value = "4 Mois" Then
    Cells(i, 6).Value = "122"
    End If
Next i
 
'############### Réécriture de la date prochaine ##################
For i = 3 To fin
        Cells(i, 5).Select
        Cells(i, 4).Select
        Cells(i, 6).Select
        If Cells(i, 5).Value = "-" Then
        Cells(i, 5).Value = Application.Sum(Cells(i, 4).Value, Cells(i, 6).Value)
        End If
Next i
 
'############### Définition de l'intervalle de travail ##################
Const PR = vbLf & vbLf & "Entrer la date de ", TI = "   INTERVALLE"
    Dim DateDebut As Date, DateFin As Date, Dstock As Date
 
    D = InputBox(PR & "début  :", TI, "01/01/" & Year(Now))
    If IsDate(D) Then DateDebut = D Else Exit Sub
    D = InputBox(PR & "fin  :", TI, D):  If IsDate(D) Then DateFin = D
    If DateFin < DateDebut Then Beep: Exit Sub
    Application.ScreenUpdating = False
 
    For R = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
        If IsDate(Cells(R, 5)) Then
            Dstock = Cells(R, 5)
            If Dstock < DateDebut Or Dstock > DateFin Then Rows(R).Delete
        End If
    Next
 
    Application.ScreenUpdating = True
 
 
'############### Copier les données dans d'autres classeurs ##################
Dim wkDest As Workbook ' Classeur destinataire
 
Set wkDest = Application.Workbooks.Open("H:\BILAN TRIMESTRIEL\RETARDPMI.xlsm")
 
' le classeur PMI.xlsm contient ce code et est donc accessible par ThisWorkBook
ThisWorkbook.Sheets("Feuil1").Cells.Copy wkDest.Sheets(Feuil2).Range("A1")
 
wkDest.Close True 'Ferme en sauvant
 
End Sub

**SfJ5Rpw8** · 30/04/2013, 18h13

je ne comprends toujours pas "ça plante Excel" ... ? essai de nous dire ce qui se passe ...

Attention j'ai corrigé mon code il manquait les guillemets autour de "Feuil2"

**sadhya** · 30/04/2013, 18h24

A peine lancé le code ça fait ça ( voir pièce jointe) je ferme je réouvre et le seul fait que ça soit écris fait beuguer la macro .

J'ai essayé sans le code que Bbil m'a proposé et le programme fonctionne .

**sadhya** · 30/04/2013, 18h57

ça y est j'ai enfin trouvé le hic il y avait trop de lignes dans la macro j'ai du créer une nouvelle macro merci bbil

[VBA][Excel]Copier coller de feuilles d'un classeur à un autre classeur

Macros et VBA Excel

Discussions similaires

Partager

Partager