1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Copier coller des cellules et les coller dans un nouveau classeur

Signaler
Messages postés
1
Date d'inscription
vendredi 13 mars 2009
Statut
Membre
Dernière intervention
13 mars 2009
 -
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012
 -
Bonjour.

Voila je voudrais avoir un code pour pouvoir copier des cellules d'une feuille et la coller dans un nouveau classeur en gardant la meme mise en page .

je travaille sur excel 2007

merci
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012
Bonjour,
Si vous avez trouvé le code cela m’intéresserait ?
Réponse 2 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 233
Bonjour, ossama261988,
Si vous avez trouvé le code cela m’intéresserait ?

Pourquoi ce sujet est-il resté sans réponse ?
Tout simplement car il suffit d'utiliser la méthode Copy (ouvre ton aide VBA sur ce mot) et regarde la rubruque Range.Copy (assortie d'un exemple, en plus).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 3 / 5
Messages postés
453
Date d'inscription
dimanche 20 août 2006
Statut
Membre
Dernière intervention
11 janvier 2013
 10
bonjour,
je suis d'accord avec ucfoutu,il vous suffit de regarder :

ici.

une fois l'interrop référencé vous avez accès au fonctionnalité de excel.....
Réponse 4 / 5
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 233
Pourquoi ?
Alors que
Tout simplement car il suffit d'utiliser la méthode Copy (ouvre ton aide VBA sur ce mot) et regarde la rubrique Range.Copy (assortie d'un exemple, en plus).

Il y trouvera quasiment son code !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Réponse 5 / 5
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012
C'est cool j'ai réussit merci pour vos réponses.

Voilà le code :

Private Sub ExtraireLesAdressesDesFOAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtraireLesAdressesDesFOAToolStripMenuItem.Click
Dim donnees, donnees1, donnees3, donnees4 As String
Dim donnees2 As Integer
Dim appexcel, appexcel1 As Microsoft.Office.Interop.Excel.Application
Dim wbexcel, wbexcel1 As Microsoft.Office.Interop.Excel.Workbook
Dim osheet, osheet1 As Microsoft.Office.Interop.Excel.Worksheet
appexcel1 = CreateObject("excel.application")
appexcel1.Visible = True
wbexcel1 = appexcel1.Workbooks.Open("C:\Users\Normane\Desktop\FOA de Test\essai.xls")
osheet1 = wbexcel1.Worksheets.Item(1)
osheet1.Cells(1, 3) = "Adresses"
osheet1.Cells(1, 1) = "Type de Chambres"
osheet1.Cells(1, 2) = "Numéro de Chambres"
With osheet1.Range("A1", "C1")
.Font.Bold = True
End With
donnees2 = 0
For Each donnees In OpenFileDialog1.FileNames

appexcel = CreateObject("excel.application")
appexcel.Visible = False
wbexcel = appexcel.Workbooks.Open(donnees)
osheet = wbexcel.Worksheets.Item(1)
donnees1 = osheet.Cells(3, 11).value
donnees3 = osheet.Cells(2, 18).value
donnees4 = osheet.Cells(2, 29).value


osheet1.Cells(2 + donnees2, 3).value = donnees1
osheet1.Cells(2 + donnees2, 1).value = donnees4
osheet1.Cells(2 + donnees2, 2).value = donnees3

donnees2 = donnees2 + 1

Next
wbexcel1.Save()
wbexcel1 = Nothing
appexcel1.Application.Workbooks.Close()
appexcel1.Quit()
End Sub
Répondre Posez votre question