SOS: copie de feuille dans un autre classeur
Fermé
bocman
-
15 févr. 2012 à 09:54
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 févr. 2012 à 07:02
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 févr. 2012 à 07:02
A voir également:
- SOS: copie de feuille dans un autre classeur
- Lien copie - Forum Android
- Copie cachée - Guide
- Vba copier une feuille dans un autre classeur ✓ - Forum VB / VBA
- Lien copié - Forum Android
- Super copie - Télécharger - Gestion de fichiers
2 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 15/02/2012 à 13:37
Modifié par lermite222 le 15/02/2012 à 13:37
Bonjour, bonjour pijaku,
Apparemment le feuille EXTRACTION est soit vide ou les données existantes sont écrasées.
Dans ces conditions, une autre solution...
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Apparemment le feuille EXTRACTION est soit vide ou les données existantes sont écrasées.
Dans ces conditions, une autre solution...
Sub MAJ()
Dim NomSource As String, i As Integer
For i = 1 To Sheets.Count 'supprime la feuille EXTRACTION si existe
If Sheets(i).Name = "EXTRACTION" Then Sheets(i).Delete: Exit For
Next i
NomSource = "J:\Projet LP CAODAO\Projet 2.0\EXCEL\EXTRACTION.xls"
Workbooks.Open (NomSource)
ActiveWorkbook.Sheets("EXTRACTION").Copy before:=ThisWorkbook.Sheets(1)
ActiveWorkbook.Close
End Sub
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
15 févr. 2012 à 11:47
15 févr. 2012 à 11:47
Bonjour,
essayez ceci (non testé) :
essayez ceci (non testé) :
Sub ImportDonnees()
Dim Extraction As String, DernCel As String
Dim RngUtile As Range
Dim TablDonnées()
Dim Col As Long, Lig As Long, DrLig As Long
'ouverture du fichier "source"
Extraction = "J:\Projet LP CAODAO\Projet 2.0\EXCEL\EXTRACTION.xls"
Workbooks.Open (Extraction)
'on remplit une variable tableau (TablDonnées) avec les éléments contenus dans
'la feuille summary
With ActiveWorkbook.Worksheets("summary")
DernCel = .Range("A1").SpecialCells(xlCellTypeLastCell).Address
Set RngUtile = .Range("A1:" & DernCel)
TablDonnées() = RngUtile
End With
'on ferme le classeur source
ActiveWorkbook.Close
'restitution des données
With Workbooks("QAcier.xls").Worksheets("summary")
DrLig = .Range("A" & Rows.Count).End(xlUp).Row
For Col = 1 To UBound(TablDonnées, 2)
For Lig = 1 To UBound(TablDonnées, 1)
On Error Resume Next ' Si erreur renvoyée par une formule
.Cells(Lig + DrLig, Col) = TablDonnées(Lig, Col)
On Error GoTo 0
Next Lig
Next Col
End With
16 févr. 2012 à 10:06
Par contre j'aimerai que ça me ferme aussi EXTRACTION.xls
j'ai rajouter
Workbooks.close (NomSource) mais ça n'a pas l'air d'etre cela
Modifié par lermite222 le 16/02/2012 à 12:18
'.... ActiveWorkbook.Sheets("EXTRACTION").Copy before:=ThisWorkbook.Sheets(1) ActiveWorkbook.Close'Cette ligne
Pour sauver la modif et fermer le classeur . EXTRACTION.xls
A+
16 févr. 2012 à 18:45
mais pas le fichier EXTRACTION.xls
Modifié par lermite222 le 17/02/2012 à 07:02
WorkBooks("EXTRACTION.xls").close true