copier coller vers classeur inactif

[gvives]

Bonjour à tous,

Je souhaiterais copier / coller les cellules (A1:A9) du classeur ouvert (feuille "Trame") vers un classeur inactif présent dans c:\toto\tampon.xlsx sur la feuil1 (B1:B9) lors d’un worksheet_change.

Pourriez-vous m’aider pour rédiger ce code.

Merci par avance.

 

[job75]

Re : copier coller vers classeur inactif

Bonjour gvives,

Par "inactif" vous voulez sans doute dire "fermé".

Sujet maintes fois traité, faites une recherche sur "Classeur fermé".

A+

 

[MJ13]

Re : copier coller vers classeur inactif

Bonjour gvives, Job

Je souhaiterais copier / coller les cellules (A1:A9) du classeur ouvert (feuille "Trame") vers un classeur inactif présent dans c:\toto\tampon.xlsx sur la feuil1 (B1:B9) lors d’un worksheet_change.

Il me semble, Job 🙂 que dans ce sens ce n'est pas si simple, enfin, je l'ai rarement vu 😱.

 

[job75]

Re : copier coller vers classeur inactif

Bonjour Michel,

Même dans ce sens il y a beaucoup d'exemples !

Mais effectivement si l'on utilise la méthode ADO il y a en général des problèmes...

Perso je préfère de loin, très simplement et très classiquement, ouvrir puis fermer le fichier :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A9]) Is Nothing Then Exit Sub
Dim fichier$, feuil$
fichier = "C:\toto\tampon.xlsx" 'à adapter
feuil = "Feuil1" 'à adapter
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier est introuvable ou s'il est déjà ouvert
With Workbooks.Open(fichier)
  [A1:A9].Copy .Sheets(feuil).[B1]
  .Close True
End With
End Sub

La macro est à mettre bien sûr dans le code de la feuille source "Trame".

A+

 

[gvives]

Re : copier coller vers classeur inactif

Merci beaucoup Job75 !

Je vais essayer d'adapter le code ... Heu juste une petite remarque visuelle ... Je ne vois pas le code "Paste" est-ce normal ?

Merci encore 😉

 

[job75]

Re : copier coller vers classeur inactif

Re,

Je ne vois pas le code "Paste" est-ce normal ?

Voyez cette syntaxe dans l'aide VBA, on peut comme ici se passer de Paste.

L'enregistreur de macro l'utilise bien sûr mais c'est en général inutile.

A+

 

[gvives]

Re : copier coller vers classeur inactif

Le code fonctionne à merveille ! Merci Job75...

Juste une question... comment intégrer un copier coller valeur (car les cellules d'origine sont des formules...)

 

[job75]

Re : copier coller vers classeur inactif

Re,

comment intégrer un copier coller valeur

[A1:A9].Copy .Sheets(feuil).[B1] 'facultatif, pour copier les formats
.Sheets(feuil).[B1:B9] = [A1:A9].Value 'copie les valeurs

Ne pas oublier le point devant Sheets...

A+

 

[gvives]

Re : copier coller vers classeur inactif

Ha suuuuupeerrrrr !!

Merci beaucoupp 🙂

Bonne soirée !!