copier coller vers classeur inactif

job75

XLDnaute Barbatruc

• 10 Décembre 2012

• #2

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+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 10 Décembre 2012

• #3

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2012

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 10 Décembre 2012

• #5

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 😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2012

• #6

Re : copier coller vers classeur inactif

Re,

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 10 Décembre 2012

• #7

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...)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2012

• #8

Re : copier coller vers classeur inactif

Re,

comment intégrer un copier coller valeur

Cliquez pour agrandir...

Code:

[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+

 

Vote positif 0 Vote négatif

G

gvives

XLDnaute Occasionnel

• 10 Décembre 2012

• #9

Re : copier coller vers classeur inactif

Ha suuuuupeerrrrr !!

Merci beaucoupp 🙂

Bonne soirée !!

 

Vote positif 0 Vote négatif