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

Résolu

TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention -
TraderAS Messages postés 110 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Excel vba l'indice n'appartient pas à la sélection
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Indice téléphonique - Guide
A qui appartient ce numéro - Guide
Word et excel gratuit - Guide

7 réponses

Réponse 1 / 7

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 Statut Membre Dernière intervention 1

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 Statut Membre Dernière intervention 1

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

Comprendre l'utilisation d'une listbox excel vba

Compter le nombre de lignes d'un résultat de requête

Liste déroulant dans Userform Via liste Excel

Bibliothèque introuvable

fonction ou macro en VBA max if

excel masquer et afficher des lignes vba

Votre réponse

Discussions similaires