AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 00:14:18
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

COPIER COLLER D'UNE FEUILLEA DE FICHIERA VERS FEUILLEB DE FICHIERB EXCEL


Information sur la source

Catégorie :VBA Niveau : Débutant Date de création : 28/05/2003 Date de mise à jour : 28/05/2003 11:35:26 Vu : 7 180
Auteur : mfouque Ecrire un message privé
Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

Description

Fonction qui copie colle un onglet d'un premier fichier EXCEL vers un autre onglet d'un autre fichier excel
 

Source

  • Function Importation_donnees_Rnd(FichierSource As String, FichierDest As String, OngletSource As String, OngletDest As String)
  • Set Fichier_xls_Source = GetObject(FichierSource)
  • Set Fichier_xls_Source = GetObject(, "Excel.application")
  • Fichier_xls_Source.Application.Visible = True
  • Fichier_xls_Source.Application.Workbooks.Open FileName:=FichierSource
  • Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Activate
  • Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Cells.Select
  • Fichier_xls_Source.Application.Selection.Copy
  • Set Fichier_xls_dest = CreateObject("Excel.application")
  • Fichier_xls_dest.DisplayAlerts = False
  • Fichier_xls_dest.Workbooks.Open FileName:=FichierDest, editable:=True
  • Fichier_xls_dest.Visible = True
  • Fichier_xls_dest.Application.Worksheets(OngletDest).Activate
  • Fichier_xls_dest.Application.Worksheets(OngletDest).Cells.Select
  • Fichier_xls_dest.Application.Worksheets(OngletDest).Paste
  • Fichier_xls_dest.Application.DisplayAlerts = False
  • Fichier_xls_dest.ActiveWorkbook.SaveAs FileName:=FichierDest
  • Fichier_xls_dest.Application.Quit
  • Fichier_xls_dest.Application.DisplayAlerts = True
  • Fichier_xls_Source.Application.DisplayAlerts = False
  • Fichier_xls_Source.Application.Quit
  • Fichier_xls_Source.Application.DisplayAlerts = True
  • Set Fichier_xls_Source = Nothing
  • Set Fichier_xls_dest = Nothing
  • End Function
Function Importation_donnees_Rnd(FichierSource As String, FichierDest As String, OngletSource As String, OngletDest As String)
  
  
  Set Fichier_xls_Source = GetObject(FichierSource)
  Set Fichier_xls_Source = GetObject(, "Excel.application")

  Fichier_xls_Source.Application.Visible = True
  
  
  Fichier_xls_Source.Application.Workbooks.Open FileName:=FichierSource
  
  
  Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Activate
  Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Cells.Select
  Fichier_xls_Source.Application.Selection.Copy
  
  
  Set Fichier_xls_dest = CreateObject("Excel.application")
  
  Fichier_xls_dest.DisplayAlerts = False
  Fichier_xls_dest.Workbooks.Open FileName:=FichierDest, editable:=True
  Fichier_xls_dest.Visible = True
  
  
  Fichier_xls_dest.Application.Worksheets(OngletDest).Activate
  
  Fichier_xls_dest.Application.Worksheets(OngletDest).Cells.Select
  Fichier_xls_dest.Application.Worksheets(OngletDest).Paste
  
  Fichier_xls_dest.Application.DisplayAlerts = False
  Fichier_xls_dest.ActiveWorkbook.SaveAs FileName:=FichierDest
  Fichier_xls_dest.Application.Quit
  Fichier_xls_dest.Application.DisplayAlerts = True
  
  Fichier_xls_Source.Application.DisplayAlerts = False
  Fichier_xls_Source.Application.Quit
  Fichier_xls_Source.Application.DisplayAlerts = True
 
  Set Fichier_xls_Source = Nothing
  Set Fichier_xls_dest = Nothing
  
End Function

Conclusion

Ne pas oublier de cocher la case dans "Projet" "Reference"
Microsoft EXCEL x.x object library
 

Commentaires et avis

signaler à un administrateur
Commentaire de GMACJONES le 14/09/2008 19:05:43

Bonjour,

(excusez-moi par avance pour l'absence d'accents, mais c'est plus complique d'en mettre avec un clavier QWERTY)

au hasard du site, j'ai essaye de concocter une macro qui me permette d'ouvrir un fichier excel B depuis un fichier excel A, d'y copier certaines donnees du fichier A, puis en parallele d'ouvrir Outlook et de preparer l'envoi d'un message.
Cependant, meme si le fichier B s'ouvre, la copie ne s'effectue pas. De plus Outlook ne s'ouvre carrement pas du tout. Ce deuxieme point pourrait etre laisse de cote pour l'instant : j'ai vu qu'il y avait un post a ce sujet et je ne souhaite pas vous faire perdre votre temps. Mais pensez-vous pouvoir m'aider sur la premiere partie du code VBA?

Voici la macro en entier :

Sub Deny3()
'
' Deny3 Macro
' Macro recorded 11/09/2008 by julien
'

'
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

Sheets("Automatic Denial Spreadsheet").Select
    Range("B2:B11").Select
    Selection.Copy
    

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
appExcel.Workbooks.Open ("C:\-----------------\Exception Work order template.xls")
appExcel.Visible = True

Windows("Exception Work order template.xls").Activate
Sheets("General").Select
    Range("B3:B12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
    Dim MonOutlook As Object
  Dim MonMessage As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.from = "blabla@bla.com"
  MonMessage.cc = "blabla@bla.com"
  MonMessage.Subject = "Non bla bla bla"
  Corps = "Hi"
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & "Voici le fichier convenu."
  MonMessage.body = Corps
  Set MonOutlook = Nothing

End Sub


Merci par avance pour votre reponse,

Julien

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


RIM BlackBerry Storm 9530
Entre 72€ et 72€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo jolie femme ronde et mature 

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,281 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.