XL 2013 VBA - problème macro dans variable

[AntoineM]

Bonjour le forum,

J'ai une macro qui me permet de copier les données d'un classeur vers une autre classeur.
Ma macro ne fonctionne pas, "Erreur d'éxecution '9' - L'indice n'apparait pas a la sélection".

Public Nom As String
Public wb1 As Workbook
Public wb2 As Workbook

Sub ActiveCopie()

Dim A As String
Dim Chemin As String
Dim onglet As String

Set wb1 = ThisWorkbook

onglet = Workbooks("Suivi écarts 2016.xlsm").Worksheets("Info").Range("F2").Value
A = Sheets("Info").Range("E2")
Chemin = A & "Synthese espèce boutique V4.xlsx"

Application.DisplayAlerts = False
Workbooks.Open Filename:=Chemin
Application.DisplayAlerts = True

Set wb2 = ActiveWorkbook
wb2.Sheets("Synthèse Mois").Activate

wb1.Sheets(onglet).Range("A1:CN41") = _
wb2.Sheets("Synthèse Mois").Range("A1:CN41").Value

Application.DisplayAlerts = False
wb2.Close
Application.DisplayAlerts = True

End Sub

La ligne en erreur est celle-ci :

wb1.Sheets(onglet).Range("A1:CN41") = _
wb2.Sheets("Synthèse Mois").Range("A1:CN41").Value

La cellule F2 de ma feuille "Info" contient une formule =texte(aujourdhui();"mmmm"). Quand dans la ligne de code en erreur je mets wb1.Sheets("février") cela fonctionne bien.

La macro ne fonctionne pas à cause de la formule en F2 ?

Bien à vous,

 

[thebenoit59]

Re : VBA - problème macro dans variable

Salut AntoineM.
Peux-tu joindre tes fichiers ?

 

[AntoineM]

Re : VBA - problème macro dans variable

Salut benoit,

Au final en faisant un test caractère il y avait un espace après mon nom d'onglet. Pas très malin comme faute 😱.
La macro fonctionne bien au final 🙂

Merci quand même d'avoir répondu !