XL 2016 Problème de copier coller VBA

[otho van]

Bonjour,

La macro est assez simple, j'aimerais copier des valeurs d'un fichier Excel vers un autre, lorsque j'exécute mon code étape par étape avec F8 ça marche très bien, dés que je passe en F5, le code s'arrête sur l'affichage du fichier cible (ou je copie les valeurs), donc le copier coller ne se fait pas.
Je ne comprend pas pourquoi ça marche en F8 et pas en F5.

Fichier source : EPEX48
Fichier cible : Ecarts RTE
donc je copie des écarts vers EPEX
La macro se trouve dans le module 2 : Balancing price

Sub Balancing_Price()


Dim WbkC As Workbook ' Classeur cible
Dim WbkS As Workbook ' Classeur Source
Dim ShtC As Worksheet ' Feuille Cible
Dim ShtS As Worksheet ' Feuille source

Set WbkS = ThisWorkbook
Set ShtS = WbkS.Worksheets(1)


On Error GoTo FinMacro
Application.ScreenUpdating = False

'''''''''''''''''''''''''ouvre le cmd et lance python'''''''''''''''''''''''
'ChDrive "C"
'ChDir "C:\Users\NF5941\Documents"
'Shell "python Ecarts_RTE.py"
'
'Application.Wait (Now + TimeValue("0:00:15"))

'''''''''''''''''''''''''''''' ouvre le fichier Ecarts RTE dans lequel les ecarts ont été importées''''''''''''

CreateObject("Shell.Application").Open ("C:\Users\NF5941\Documents\Ecarts_RTE_API.xlsx")
Application.Wait (Now + TimeValue("0:00:03"))


Set ShtC = ActiveWorkbook.Sheets(1)

'''''''''''''''''''''''''''''''''copier coller les elements dans EPEX48''''''''''''''''''''''


ShtC.Range("E10150:F10150").Select WbkC
ShtC.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
WbkS.Activate
ShtS.Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ShtC.Activate
ActiveWorkbook.Close SaveChanges:=True
ShtS.Activate

FinMacro:
Application.ScreenUpdating = True

End Sub

 

[cp4]

Bonjour,

La macro est assez simple, j'aimerais copier des valeurs d'un fichier Excel vers un autre, lorsque j'exécute mon code étape par étape avec F8 ça marche très bien, dés que je passe en F5, le code s'arrête sur l'affichage du fichier cible (ou je copie les valeurs), donc le copier coller ne se fait pas.
Je ne comprend pas pourquoi ça marche en F8 et pas en F5.

Fichier source : EPEX48
Fichier cible : Ecarts RTE
donc je copie des écarts vers EPEX
La macro se trouve dans le module 2 : Balancing price

Bonjour,

Je n'ai pas testé mais je pense que ça provient des "Select"

 

[otho van]

Bonjour,

Je n'ai pas testé mais je pense que ça provient des "Select"

Tu peux développer ? je ne vois pas ou est le problème avec les select

 

[cp4]

Tu peux développer ? je ne vois pas ou est le problème avec les select

Je n'ai pas testé ton code. J'ai donc supposé que ça provenait des selects.

En effet, Select ralentit le code.

exemple au lieu de faire un select de la feuille, ensuite un select de la plage par exemple à copier comme ceci:

Sheets("Ecarts_RTE").Select
Range("A1").CurrentRegion.Select
Selection.Copy

il est préférable de faire comme ceci

Sheets("Ecarts_RTE").Range("A1").CurrentRegion.Copy

Plus rapide et plus lisible.

Bonne continuation.

Edit: Que veux-tu faire exactement?

 

[cp4]

Ton code n'a jamais fonctionné même en pas à pas (F8).
En effet, tu ouvres un fichier

CreateObject("Shell.Application").Open ("C:\Users\NF5941\Documents\Ecarts_RTE_API.xlsx")

et tu actives un autre

Application.Wait (Now + TimeValue("0:00:03"))
Workbooks("Ecarts_RTE.xlsx").Activate

Ecarts_RTE_API.xlsx<>Ecarts_RTE.xlsx