infos macro enregistrement autre classeur

M

mercant76

XLDnaute Impliqué

• 19 Mars 2009

• #2

Re : infos macro enregistrement autre classeur

bonjour,

à priori c'est normal : tu copies et ensuite tu colles sans indication, donc collage dans la même feuille.

Range("A1:L35").Select
Selection.Copy
Windows("2 ème Classeur").Activate
Range("E3").Select
ActiveSheet.Paste

ensuite tu ajoutes si besoin, la sauvegarde et fermeture.

@+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 20 Mars 2009

• #3

Re : infos macro enregistrement autre classeur

Bonjour,

Tu peux également adapter quelque chose comme ceci :

Sub enregistrement_autre_classeur()
Workbooks("Classeur1.xls").Sheets("Feuil1").Range("A1:L35").Copy Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1")
End Sub

 

Vote positif 0 Vote négatif

I

ironangel

XLDnaute Occasionnel

• 20 Mars 2009

• #4

Re : infos macro enregistrement autre classeur

Merci catrice,

Mais dit moi, il faut forcément ouvrir l'autre classeur? il n'y a pas un moyen de faire un copier coller dans un autre classeur sans avoir à l'ouvrir?

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 20 Mars 2009

• #5

Re : infos macro enregistrement autre classeur

Re,

On peut utiliser ADO.
Voir ces liens :
Lire et écrire dans les classeurs Excel fermés - Club d'entraide des développeurs francophones
Ce lien n'existe plus

 

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 20 Mars 2009

• #6

Re : infos macro enregistrement autre classeur

Salut, un autre moyen de lire dans un fichier fermé
Sub test()
Dim chemin As String, Fichier As String
chemin = "test\"
Fichier = "Classeur2.xls"
With Sheets("Feuil2")
.Cells(1, 1).Formula = "='C:\" & chemin & "[" & Fichier & "]feuil1" & "'!" & "a1"
End With
End Sub
tu peux boucler sur toutes les cellules et sur toutes les feuilles que tu veux avec une boucle For par exemple

Gilbert

 

Vote positif 0 Vote négatif