Accueil > Forum > > > > Copy de cellules
 Copy de cellules
lundi 16 septembre 2002 à 23:01:02 |
Copy de cellules
tiflo
|
Bonsoir à tous : Etant débutant en VB, je souhaite créer une routine VB, qui copie une plage de cellule d'un classeur Excel dans un autre classeur, cela sans ouvrir Excel. Malgré la consultation des codes déjà existant, j'ai du mal pour le moment à les adapter pour mes besoins. Si qq1 peut m'aider, merci d'avance ! |
|
mardi 17 septembre 2002 à 14:53:24 |
Re : Copy de cellules
imer
|
'Menu Options/Références, cocher Microsoft Excel X.X Object Library
'Dans une form avec un bouton Command1
Option Explicit
Private Type cellules
Classeur As String
Feuille As String
Col1 As Variant
ColN As Variant
Ligne1 As Long
LigneN As Long
End Type
Private Sub Command1_Click()
Dim cellSrc As cellules
Dim cellDest As cellules
With cellSrc
.Classeur = "c:\Src.xls"
.Feuille = "Src"
.Col1 = "A"
.Ligne1 = 1
.ColN = 12
.LigneN = 3
End With
With cellDest
.Classeur = "c:\Dest.xls"
.Feuille = "Cible"
.Col1 = "A"
.Ligne1 = 1
End With
Call CopierCellules(cellSrc, cellDest)
End Sub
Private Function CopierCellules(Src_Cell As cellules, Dest_Cell As cellules)
Dim XlApp As Excel.Application
Dim Cell1 As Excel.Range
Dim CellN As Excel.Range
Set XlApp = New Excel.Application
XlApp.Workbooks.Open Src_Cell.Classeur, , True
XlApp.ActiveWorkbook.Worksheets(Src_Cell.Feuille).Activate
If IsNumeric(Src_Cell.Col1) = True Then
Set Cell1 = XlApp.ActiveSheet.Cells(Src_Cell.Ligne1, Src_Cell.Col1)
Else
Set Cell1 = XlApp.ActiveSheet.Range(CStr(Src_Cell.Col1) & CStr(Src_Cell.Ligne1))
End If
If IsNumeric(Src_Cell.ColN) = True Then
Set CellN = XlApp.ActiveSheet.Cells(Src_Cell.LigneN, Src_Cell.ColN)
Else
Set CellN = XlApp.ActiveSheet.Range(CStr(Src_Cell.ColN) & CStr(Src_Cell.LigneN))
End If
XlApp.Workbooks(1).Worksheets(Src_Cell.Feuille).Range(Cell1, CellN).Copy
If Dir(Dest_Cell.Classeur) <> "" Then
XlApp.Workbooks.Open Dest_Cell.Classeur
Else
XlApp.Workbooks.Add
XlApp.ActiveSheet.Name = Dest_Cell.Feuille
XlApp.ActiveWorkbook.SaveAs Dest_Cell.Classeur
End If
XlApp.ActiveWorkbook.Worksheets(Dest_Cell.Feuille).Activate
If IsNumeric(Dest_Cell.Col1) = True Then
XlApp.ActiveSheet.Cells(Dest_Cell.Ligne1, Dest_Cell.Col1).Paste
Else
XlApp.ActiveSheet.Range(CStr(Dest_Cell.Col1) & CStr(Dest_Cell.Ligne1)).Select
XlApp.ActiveSheet.Paste
End If
XlApp.ActiveWorkbook.Save
Do Until XlApp.Workbooks.Count = 0
XlApp.Workbooks(1).Close False
Loop
XlApp.Quit
Set XlApp = Nothing
End Function
-------------------------------
Réponse au message :
-------------------------------
Bonsoir à tous :
Etant débutant en VB, je souhaite créer une routine VB, qui copie une plage de cellule d'un classeur Excel dans un autre classeur, cela sans ouvrir Excel.
Malgré la consultation des codes déjà existant, j'ai du mal pour le moment à les adapter pour mes besoins.
Si qq1 peut m'aider, merci d'avance !
|
|
mardi 17 septembre 2002 à 19:47:26 |
Re : Copy de cellules
tiflo
|
Merci pour les infos !
-------------------------------
Réponse au message :
-------------------------------
'Menu Options/Références, cocher Microsoft Excel X.X Object Library
'Dans une form avec un bouton Command1
Option Explicit
Private Type cellules
Classeur As String
Feuille As String
Col1 As Variant
ColN As Variant
Ligne1 As Long
LigneN As Long
End Type
Private Sub Command1_Click()
Dim cellSrc As cellules
Dim cellDest As cellules
With cellSrc
.Classeur = "c:\Src.xls"
.Feuille = "Src"
.Col1 = "A"
.Ligne1 = 1
.ColN = 12
.LigneN = 3
End With
With cellDest
.Classeur = "c:\Dest.xls"
.Feuille = "Cible"
.Col1 = "A"
.Ligne1 = 1
End With
Call CopierCellules(cellSrc, cellDest)
End Sub
Private Function CopierCellules(Src_Cell As cellules, Dest_Cell As cellules)
Dim XlApp As Excel.Application
Dim Cell1 As Excel.Range
Dim CellN As Excel.Range
Set XlApp = New Excel.Application
XlApp.Workbooks.Open Src_Cell.Classeur, , True
XlApp.ActiveWorkbook.Worksheets(Src_Cell.Feuille).Activate
If IsNumeric(Src_Cell.Col1) = True Then
Set Cell1 = XlApp.ActiveSheet.Cells(Src_Cell.Ligne1, Src_Cell.Col1)
Else
Set Cell1 = XlApp.ActiveSheet.Range(CStr(Src_Cell.Col1) & CStr(Src_Cell.Ligne1))
End If
If IsNumeric(Src_Cell.ColN) = True Then
Set CellN = XlApp.ActiveSheet.Cells(Src_Cell.LigneN, Src_Cell.ColN)
Else
Set CellN = XlApp.ActiveSheet.Range(CStr(Src_Cell.ColN) & CStr(Src_Cell.LigneN))
End If
XlApp.Workbooks(1).Worksheets(Src_Cell.Feuille).Range(Cell1, CellN).Copy
If Dir(Dest_Cell.Classeur) <> "" Then
XlApp.Workbooks.Open Dest_Cell.Classeur
Else
XlApp.Workbooks.Add
XlApp.ActiveSheet.Name = Dest_Cell.Feuille
XlApp.ActiveWorkbook.SaveAs Dest_Cell.Classeur
End If
XlApp.ActiveWorkbook.Worksheets(Dest_Cell.Feuille).Activate
If IsNumeric(Dest_Cell.Col1) = True Then
XlApp.ActiveSheet.Cells(Dest_Cell.Ligne1, Dest_Cell.Col1).Paste
Else
XlApp.ActiveSheet.Range(CStr(Dest_Cell.Col1) & CStr(Dest_Cell.Ligne1)).Select
XlApp.ActiveSheet.Paste
End If
XlApp.ActiveWorkbook.Save
Do Until XlApp.Workbooks.Count = 0
XlApp.Workbooks(1).Close False
Loop
XlApp.Quit
Set XlApp = Nothing
End Function
-------------------------------
Réponse au message :
-------------------------------
Bonsoir à tous :
Etant débutant en VB, je souhaite créer une routine VB, qui copie une plage de cellule d'un classeur Excel dans un autre classeur, cela sans ouvrir Excel.
Malgré la consultation des codes déjà existant, j'ai du mal pour le moment à les adapter pour mes besoins.
Si qq1 peut m'aider, merci d'avance !
|
|
Cette discussion est classée dans : vb, excel, cellules, classeur, copy
 Répondre à ce message
 Sujets en rapport avec ce message
