Copie plage cellules dans un onglet d'un autre fichier

Copie plage cellules dans un onglet d'un autre fichier - VB/VBA/VBS - Programmation

Marsh Posté le 17-06-2006 à 09:00:54    

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 :
  1. Sub Insertion_onglet()
  3. Dim Emplacement As String
  4. Dim W1 As Workbook
  5. Dim titi As String
  8. Set W1 = ThisWorkbook
  9. titi = Range("E126" )
  10. Emplacement = ActiveWorkbook.Sheets(2).Range("E124" )
  11.    
  12.    
  14. W1.Activate
  15.     Sheets(2).Select
  16.     Range("A1:H115" ).Select
  17.     Application.CutCopyMode = False
  18.     Selection.Copy
  19.      
  21.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  22.         :=False, Transpose:=False
  23.     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
  24.         SkipBlanks:=False, Transpose:=False
  25.  
  26.    ChDir _
  27.         Emplacement
  28.            
  29.    Workbooks.Open Filename:= _
  30.         Emplacement & "\" & Range("E125" ) & ".xls"
  31.    
  32.     Sheets.Add
  33.     Sheets("Feuil1" ).Select
  34.     Sheets("Feuil1" ).Name = titi
  35.     Range("A1" ).Select
  36.     Cells.Select
  37.     Selection.Paste
  38.     Application.CutCopyMode = False
  39.     ActiveWorkbook.Save
  40.     ActiveWindow.Close
  41.    
  42. End Sub

Reply

Marsh Posté le 17-06-2006 à 09:00:54   

Reply

Marsh Posté le 17-06-2006 à 09:29:50    

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
Reply

Marsh Posté le 17-06-2006 à 09:47:04    

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

Reply

Marsh Posté le 17-06-2006 à 10:59:39    

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+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed