Nome ambíguo do Excel detectado

Nome ambíguo do Excel detectado

oi, nesta pasta de trabalho eu tenho esse código

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Stop execution when workbook closes
 On Error Resume Next
 Application.OnTime Heure, "Calcul", , False
End Sub
Private Sub Workbook_Open()
 'start execution when workbook opens
 Application.OnTime Now + TimeValue("00:05:00"), "Calcul"
End Sub

e no módulo 1 eu tenho esse código

    Sub Calcul()
     Heure = Now + TimeValue("00:05:00")
     Application.OnTime Heure, "Calcul"
     Sheet1.Range("FA99666").End(xlUp).Offset(1) = Sheet1.[o5]
     Sheet1.Range("FE99666").End(xlUp).Offset(1) = Sheet1.[o6]
     Sheet1.Range("FI99666").End(xlUp).Offset(1) = Sheet1.[o7]
     Sheet1.Range("FM99666").End(xlUp).Offset(1) = Sheet1.[o8]
     Sheet1.Range("FQ99666").End(xlUp).Offset(1) = Sheet1.[o9]
end sub

] o código acima é executado a cada 5 minutos

no módulo 2 eu gostaria que esse código fosse executado a cada 10 minutos

    Sub Calcul()
     Heure = Now + TimeValue("00:10:00")
     Application.OnTime Heure, "Calcul"
     Sheet2.Range("FA99666").End(xlUp).Offset(1) = Sheet2.[o5]
     Sheet2.Range("FE99666").End(xlUp).Offset(1) = Sheet2.[o6]
     Sheet2.Range("FI99666").End(xlUp).Offset(1) = Sheet2.[o7]
     Sheet2.Range("FM99666").End(xlUp).Offset(1) = Sheet2.[o8]
     Sheet2.Range("FQ99666").End(xlUp).Offset(1) = Sheet2.[o9]
end sub

mas recebo um erro - Nome ambíguo detectado. sou novo no Excel, qualquer ajuda seria ótima.

Responder1

Concordo com o sentimento nos comentários, você deveria ler, mas não vejo relevância para a situação específica porque você está usando Application.OnTimee não vi mencionado compartilhar no link.

Você pode ler sobre isso aqui:

https://stackoverflow.com/questions/31439866/multiple-variable-arguments-to-application-ontime

Para resumir: você precisará construir uma string encapsulada entre aspas. A construção exata é determinada pelo conteúdo que você está enviando (por exemplo, variável, número inteiro, string).

A estrutura é crítica. Muito provavelmente, você perderá um caractere e gastará um bom tempo usando tentativa e erro até chegar à string correta

informação relacionada