Afficher un message
Vieux 19/02/2005, 22h05   #2 (permalink)
myDearFriend
Guest
 
Messages: n/a
Par défaut Re: Comment ouvrir un classeur en le laissant inactif

Bonsoir Eric D,


Ci-dessous une procédure qui devrait faire ce que j'ai cru comprendre de ta demande d'origine...

Sub MAJClasseurCible()
Dim don As Variant
   'Détermination de la variable "don"
   don = ThisWorkbook.Sheets("Feuil1").Range("A90").Value
   'Ouverture du classeur cible
   Workbooks.Open "C:\ClasseurCible.xls"
   'Mise à jour de la cellule A100 de la feuille 1 de ce classeur cible (qui est devenu le classeur actif)
   ActiveWorkbook.Sheets("Feuil1"). Range("A100").Value = don
   'Sauvegarde et ferme le classeur de départ
   ThisWorkbook.Save
   ThisWorkbook.Close
End Sub

A noter qu'il convient de placer cette procédure dans un module de code "standard", c'est à dire autre qu'un module de code d'une feuille du classeur appelant.


Cordialement.

Didier_mDF