Copy cellules [ par tiflo ]
Bonsoir à tous :Etant débutant en VB, je souhaite créer une routine VB, qui copie une plage de cellule d'un classeur Excel dans un autre classeur, ce
Excel Copy en conservant les cellules invisibles invisible [ par ricomiracle ]
Bonjour, J'ai besoin pour une application VB qui se sert d'Excel de copier des onglets du classeurs. FeuilleSource ->FeuilleSource.Copy Mais la feuil
Excel et VB [ par djoule86 ]
Help !Y'a t'il une bonne âme pour me guider ???* J'ai un modèle Bon de commande.xlt, avec 4 onglets : "Bon Commande Client", "Bon commande vendeur", "
VB entre Plusieurs classeurs excel [ par eldim ]
Bonjour à tous !Savez-vous comment appeler le code visual basic d'un classeur à partir d'un module d'un autre classeur J'ai besoins d'utiliser les fon
Identification des cellules Excel dans VB [ par FGIO51 ]
Bonjour, Je viens de voir qu'une partie de mon code s'execute mal car il ne trouve pas mes cellules. Exemple: Au départ je codais ceci: Ran
Modifier des données Excel avec VB.NET [ par guisemon ]
Bonjour,Je souhaite modifier les cellules et les colonnes d'une feuille excel dont la structure est deja crééevoila ce que je souhaite faire : Metr
enregistrement de classeur excel sans les modules vb [ par payhpayh7 ]
Bonjour à tous, je voudrais un code qui m'enregistre mon active classeur en cours sans enregistrer l'ensemble des macros et environnement vb, juste le
excel with VB [ par armiss ]
comment importer des valeurs dans des cellules d'un classeur excel vers un autre classeur? et si les resultats de ce dernier se trouve sur une clonne
Macro-Excel-VB [ par reggenzi ]
Bonjour,j'ai un problème avec excel, j'ai un fichier excel A dont le contenu de cellules équivaut au contenu des autres cellules située dans un autre
VB.NET souligner des cellules Excel [ par filou ]
Bonjour,Depuis VB je crée un fichier excel que je remplis avec des données d'un DataTable.J'aimerai souligner toutes les cellules d'une plage.J'ai ess
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|