Activer un fichier

[galopin01]

bonjour,
Essaie ça :

Code: Tout sélectionner

Sub Test()
'Nom de la feuille cible
Dest = Feuil1.Name
'Vieux suivi de mandats
Chemin = [Chemin]
fichier = [Nom1]
'On ouvre et copie les données du vieux
Workbooks.Open Filename:=Chemin & "\" & fichier & ".xls"
With ActiveWorkbook
ActiveSheet.Cells.Copy ThisWorkbook.Worksheets(Dest).Range("A1")
.Saved = True
.Close
End With
End Sub

A+

[Edit] Activer ou Selecter quoique ce soit nuit gravement à VBA : A proscrire !

[vinc87]

Merci pour toute ton aide !

Vincent