Copie de classeur à un autre
Résolu
achgel
Messages postés
113
Statut
Membre
-
achgel Messages postés 113 Statut Membre -
achgel Messages postés 113 Statut Membre -
Bonjour tous,
Je cherche une Macro qui pourra me permettre de copier une cellule A1 de la Feuille1 d'un classeur (Depart), vers une cellule C1 de la Feuille1 d'un autre classeur nommé (Arrivée)
Sous condition que la cellule C1 sauvegarde le chiffre copier de A1, ainsi de suite.
Merci d’avance.
Je cherche une Macro qui pourra me permettre de copier une cellule A1 de la Feuille1 d'un classeur (Depart), vers une cellule C1 de la Feuille1 d'un autre classeur nommé (Arrivée)
Sous condition que la cellule C1 sauvegarde le chiffre copier de A1, ainsi de suite.
Merci d’avance.
3 réponses
-
Bonjour Cher Ami,
au fait je veux copier des cellules, de mon choix, d'une feuille d'un classeur et coller dans une ligne d'une autre feuille d'un autre classeur préalablement fermé.
la prochaine ligne sera placée sous la ligne précédente.
Merci à vous.
---
-
Bonsoir,
Excusez moi, Je pense que je suis mal exprimé
Voila une Macro que j’utilise pour copier coller sur le même Classeur
je voudrais faire la même chose sauf que Sheets("Base") soit dans un autre Classeur
appeler (MS.xlsm)
Merci
Option Explicit
Sub Copy()
Dim LastRow As Long
Dim WsDepart As Worksheet
Dim WsDestination As Worksheet
Set WsDestination = Sheets("Base")
Set WsDepart = Sheets("Model")
' Cela suppose que la colonne C soit remplie
LastRow = WsDestination.Range("C" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
WsDepart.Range("C10").Copy 'Date Arrivée
WsDestination.Range("A" & LastRow + 1).PasteSpecial xlPasteValues
WsDepart.Range("C12").Copy 'Date Départ
WsDestination.Range("E" & LastRow + 1).PasteSpecial xlPasteValues
'
'
'
'
'J'ai 40 autre Cellules
Set WsDestination = Nothing
Set WsDepart = Nothing
ActiveWorkbook.Save
End Sub- Bonjour,
Z'etes toujours a l'ecoute ??????
Option Explicit Sub Copy() Dim LastRow As Long Dim WsDepart As Worksheet Dim WsDestination, Fichier_Ouvrir As String, nom_Fichier As String Application.ScreenUpdating = False Set WsDepart = Sheets("Model") 'nom de ficher a adapter Fichier_Ouvrir = "D:\_ACSV\classeur2.xlsx" 'nom du fichier avec extention nom_Fichier = Right(Fichier_Ouvrir, Len(Fichier_Ouvrir) - InStrRev(Fichier_Ouvrir, "\")) 'ouverture fichier2.xls* Workbooks.Open (Fichier_Ouvrir) Set WsDestination = Workbooks(nom_Fichier).Worksheets("Base") LastRow = WsDestination.Range("C" & Rows.Count).End(xlUp).Row + 1 'premiere cellule vide colonne C ' Cela suppose que la colonne C soit remplie WsDestination.Range("A" & LastRow) = WsDepart.Range("C10") 'Date Arrivée WsDestination.Range("E" & LastRow) = WsDepart.Range("C12") 'Date Départ 'J'ai 40 autres Cellules 'save classeur2 Workbooks(nom_Fichier).Close True 'libere la memoire Set WsDestination = Nothing Set WsDepart = Nothing Application.ScreenUpdating = True End Sub
-
-
ReBsr,
au fait quand je clic sur le bouton copier, le message suivant apparaît:
" Privacy Warning:this document contains macros,ActiveX controls,XML expansion pack information or web components. these may include personal information that cannot be removed by the document Inspector."
Comment faire pour ne pas recevoir ce message
Merci
-
-
Bonjour,
Sous condition que la cellule C1 sauvegarde le chiffre copier de A1, ainsi de suite. Vous pouvez developper ?????????????? -
Bonjour,
Avec le fichier que j'ai utilise pour votre code, ca ne le fait pas, mais j'ai deja vu ce message avec des fichiers venant de personne sur ccm pour demande de modif.
Ai trouve en cherchant sur internet: valable pour 2007 et plus
http://tech.anoj.net/2010/04/excel-quick-tips-disable-privacy.html
c'est en anglais, donc regardez la "Photo" si vous ne suivez pas trop.
Decochez la case Supprimer .............
