"L'indice n'appartient à la sélection" + VBA

Résolu/Fermé

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 2 avril 2013 à 16:35
TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 - 2 avril 2013 à 18:07

Bonjour,

j'ai lu beaucoup de choses sur cette erreur mais je n'ai pas trouvé de solution,

en faite j'ai lu cette solution et ca na pas marché:
https://forums.commentcamarche.net/forum/affich-22912711-erreur-d-execution-13-incompatibilite-de-type

j'ai essayé :
Sub DBcOPY()

FichD = ActiveWorkbook.Name
Dim FichCore As Workbook
Set FichCore = Workbooks("Daily.xlsm.xlsm")
Dim Sh1 As Worksheet
Set Sh1 = Sheets("Technical")
Dim Sh2 As Worksheet
Set Sh2 = Sheets("DB")

mais ca ne marche toujours pas avec
Dim Sh1 As Worksheet
Set Sh1 = Sheets("Technical")

et avec
Dim Sh1 As Worksheet
Set Sh1 = workSheets("Technical")

malgré que dans le fichier, c'est bien et bien la feuille ("Technical")
merci

A voir également:

Excel vba l'indice n'appartient pas à la sélection
Liste déroulante excel - Guide
A qui appartient ce numéro - Guide
Aller à la ligne excel - Guide
Je veux savoir à qui appartient ce numéro ✓ - Forum Mobile
Formule excel - Guide

7 réponses

Réponse 1 / 7

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 avril 2013 à 16:53

Bonjour,

Set FichCore = Workbooks("Daily.xlsm.xlsm") est vous sur du nom du classeur???

Réponse 4 / 7

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 1
2 avril 2013 à 17:32

Re

oui les fichiers sont ouverts lors de l'éxecution de la macro,
quand à Sh1 c'est la feuille/onglet du fichier daily.xlsm.xlsm
et Sh2 c'est une feuille du FichCopy = ActiveWorkbook.Name

en faite je veux copier une tableau d'un fichierCore vers un autre fichierCopy voici le code:

FichCopy = ActiveWorkbook.Name
Dim FichCore As Workbook
Set FichCore = Workbooks("Daily.xlsm")
Dim Sh1 As Worksheet
Set Sh1 = Sheets("Technical")
Dim Sh2 As Worksheet
Set Sh2 = Sheets("DB")

FichCopy = ActiveWorkbook.Name
Application.ScreenUpdating = False

Workbooks(FichCore).Sh1.Range("B2:J65").Copy

Workbooks(FichCopy).Sh2.Range("B2:J65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks(FichCore).Sh1.Range("B2:J65").Copy

Workbooks(FichCopy).Sh2.Range("B2:J65").Sheets("DB").Range("B2:J65").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Réponse 7 / 7

TraderAS Messages postés 110 Date d'inscription lundi 3 décembre 2012 Statut Membre Dernière intervention 26 avril 2018 1
2 avril 2013 à 18:07

merci f894009 pour votre aide, voici le code qui a bien fonctionné:

Sub DBcOPY()

Dim FichCopy As Workbook
Set FichCopy = Workbooks("Fundamentals.xlsm")
Dim FichCore As Workbook
Set FichCore = Workbooks("Daily.xlsm.xlsm")
Dim Sh1 As Worksheet
Set Sh1 = FichCore.Sheets("Technical")
Dim Sh2 As Worksheet
Set Sh2 = FichCopy.Sheets("DB")

Application.ScreenUpdating = False

Workbooks("Daily.xlsm.xlsm").Sheets("Technical").Range("B2:J65").Copy

Workbooks("Fundamentals.xlsm").Sheets("DB").Range("B2:J65").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("Daily.xlsm.xlsm").Sheets("Technical").Range("B2:J65").Copy

Workbooks("Fundamentals.xlsm").Sheets("DB").Range("B2:J65").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

Discussions similaires

erreur d'execution 9, l'indice n'appartient pas à la sélection

Problème Excel VBA: "l'indice n'appartient pas à la sélection"

"L'indice n'appartient à la sélection" + VBA

Erreur '9' l'indice n'appartient pas à la sélection

l'indice n'appartient pas à la selection

variable workbook : l'indice n'appartient pas à la sélection

Discussions similaires

Newsletters