Discussion :

[Charlock]

Bonjour à tous,

Je réalise actuellement un projet avec un gros classeur principal, auquel est lié un classeur secondaire, dont le (seul) but est de récupérer les informations cruciales du principal, et de les exporter au format CSV de façon périodique (toutes les 5 secondes en l'occurence, et un programme externe exporte ça sur un FTP).

Mon classeur secondaire comporte donc une macro de ce genre-là, écrite dans "ThisWorkbook".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub periodicExportStart()
    exportCSV
    If Range("SExportOnOff").Cells(1, 1) = 1 Then 'si export activé
        Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkbook.periodicExportStart"
    End If
End Sub

Jusque là, quand seul le classeur secondaire est ouvert, tout marche bien. Par contre, quand j'ouvre en plus le classeur principal et que je lui donne le focus (pour travailler dedans tout simplement), le code plante, parce qu'il ne reconnaît plus les plages de données (comme "SExportOnOff" par exemple dans le code que j'ai donné).

Je sais que je peux résoudre le problème en réunissant mes deux classeurs en un seul, mais ça me semble peu judicieux, et, surtout, j'aimerais comprendre d'où vient le problème !

Merci de vos réponses !

[jfontaine]

Bonjour,

Il est préférable de spécifier sur quel classeur on travail sinon le code se place sur le classeur actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub periodicExportStart()
    exportCSV
    If Thisworkbook.Range("SExportOnOff").Cells(1, 1) = 1 Then 'si export activé
        Application.OnTime Now + TimeValue("00:00:05"), "ThisWorkbook.periodicExportStart"
    End If
End Sub

[Charlock]

Ah, c'était un stupidissime oubli de ma part...

Merci pour la réponse en tout cas