Discussion :

[Jika971]

Bonjour à toutes et à tous,

Je suis nouveau dans la programmation VBA. Je me permet de vous demandez un service. J'ai fait le tour sur Internet de ma question et j'ai rien trouvé de concret. Je suis utilisateur d'Excel 2010.

Dans le cadre du boulot, on effectue plusieurs modifications sur les fichiers Excel semblable, mais lorsque l'on traite un fichier ce dernier n'a pas forcement reçu la modifications. Donc j'aimerais bien à partir d'un fichier Excel centralisé ( qui contiendra toutes les mise à jour ), créer une macro dans le fichier annexe qui ira sélectionner le fichier centralisé et coller toute les modifications réalisé.

Pour l'instant j'ai une macro qui :
-Selectionne et ouvre le fichier Excel centralisé
-Demande qu'elle feuille du fichier centralisé à copier
-Copie du fichier centralisé vers fichier annexe
-Copie la feuille souhaité en créer une nouvelle sur le fichier annexe

Actuellement mon problème est lorsque je veux coller les données sur une feuille existante ( le but final ) m'ai impossible.
Quelqu'un peut-il m'aider ?

Merci à vous toutes et tous

Voici le code :

Code vb :

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
Sub macro1()
 
Dim nom_classeurB As String
Dim Classeur_B As Workbook
Dim nom_feuilleB As String
Dim ws As Worksheet
Dim Feuille_B As Worksheet
Dim rep_ok As Boolean
Dim nouveau_nom As String
 
rep_ok = False
 
 
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "C:\"
    .Title = "Veuillez sélectionner le fichier"
    .ButtonName = "Choisir ce classeur"
    .Show
 
    If .SelectedItems.Count = 1 Then
        nom_classeurB = .SelectedItems(1)
    Else
        msgErr = "Vous n'avez pas choisi de fichier"
        MsgBox msgErr, vbInformation, "Arrêt"
        End
    End If
 
End With
 
Set Classeur_B = Workbooks.Open(nom_classeurB)
 
Do While rep_ok = False
    nom_feuilleB = InputBox("Quelle est le nom de la feuille à copier ?")
 
    For Each ws In Classeur_B.Worksheets
        If ws.Name = nom_feuilleB Then
            Set Feuille_B = ws
            rep_ok = True
        End If
 
    Next
 
    If rep_ok = False Then
        MsgBox "Nom de feuille introuvable", vbInformation, "Oupss!"
    End If
 
Loop
 
nouveau_nom = InputBox("Quel est le nouveau nom de la feuille")
 
Feuille_B.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
 
Classeur_B.Close False
 
With ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    .Name = nouveau_nom
    .Select
End With
 
End Sub

[Poussemousse]

Bonjour Jika971,

j'ai l'impression qu'il y a confusion entre la feuille d'origine et de destination.
Il faudrait mieux avoir un code du style (en plus ce serait bien plus lisible pour celui qui relit) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copie_Feuille()
 
Dim Index As Integer
Dim Source_W, Source_S, Destination_W As String
 
    Source_W = ActiveWorkbook.name
    Source_S = ActiveSheet.name
 
    Destination_W = nom_classeurB
 
    Index = Workbooks(Destination_W).Worksheets.Count
    Workbooks(Source_W).Sheets(Source_S).Copy After:=Workbooks(Destination_W).Sheets(Index)
 
End Sub

Voilà en espérant que ça puisse t'aider comme base de travail.

Poussemousse