Discussion :

[dicah]

Tout d'abord bonjour à tous et merci d'avance à ceux qui voudront bien me répondre.

Je cherche dans le cadre d'un projet personnel à copier puis à coller le contenu d'une feuille d'un fichier excel dans un autre fichier excel et donc une nouvelle feuille.
N'étant pas très à l'aise avec vb j'ai réussi à créer un bouton "parcourir" pour me mettre dans le répertoire ou se trouve mon fichier (le nom pouvant varier je ne cherche pas à cibler précisément un fichier je veux le sélectionner) et puis et bien c'est tout je n'arrive pas à déterminer comment faire pour ensuite copier et coller mes données si l'un d'entre vous dispose d'une solution

D'avance merci pour vos réponses

[OBO29]

Bonjour,

Voici une fonction qui peut t'aider ?

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
 
Public Sub Copie_Feuille_Nouveau_Classeur(Nom_Nouveau_Classeur As String, Nom_Feuille_Source As String, Nom_Feuille_Destination As String)
    Dim XLApp As New Excel.Application
    Dim XLBook_destination As Workbook
    Dim XLSheet_destination As Worksheet, XLSheet_Source As Worksheet
    Dim XLRange_destination As Range
 
    ThisWorkbook.Sheets(Nom_Feuille_Source).Range("A1").Select
 
    XLApp.SheetsInNewWorkbook = 1
    Set XLBook_destination = XLApp.Workbooks.Add
    XLBook_destination.SaveAs Nom_Nouveau_Classeur
 
    Set XLSheet_destination = XLBook_destination.Worksheets(1)
    XLSheet_destination.Name = Nom_Feuille_Destination
    Set XLSheet_destination = Nothing
    XLBook_destination.Save
    XLApp.Quit
    Set XLBook_destination = Nothing
 
    Workbooks.Open Nom_Nouveau_Classeur, 0, ReadOnly:=False
    Set XLBook_destination = Workbooks(ActiveWorkbook.Name)
    Set XLRange_destination = XLBook_destination.Sheets(Nom_Feuille_Destination).Range("A1")
    Set XLSheet_Source = ThisWorkbook.Sheets(Nom_Feuille_Source)
    XLSheet_Source.Cells.Copy XLRange_destination
 
    XLBook_destination.Save
    XLBook_destination.Close
 
    Set XLApp = Nothing
    Set XLBook_destination = Nothing
    Set XLSheet_destination = Nothing
    Set XLSheet_Source = Nothing
    Set XLRange_destination = Nothing
 
End Sub

Bonne continuation

[dicah]

Bonjour et merci pour la réponse,

en fait histoire de complexifier les choses comme je l'expliquais je souhaite passer par une fonction "parcourir" puis choisir un fichier via cette fonction copier le contenu (qui ne dispose que d'une feuille1) et le coller dans un autre fichier excel (qui n'est pas forcément nouveau)

[clementmarcotte]

Bonjour,

Pourquoi un copier-coller ?

Regarde dans ton aide Sheets.copy et Sheets.move. Au besoin, tu peux ajouter le nom du classeur dans les exemples fournis. Tu peux arriver à la même chose en enregistrant une macro.

[dicah]

Pour répondre à pourquoi un copier coller car je veux garder le fichier d'origine intact.

[OBO29]

...et le coller dans un autre fichier excel (qui n'est pas forcément nouveau)

Bonjour,

Comment tu sélectionne ce fichier de destination ?

Pour parcourir :

Code :

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

1
2
3
 
    Dim stFile As String
    stFile = Application.GetOpenFilename

A+

[clementmarcotte]

Tu ouvres deux classeurs.
Dans un des deux classeurs tu cliques sur le bouton "Enregistrer une macro"
Tu copies ou tu déplaces une feuille manuellement de ce classeur vers l'autre.
Quand c'est terminé, tu termines l'enregistrement.
Tu ouvres ton éditeur VBA et tu as le code sur un plateau d'argent.

[dicah]

Bonjour merci pour la reponse,

cependant l'enregistrement ne me permet pas de passer d'un classeur a un autre je n'ai que le copier ou que le coller mais pas le reste.

Cdt

[Philippe Tulliez]

Bonjour,

cependant l'enregistrement ne me permet pas de passer d'un classeur a un autre je n'ai que le copier ou que le coller mais pas le reste

Absolument pas. Comme Clément te l'a indiqué, tu ouvres les deux classeurs (la source et la cible) et tu clques sur l'enregistreur de macro.
Lorsque l'enregistreur est enclenché, voici les étapes à suivre

1. Clic droit sur l'onglet de la feuille que tu veux copier.
2. Choisir Déplacer ou copier... dans le menu contextuel
3. Dans la boîte de dialogue Déplacer ou copier, cocher Créer une copie (si tu souhaites faire une copie) et sélectionner dans la liste déroulante le classeur cible.
4. Arrêter l'enregistreur

[EDIT]
Voici le code généré. Il suffit de l'adapter en enlevant la ligne avec la méthode Select et ajouter l'objet classeur Source

Code :

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

1
2
Sheets("TOTO").Select
Sheets("TOTO").Copy Before:=Workbooks("maCible.xlsm").Sheets(1)