infos macro enregistrement autre classeur

[ironangel]

Bonjour,

J'ai essayé de creer une macro via l'enregistreur de macro visant a copier un fichier et à l'enregistrer dans un autre classeur, mais quand je l'éxécute, il me copie dans la meme feuille au lieu du classeur séléctionné

Pour infos: la macro est la suivante:

Sub enregistrement_autre_classeur()
'
' enregistrement_autre_classeur Macro
'
'

'
Range("A1:L35").Copy
Application.WindowState = xlMinimized
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save

End Sub

Merci de vos réponses
Cordialement

 

[mercant76]

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.

@+

 

[Catrice]

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

 

[ironangel]

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?

 

[Catrice]

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

 

[GCFRG]

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