begin process at 2012 02 17 02:54:22
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBA

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

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


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Niveau :Débutant Date de création :28/05/2003 Date de mise à jour :28/05/2003 11:35:26 Vu :8 883
Auteur : mfouque

Ecrire un message privé
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


 Sources de la même categorie

Source avec Zip Source avec une capture OUTLOOK ATTACHEMENT SAVER par MoiLafouine
Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert
Toutes les sources de la catégorie VBA

Commentaires et avis

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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,749 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)