[PCVue] Run-time erreur 1004, "la méthode select de la classe worksheet a échoué
Posté : 16 déc. 2022, 16:31
Bonjour à tous j'espère que mon post vous trouve bien;
Je suis novice en VBA, je sollicite votre aide sur une erreur que je ne parviens pas à résoudre seul.
Je travaille sur un projet d'export de données sur PCVUE et j'arrive a faire les exports de données sur des fichiers Excel sans problème..
Maintenant j'aimerais pourvoir convertir mon fichier exporter en PDF directement sur PCVUE. J'ai donc opté pour le VBA..
Mais depuis je suis heurté a ce problème "Run-time erreur 1004, "(la méthode select de la classe worksheet a échoué").
Je vous joint mon code
Jaimerais savoir comment resoudre le probleme..
Merci a vous
Je suis novice en VBA, je sollicite votre aide sur une erreur que je ne parviens pas à résoudre seul.
Je travaille sur un projet d'export de données sur PCVUE et j'arrive a faire les exports de données sur des fichiers Excel sans problème..
Maintenant j'aimerais pourvoir convertir mon fichier exporter en PDF directement sur PCVUE. J'ai donc opté pour le VBA..
Mais depuis je suis heurté a ce problème "Run-time erreur 1004, "(la méthode select de la classe worksheet a échoué").
Je vous joint mon code
Code : Tout sélectionner
Dim WithEvents ExportStatus As Variable
Private Sub fvProject_StartupComplete()
Set ExportStatus = Variables("@Test10")
ExportStatus.EnableEvents = True
End Sub
Private Sub ExportStatus_ValueChange()
Dim Y_report As String
Dim Y_pdf As String
If ExportStatus.Value = 0 Then
Dim xlbook As Excel.Workbook
Y_report = ThisProject.Path & "\DataExports\Poste1.xlsx"
Set xlbook = Workbooks.Open(Y_report, True, False, , , , True)
xlbook.ActiveSheet.Unprotect
xlbook.Application.DisplayAlerts = False
ActiveWorkbook.Sheets("TrendPage01").Select
Y_pdf = ThisProject.Path & "\Dataexports\Poste1_Trends_" & Format(Now, "hhmmss") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Y_pdf, Quality:=xlQualityStandard
ActiveWorkbook.Sheets("Logpage01").Select
Y_pdf = ThisProject.Path & "\Dataexports\Poste1_Logs_" & Format(Now, "hhmmss") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Y_pdf, Quality:=xlQualityStandard
xlbook.Close
Set xlbook = Nothing
End If
End SubMerci a vous