Visible = false ??

[Guest_imported]

Hi!

When I run the macro "Inserer_Initiales_Representants" (see below)

The file "Representants par departements.xls." appears for a fraction of a second.

my question is:
can I get the information from "Representants par departements.xls." with out the file showing up?

thanks,
"A beginner that tried many things"

Sub Inserer_Initiales_Representants()
Dim ClasseurRepresentants As Workbook
Dim NumDepartement As String
Dim colonne As Variant
Dim Initiales
Set ClasseurRepresentants = _
GetObject("c:\Representants par departements.xls.&quot
Range("D4&quot.Select
While ActiveCell.Value <> &quot;&quot;
NumDepartement = Left(ActiveCell.Value, 2)
colonne = ClasseurRepresentants.Sheets(1).Range(&quot;A1:I50&quot.Find _
(what:=NumDepartement, LookIn:=xlFormulas, lookat:=xlWhole).Address
colonne = Range(colonne).Column
colonne = CInt(colonne)
Initiales = ClasseurRepresentants.Sheets(1).Cells(3, colonne).Comment.Text
ActiveCell.Offset(0, -1).Range(&quot;A1&quot.Select
ActiveCell.FormulaR1C1 = Initiales
ActiveCell.Offset(1, 1).Range(&quot;A1&quot.Select
Wend
Set ClasseurRepresentants = Nothing
Workbooks(&quot;representants par departements.xls&quot.Close
End Sub

 

[ratman]

Application.ScreenUpdating = False Thank you,
Dave Rattigan

 

[Guest_imported]

Thanks! Ratman

Not only does this work but it also speeds up the Macro.

thanks again !I really appreciate