Copier une feuille d'un classeur vers un autre [XL-2010]

[Roiser]

Bonjours,

Je suis débutant en VBA, je n'ai pas encore une bonne connaisance dessus. J'ai dû m'y mettre pour simplifier au maximum mon travail (c'est mieux quand c'est automatisé)

Le contexte :

Grâce à un classeur référence je peux identifier le chemin d'un second classeur où se trouve des données dont j'ai besoin. Je l'ai nommé Classeur_Source, celui-ci peut-être constitué de plusieurs feuilles, seulement une seule m'interesse.

Voici mon problême :

j'arrive à copier tout un classeur en utilisant : FileCopy Source, Destination

mais je n'arrive tout simplement pas à copier la feuille de données dans un troisième classeur que j'ai appelé Classeur_Destination (qui est inexistant au passage)

Remarque :

Chaque classeur a un chemin spécifique
Mon code se trouve sur le classeur réference

Merci d'avance pour votre aide.

[chth26]

Tu devrais essayer de faire ta manipulation avec l'enregistreur de macros.
Ca doit te donner quelque chose d'assez simple.

[Roiser]

Tu devrais essayer de faire ta manipulation avec l'enregistreur de macros.
Ca doit te donner quelque chose d'assez simple.

Merci, je ne connaissais pas du tout cet outil, j'ai pu bidouiller quelques chose qui marche avec le comportement que je voulais.

Cepandant le programme ouvre des fenetres, les enregistre, les ferme, ect ... est ce qu'il existe une solution pour que le code puisse faire les mêmes actions sans toute fois ouvrir quoi que ce soit ?

[chth26]

Si tu peux poster le code que tu as obtenu avec l'enregistreur, on pourrait plus t'aider

[Roiser]

Voici ce que j'ai obtenu, pour information la colonne 12 est un hyperlien renvoyant directement au classeur voulu (celui ci a été créé ultérieurement par un autre code)

Si le document comporte des feuilles de données :

Code :

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

1
2
3
4
5
6
7
Ligne.Cells(12).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(Feuille).Select
Sheets(Feuille).Copy
ChDir Chemin
ActiveWorkbook.SaveAs Filename:= Destination, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveWindow.Close

Si le document ne comporte pas de feuille de données :

Code :

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

1
2
3
4
5
6
Workbooks.Add
ActiveCell.FormulaR1C1 = "Mentionné dans "
Range("B1").Select
ActiveCell.FormulaR1C1 = Source
ActiveWorkbook.SaveAs Filename:=Destination, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

[chth26]

J'ai fait quelque chose comme ca, mais le copy ne fonctionne pas si la fenetre du classeur de destination est caché.
Mes compétences s'arretent la ^^

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
Sub Macro1()
    'Ouverture fichier Source
    Dim ExcelSource As New Workbook
    Set ExcelSource = Workbooks.Open(ThisWorkbook.Worksheets(1).Range("B1"), ReadOnly:=True)
    Windows(ExcelSource.Name).Visible = False
    
    'Ouverture fichier Destination
    Dim ExcelDestination As New Workbook
    Set ExcelDestination = Workbooks.Open(ThisWorkbook.Worksheets(1).Range("B2"), ReadOnly:=False)
    Windows(ExcelDestination.Name).Visible = True
    
    'Copie du classeur
    ExcelSource.Sheets(1).Copy After:=ExcelDestination.Sheets(ExcelDestination.Sheets.Count)

    'Fermeture et enregistrement
    ExcelSource.Close SaveChanges:=False
    ExcelDestination.Close SaveChanges:=True
End Sub