Ouverture automatique d'un fichier excel?

[chris]

Bonjour,

Je n'arrive pas à faire en sorte que ma macro écrive dans un fichier .xls sans que celui-ci soit déjà ouvert! En fait je veux passer en paramètre mon nom de fichier.xls et je veux que la macro aille l'ouvrir pour ensuite copier les infos?

J'ai déjà essayer avec .Open mais çà ne fonctionne pas.

Merci d'avance

 

[wally]

Bonjour chris et le forum,

Voici un petit exemple :

Dim sWbk As String
Dim oWbk As Workbook

'Définir le classeur à ouvrir
sWbk = "C:\MonChemin\MonClasseur.xls"

'Ouvrir le classeur
Set oWbk = Workbooks.Open(sWbk)

'Ecrire une valeur
oWbk.Worksheets("Feuil1").Range("A1").Value = "MaValeur"

'Fermer et enregistrer le classeur
oWbk.Close True

'Libérer les ressources
Set oWbk = Nothing


Slts

wally