VBA - Copie d'un onglet à nom variable

[Deluxe35]

Bonjour,

Etant donné l'efficacité que vous avez eu face à ma précédente question, je souhaitais à nouveau vous demander de l'aide.
Je souhaite copier un onglet à nom variable d'un fichier Excel vers le fichier Excel final.
Mon code actuel fonctionne avec un nom d'onglet fixe. Cependant, nous avons remarqué que l'onglet commencera toujours par report (report_1, report-1, report_2 .... )
J'avais pensé à Worksheets("report*"), mais cela ne marche pas.

Voici mon code :

Sub recup_donnes()

Workbooks.Open Filename:="C:\Users\Adrien\OneDrive Entreprise 1\Travail\T9.xls" 'Ouvre le fichier Excel source

Workbooks("T9.xls").Worksheets("report*").Cells.Copy _
Workbooks("ComparatifEmission.xlsm").Worksheets("T9").Range("A1") 'Copie-colle le fichier

Workbooks("T9.xls").Close False 'Referme le fichier source

End Sub

Merci à vous,

Adrien

 

[Theze]

Bonjour,

Adaptes à tes besoins :

Sub recup_donnes()
   
    Dim I As Integer
   
    Workbooks.Open Filename:="C:\Users\Adrien\OneDrive Entreprise 1\Travail\T9.xls" 'Ouvre le fichier Excel source
   
    'Par exemple, la feuille s'appelle report_3
    I = 3
    Workbooks("T9.xls").Worksheets("report_" & I).Cells.Copy _
    Workbooks("ComparatifEmission.xlsm").Worksheets("T9").Range("A1") 'Copie-colle le fichier
   
    Workbooks("T9.xls").Close False 'Referme le fichier source

End Sub

 

[Deluxe35]

Merci pour ce retour,

Le problème c'est que je ne connais jamais la valeur du I. Elle est aléatoire. C'est pour cela que j'avais tenté l'étoile.

 

[Deluxe35]

Est-ce que le format:

Workbooks("T9.xls").Worksheets("report_" & "*").Cells.Copy _

serait bon?

Merci pour vos retours,

Adrien

 

[Deluxe35]

Pourriez-vous m'aider svp?

Merci beaucoup

Adrien

 

[Deluxe35]

Je retente ma chance les amis !

 

[Deluxe35]

Bonjour,

Etant donné l'efficacité que vous avez eu face à ma précédente question, je souhaitais à nouveau vous demander de l'aide.
Je souhaite copier un onglet à nom variable d'un fichier Excel vers le fichier Excel final.
Mon code actuel fonctionne avec un nom d'onglet fixe. Cependant, nous avons remarqué que l'onglet commencera toujours par report (report_1, report-1, report_2 .... )
J'avais pensé à Worksheets("report*"), mais cela ne marche pas.

Voici mon code :

Sub recup_donnes()

Workbooks.Open Filename:="C:\Users\Adrien\OneDrive Entreprise 1\Travail\T9.xls" 'Ouvre le fichier Excel source

Workbooks("T9.xls").Worksheets("report*").Cells.Copy _
Workbooks("ComparatifEmission.xlsm").Worksheets("T9").Range("A1") 'Copie-colle le fichier

Workbooks("T9.xls").Close False 'Referme le fichier source

End Sub

Merci à vous,

Adrien

 

[pierrejean]

Bonjour Adrien

A tester

Sub recup_donnes()

Workbooks.Open Filename:="C:\Users\Adrien\OneDrive Entreprise 1\Travail\T9.xls" 'Ouvre le fichier Excel source
For Each sh In Workbooks("T9.xls").Worksheets
If InStr(sh.Name, "report") <> 0 Then
Workbooks("T9.xls").sh.Cells.Copy _
  Workbooks("ComparatifEmission.xlsm").Worksheets("T9").Range("A1") 'Copie-colle le fichier
End If
Next
Workbooks("T9.xls").Close False 'Referme le fichier source

End Sub

 

[Deluxe35]

Bonjour,

Je vais tester ça et je vous redis
Merci!