Copie de classeur à un autre
Résolu
achgel
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
achgel Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Copie de classeur à un autre
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Copie rapide - Télécharger - Gestion de fichiers
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.
--
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.
--
Bonjour,
Sous condition que la cellule C1 sauvegarde le chiffre copier de A1, ainsi de suite. Vous pouvez developper ??????????????
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 .............
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 .............
de mon choix Et vous les choisissez comment ????
préalablement fermé. On ne doit pas l'ouvrir pour ecrire !!!!!!!!!!!!!!!
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
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 SubJe suis toujours à l’écoute
Et Merci beaucoup pour votre aide
Cordialement
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