Private Sub Workbook_Open()
Dim DerniereDate$, NouveauNumFact$
Dim ListeFacture
Dim Annul%, paye%, impaye%, ouverte%, i%, compteur%
Dim ArgentManque@, ArgentEu@, ArgentAttente@, ArgentAnnul@, ArgentTOT@
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Call constantes
'ouvre l'archivage
Workbooks.Open Filename:=CheminHist & NomFichHist
'compteur
Workbooks(NomFichHist).Sheets("Archivage").Range("A1:h1").Select
Range(Selection, Selection.End(xlDown)).Select
[/highlight ]
avec "constantes" ma procédure fixant les variables. En lançant ce code il m'ouvre correctement le classeur mais la variable "NomFichHist ce vidait juste après. J'ai donc rassembler ces ligne dans une procédure "debut" que j'ai mise dans un module et là ça marche... Mais pourquoi, mystère!^^.
[code=vb]
Private Sub Workbook_Open()
Dim DerniereDate$, NouveauNumFact$
Dim ListeFacture
Dim Annul%, paye%, impaye%, ouverte%, i%, compteur%
Dim ArgentManque@, ArgentEu@, ArgentAttente@, ArgentAnnul@, ArgentTOT@
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Call constantes
Call debut
[/highlight ]