WBA Inserer feuille classeur distant

Moobies

XLDnaute Nouveau
Bonjour,
Pour dire vrai, je gelere un petit peu sur mon fichier excel.
J'ai un premier tableau qui comporte des stats sur plusieur feuilles. La structure de chaques feuilles est identique. Celui-ci est publique et dispo ici http://football-data.co.uk/downloadm.php et dont voici le lien http://football-data.co.uk/mmz4281/1617/all-euro-data-2016-2017.zip.

Mon second tableau comporte trois feuilles. les deux dernières sont principalement composés de recherchev et nb.si vers le tableau de data.
Je souhaite sur la première feuille (nommée "select") mettre en place une liste déroulante permettant de sélectionner le pays et la division a charger en data. avec une condition SI la cellule A1 renseignera le nom de la feuille du fichier data désiré. Ex Angleterre / 1ere division -> A1 sera égale a "E0"

Tous ca pour mettre en place un clic qui chargera la feuille du fichier distant dont le nom est renseigné en A1.

Mon souci c'est que je n'arrive pas a mettre le nom de la feuil en variable.

Voici mon code (qui ne fonctionne pas)

Private Sub CommandButton1_Click()

Dim classeurSource As Workbook, classeurDestination As Workbook
Dim strFichier As String

'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("lien_et_nom_du_fichier_qui_ne_changent_jamais.xls", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook

strFichier = Sheets("Select").Cells(A1).Value

'copier les données du classeur source vers la "Data" du classeur destination
classeurSource.Sheets(strFichier).Cells.Copy classeurDestination.Sheets("Data").Range("A1")

'fermer le classeur source
classeurSource.Close False

End Sub


Merci de votre aide
 

Discussions similaires