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".
La ligne en erreur est celle-ci :
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,
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".
VB:
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 :
Code:
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,