A voir également:
- Comment recuperer la valeur d'une cellule?
- Comment recuperer un message supprimé sur whatsapp - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Recuperer video youtube - Guide
- Comment récupérer un compte facebook piraté - Guide
- Excel cellule couleur si condition texte - Guide
4 réponses
charles1453
Messages postés
172
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
8 février 2013
17
20 juin 2010 à 16:45
20 juin 2010 à 16:45
salut,
voici le code avec vb2008 ou vb2010
Public xlApp As Excel.Application
Public xlBook As Workbook
Public xlSheet1 As Worksheet
Public xlSheet2 As Worksheet
'--- Ouvrir le fichier ---
xlApp = New Excel.Application
xlBook = xlApp.Workbooks.Open("C:\Chemin\fichier.xlsx")
xlSheet1 = xlBook.Worksheets("feuil1")
xlSheet2 = xlBook.Worksheets("feuil2")
xlSheet.Visible = True
xlApp.Visible = False
xlApp.DisplayAlerts = False
'-----copie des données-----
xlSheet2.Range("C1").Value = xlSheet1.Range("A1").Value
'----on save et on feme----
xlbook.save()
xlbook.close()
voici le code avec vb2008 ou vb2010
Public xlApp As Excel.Application
Public xlBook As Workbook
Public xlSheet1 As Worksheet
Public xlSheet2 As Worksheet
'--- Ouvrir le fichier ---
xlApp = New Excel.Application
xlBook = xlApp.Workbooks.Open("C:\Chemin\fichier.xlsx")
xlSheet1 = xlBook.Worksheets("feuil1")
xlSheet2 = xlBook.Worksheets("feuil2")
xlSheet.Visible = True
xlApp.Visible = False
xlApp.DisplayAlerts = False
'-----copie des données-----
xlSheet2.Range("C1").Value = xlSheet1.Range("A1").Value
'----on save et on feme----
xlbook.save()
xlbook.close()
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
20 juin 2010 à 17:38
20 juin 2010 à 17:38
Bonjour,
En VBA, puisqu'il s'agit d'une macro et non d'une utilisation d'Excel par une autre application ^^ :
Tout simplement
;o)
En VBA, puisqu'il s'agit d'une macro et non d'une utilisation d'Excel par une autre application ^^ :
Worksheets(2).Range("C1").Value = Worksheets(1).Range("A1").Value
Tout simplement
;o)
charles1453
Messages postés
172
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
8 février 2013
17
20 juin 2010 à 18:06
20 juin 2010 à 18:06
autant pour moi, j'avais pas lu "macro".