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

Question

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

f894009 · Answer

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

TraderAS · Answer

Salut f894009

oui affirmatif f894009, c'est bien Daily.xlsm.xlsm

f894009 · Answer

Re,

est-ce que le fichier est ouvert quand vous lancez la macro????
Sh1 et Sh2 sont des onglets de quel fichier???

A+

TraderAS · Answer

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

f894009 · Answer

Re,

juste une parenthese:

TraderAS 2 avril 2013 à 17:16 
oui affirmatif f894009, c'est bien Daily.xlsm.xlsm

TraderAS 2 avril 2013 à 17:32 
Set FichCore = Workbooks("Daily.xlsm") 

!!!!!!!!!!!!!!!!!!!!!!

pour la suite je regarde, je pense qu'il faut le nom du classeur devant sheets


A+

TraderAS · Answer

ca marche comme ca :

Set Sh1 = FichCore.Sheets("Technical")

mais j'ai une erreur d'exécution 13: incompatiblité de type pour cette ligne:

Workbooks(FichCore).Sheets(Sh1).Range("B2:J65").Select
 selectio.Copy

TraderAS · Answer

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

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

7 réponses

Votre réponse

Discussions similaires