Copier une plage de données

  • Initiateur de la discussion Initiateur de la discussion degap05
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

degap05

XLDnaute Impliqué
Bonjour,

J'ai besoin d'aide pour copier une plage de cellules vers un autre classeur.

Je n'arrive pas à copier les données contenues dans ma feuille source en A😛 à copier dans l'autre classeur en A😛.

Voici la macro:

Sub Bouton15_QuandClic()

'les 2 classeurs doivent être ouverts !!!
Dim cell As Range, RngSource As Range
Dim cellDest As Range, RngDestination As Range

Application.ScreenUpdating = False

With ThisWorkbook.Worksheets("Données source")
Set RngSource = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With

Windows("T2A.xls").Activate

With ActiveWorkbook.Worksheets("Feuille cible")
Set RngDestination = .Range("A1😛" & .Range("A65536").End(xlUp).Row)
End With

For Each cell In RngSource
For Each cellDest In RngDestination
If cellDest = cell Then
cellDest.Offset(0, 1) = cell.Offset(0, 1)
Exit For
End If
Next cellDest

Next cell

Application.ScreenUpdating = True

End Sub


Avec cette macro, la première cellule copiée en feuille source est en F, elle est copiée en B sur la feuille cible.

Une question subsidiaire, comment modifier la macro pour ouvrir, modifier, sauvegarder et refermer le classeur cible.

Merci.
 
Re : Copier une plage de données

bonjour

essaye ca plutot

Code:
Sub Bouton15_QuandClic()

      Application.ScreenUpdating = False
      ThisWorkbook.Worksheets("Données source").Set RngSource = .Range("A1:P" & .Range("A65536").End(xlUp).Row).copy
      Windows("T2A.xls").Activate
      ActiveWorkbook.Worksheets("Feuille cible").range("A1").paste
      Application.ScreenUpdating = True

End Sub

Un copier / coller
 
Re : Copier une plage de données

Bonjour,

A la question 'comment ouvrir un classeur', j'ai ecrit hier une fonction qui le fait.:
Code:
Function GetClasseur(CheminComplet As String) As Workbook
  Dim wbk As Workbook
  On Error Resume Next
  Set wbk = Workbooks(Dir$(CheminComplet)) 'Vérifie que le classeur n'est pas déjà ouvert
  If Err > 0 Then
    Err.Clear
    Set wbk = Workbooks.Open(CheminComplet)
  End If
  Set GetClasseur = wbk
End Function


Appeler la fonction comme ceci:
Code:
    Set wk1 = GetClasseur(NomCompletDuClasseurAOuvrir)
    If Not wk1 Is Nothing Then
           ....Traiement sur le classeur wk1
           'Pour finir

           wk1.save
           wk1.close 
        
     End if

Pour le reste, je préfère travailler sur des exemple précis.

Joindre un classeur avec quelque données non sensible et les macros.

A bientôt
 
Re : Copier une plage de données

bonjour

essaye ca plutot

Code:
Sub Bouton15_QuandClic()

      Application.ScreenUpdating = False
      ThisWorkbook.Worksheets("Données source").Set RngSource = .Range("A1:P" & .Range("A65536").End(xlUp).Row).copy
      Windows("T2A.xls").Activate
      ActiveWorkbook.Worksheets("Feuille cible").range("A1").paste
      Application.ScreenUpdating = True

End Sub

Un copier / coller

Bonjour et merci,

J'ai un blocage sur: RngSource , avec un message "variable non définie" ??
 
Re : Copier une plage de données

Résolu pour la partie copie🙂🙂

Grâce à la macro de "Stapple1600" du sujet:

"Copier des données dans un autre fichier excel"

Je vais maintenant essayer d'adapter dans mon classeur la solution de "Hasco" pour écrire dans un fichier fermé.


Merci au forum🙂
 
Re : Copier une plage de données

Bonjour, Hasco,

Je suis arrivé à transférer des données entre deux classeurs fermés, si tu veux consulter la discussion que j'ai créée, tu pourras peut-être m'apporter quelques explications complémentaires.

Merci en tout cas.


discussion: "Transférer des données entre deux classeurs fermés"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
874
Réponses
9
Affichages
366
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
364
Réponses
21
Affichages
852
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
481
Réponses
1
Affichages
451
Réponses
4
Affichages
510
Réponses
3
Affichages
400
Retour