Copie plage cellules dans un onglet d'un autre fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Copie plage cellules dans un onglet d'un autre fichier

LeSqual

Voila, tout est à peu près dans le titre.
J'ai un programme qui est "sensé" recopier une plage de cellule de mon fichier actif dans un autre fichier (dont le chemin est indiqué dans une cellule, le nom du fichier dans une autre cellule et le nom du nouvel onglet à crée dans une tierve cellule).

Cependant mon programme répuère bien le fichier, l'ouvre, créer bien mon nouvel onglet mais je n'arrive pas à coller ma plage de cellule sélectionnée dedans ... normalement c'est là que vous intervenez ! (enfin je l'espère vraiment )

Voici mon PG:

Code :

Sub Insertion_onglet()
Dim Emplacement As String
Dim W1 As Workbook
Dim titi As String
Set W1 = ThisWorkbook
titi = Range("E126" )
Emplacement = ActiveWorkbook.Sheets(2).Range("E124" )
W1.Activate
Sheets(2).Select
Range("A1:H115" ).Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ChDir _
Emplacement
Workbooks.Open Filename:= _
Emplacement & "\" & Range("E125" ) & ".xls"
Sheets.Add
Sheets("Feuil1" ).Select
Sheets("Feuil1" ).Name = titi
Range("A1" ).Select
Cells.Select
Selection.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

Publicité

galopin01

bonjour,
remplacer les lignes 32 à 37 par :

Sheets.Add
ActiveSheet.Name = titi
'Range("A1" ).Select 'inutile pour Range("A1" )
ActiveSheet.Paste

A+

Message édité par galopin01 le 17-06-2006 à 09:30:37

LeSqual

et bien merci et si en plus tu pouvais me dire comment faire pour garder la mise en forme de ma plage de cellule dan sle nouvel onglet ce serait géant

Mais en tout cas merci bcp

galopin01

bonjour,
par défaut Paste copie également les formats
- Sauf largeur de colonne et hauteur de ligne pour lesquels il faudra que tu gères des variables en tableau ou que tu procèdes en boucle.

Nota : Pour les largeurs de colonne il y a un PasteSpécial :
Selection.PasteSpecial Paste:=xlPasteColumnWidths

curieusement il n'existe pas d'équivalent pour les hauteurs de lignes qu'il faut se coltiner à la manivelle...

A+

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Copie plage cellules dans un onglet d'un autre fichier

Sujets relatifs
vba : impression avec PDFcreator d'un fichier excel	Macro - Verrouillage de cellules
Protection et signature d'un fichier excel	un "fclose" après modification d'un fichier xml
[Xml/Excel] Ouverture fichier xml avec excel2000	[Résolu]extraire un fichier .zip en vba?
Actualisation de tableau croisé dynamique sur plage variable	choix entreun fichier texte ou une bd mysql
Parser un fichier xml volumineux sur plusieurs pages ?	Récupérer contenu d'un fichier word
Plus de sujets relatifs à : Copie plage cellules dans un onglet d'un autre fichier

Page générée en 0.056 secondes