Macro Excel pour copier des cellules non contigües d'un classeur vers un autre

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion benadry
  • 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 !

S'inscrire
B

benadry

XLDnaute Occasionnel
Bonjour le forum,


J'ai élaboré une macro qui, partant d'un formulaire type sous Excel enregistre dans des répertoires différents en fonction de la valeur de la cellule A9, puis ferme le classeur ainsi obtenu et revient au classeur type.

Tout cela fonctionne très bien.

Je voudrais maintenant qu'avant de fermer le classeur de destination, la macro copie un certain nombre de cellules non contigües dans un autre classeur, à des fins statistiques.

Or, c'est là que je bute, car la macro que j'ai réalisée me dit qu'il ne peut pas traiter des cellules non contigües.

Je pense que je pourrai sélectionner la cellule, la copier dans la feuille de destination, revenir à la feuille d'origine, resélectionner une cellule ... Mais, je souhaiterais savoir s'il n'y a pas un moyen plus aisé.

Voici mon code :

Code: 
Sub Enreg()

Dim chemin, Chemin2, Repertoire, Fichier, Fichier2, Fichier4, Rep As String

chemin = "G:\XXX\YYY\ZZZ\AAA\BBB\CCC\"
Chemin2 = "G:\XXX\YYY\ZZZ\AAA\BBB\"

Repertoire = [A9].Value & "\"
Fichier = "Fiche anomalieModèle.xlsm"
Fichier2 = Sheets("Feuil2").[E1].Value & ".xlsm"
Fichier4 = "ExtractionContrôles.xlsx"

ActiveWorkbook.SaveAs Filename:=chemin & Repertoire & Fichier2, FileFormat:=xlOpenXMLWorkbookMacroEnabled

ActiveWorkbook.Sheets("Feuil2").Select
Application.Union(Cells(7, 5), Cells(8, 1), Cells(8, 2), Cells(8, 5), Cells(12, 2), Cells(14, 2), Cells(14, 5), Cells(16, 2), Cells(16, 5)).Select 'selection des données que l’on veut importer
Selection.Copy 'copie les données sélectionnées

Workbooks(Chemin2 & Fichier4).Activate 'retourne vers le fichier de départ
i = ActiveSheet.UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
Cells(i + 1, 1).Select 'sélection de la cellule où on veut coller les données (la première vide)
ActiveSheet.Paste 'colle les données
Workbooks(Chemin2 & Fichier4).Close SaveChanges:=True

Rep = MsgBox("Voulez-vous revenir au modèle et fermer la présente fiche anomalie ?", vbYesNo + vbQuestion, "Le programme demande votre attention")
If Rep = vbYes Then
Workbooks.Open Filename:=chemin & Fichier
Workbooks(Fichier2).Close SaveChanges:=False

End If

End Sub


Merci d'avance.

Cordialement.
 
Trier par date Trier par votes
Re : Macro Excel pour copier des cellules non contigües d'un classeur vers un autre

Bonsoir Benadry, bonsoir le forum,

Peut-être comme ça :
Code: 
Sub Enreg()
Dim chemin As String, Chemin2 As String, Repertoire As String, Fichier As String, Fichier2 As String, Fichier4 As String, Rep As String
Dim pl As Range
Dim i As Long
Dim cel As Range

chemin = "G:\XXX\YYY\ZZZ\AAA\BBB\CCC\"
Chemin2 = "G:\XXX\YYY\ZZZ\AAA\BBB\"
Repertoire = Range("A9").Value & "\"
Fichier = "Fiche anomalieModèle.xlsm"
Fichier2 = Sheets("Feuil2").Range("E1").Value & ".xlsm"
Fichier4 = "ExtractionContrôles.xlsx"
ActiveWorkbook.SaveAs Filename:=chemin & Repertoire & Fichier2, FileFormat:=xlOpenXMLWorkbookMacroEnabled
With Sheets("Feuil2")
    'définit la plage pl des données que l’on veut importer
    Set pl = Application.Union(.Cells(7, 5), .Cells(8, 1), .Cells(8, 2), .Cells(8, 5), .Cells(12, 2), .Cells(14, 2), .Cells(14, 5), .Cells(16, 2), .Cells(16, 5))
End With
With Workbooks(Chemin2 & Fichier4).ActiveSheet 'prend en compte le fichier de départ
    i = .UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
    For Each cel In pl
        cel.Copy .Cells(i + 1, 1)
        i = i + 1
    Next cel
End With
Workbooks(Chemin2 & Fichier4).Close SaveChanges:=True
Rep = MsgBox("Voulez-vous revenir au modèle et fermer la présente fiche anomalie ?", vbYesNo + vbQuestion, "Le programme demande votre attention")
If Rep = vbYes Then
    Workbooks.Open Filename:=chemin & Fichier
    Workbooks(Fichier2).Close SaveChanges:=False
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Macro Excel pour copier des cellules non contigües d'un classeur vers un autre

Bonjour Robert,
Bonjour le forum,

Merci pour ton aide.

J'ai une erreur d'exécution 9 - l'indice n'apaprtient pas à la sélection à la ligne :

Code: 
With Workbooks(Chemin2 & Fichier4).ActiveSheet

que j'ai transformée en :

Code: 
With Workbooks(Chemin2 & Fichier4).Sheets("Feuil1")

Et ça ne marche pas mieux !

Merci par avance pour ton aide.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro Excel pour copier des cellules non contigües d'un classeur vers un autre

Re-,

Je ne comprends pas !

Le chemin, la feuille et le fichier sont "bons". J'ai ouvert, puis activé le fichier de destination et ça ne fonctionne pas !

Voici mon code :

Code: 
Sub Enreg()
Dim chemin As String, Chemin2 As String, Repertoire As String, Fichier As String, Fichier2 As String, Fichier4 As String, Rep As String
Dim pl As Range
Dim i As Long
Dim cel As Range


chemin = "G:\XXX\YYY\ZZZ\AAA\BBB\CCC\"
Chemin2 = "G:\XXX\YYY\ZZZ\AAA\BBB\"
Repertoire = Range("A9").Value & "\"
Fichier = "Fiche anomalieModèle.xlsm"
Fichier2 = Sheets("Feuil2").Range("E1").Value & ".xlsm"
Fichier4 = "Extraction.xlsx"
ActiveWorkbook.SaveAs Filename:=chemin & Repertoire & Fichier2, FileFormat:=xlOpenXMLWorkbookMacroEnabled

With Sheets("Feuil2")
    'définit la plage pl des données que l’on veut importer
    Set pl = Application.Union(.Cells(7, 5), .Cells(8, 1), .Cells(8, 2), .Cells(8, 5), .Cells(12, 2), .Cells(14, 2), .Cells(14, 5), .Cells(16, 2), .Cells(16, 5))
End With

Workbooks(Chemin2 & Fichier4).Open
Workbooks(Chemin2 & Fichier4).Activate

With Workbooks(Chemin2 & Fichier4).Sheets("Feuil1") 'prend en compte le fichier de départ
i = .UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
    For Each cel In pl
        cel.Copy .Cells(i + 1, 1)
        i = i + 1
    Next cel
End With

Workbooks(Chemin2 & Fichier4).Close SaveChanges:=True
Rep = MsgBox("Voulez-vous revenir au modèle et fermer la présente fiche anomalie ?", vbYesNo + vbQuestion, "Le programme demande votre attention")
If Rep = vbYes Then
    Workbooks.Open Filename:=chemin & Fichier
    Workbooks(Fichier2).Close SaveChanges:=False
End If
End Sub

J'ai toujours la même erreur d'exécution 9 à la ligne
Code: 
Workbooks(Chemin2 & Fichier4).Open

Si quelqu'un a une idée ...

Merci d'avance.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Macro Excel pour copier des cellules non contigües d'un classeur vers un autre

Re-,

Comme ça ne fonctionnait pas, j'ai changé avec le code suivant et, cette fois-ci, c'est bon !

En voici un extrait :

Code: 
ActiveWorkbook.SaveAs Filename:=chemin & Repertoire & Fichier2, FileFormat:=xlOpenXMLWorkbookMacroEnabled

With Sheets("Feuil2")
    'définit la plage pl des données que l’on veut importer
    Set pl = Application.Union(.Cells(8, 5), .Cells(9, 1), .Cells(9, 2), .Cells(9, 5), .Cells(13, 2), .Cells(15, 2), .Cells(15, 5), .Cells(17, 2), .Cells(17, 5))
End With

Workbooks.Open Chemin2 & Fichier4

With ActiveWorkbook.Sheets("Feuil1")

i = .UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
    For Each cel In pl
        cel.Copy .Cells(i + 1, 1)
        i = i + 1
    Next cel
End With

ActiveWorkbook.Close SaveChanges:=True

Merci pour votre aide en tout cas.


Cordialement.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
445
zendb
Z
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
691
Chaton77
Chaton77
M
  • Question Question
Microsoft 365 VBA copier des données d'un classeur à un autre
Réponses
4
Affichages
2 K
sylvanu
sylvanu
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
694
robpellan52
R
D
  • Question Question
XL 2016 macro pour copier coller des cellules d'une feuille dans une autre feuille avec condition
Réponses
2
Affichages
504
Phil69970
Phil69970
B
  • Question Question
Microsoft 365 Copier/coller d'un tableau sur un autre classeur
Réponses
8
Affichages
1 K
chris
chris
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
799
Zon
Z
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
Dranreb
D
  • Résolu(e)
XL 2013 Copie vers un autre classeur avec condition
Réponses
2
Affichages
1 K
Dafaka7
D
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
K
  • Question Question
Macro pour aller chercher des données d'un autre excel vers le fichier de la macro.
Réponses
5
Affichages
2 K
presa54
P
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
Hasco
XLSM75
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
XLSM75
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
981
MONTREAL2020
M
O
  • Question Question
XL 2019 copier des lignes d'une feuille Excel vers une autre feuille d'un même classeur a partir dune condition
Réponses
4
Affichages
1 K
otando
O
A
  • Question Question
XL 2019 Besoin d'aide pour copier les lignes d'un classeur et les coller dans un autre classeur par le bié d'un bouton (VBA)
Réponses
7
Affichages
1 K
aka100k
A
S
  • Résolu(e)
Microsoft 365 Importer des données d'un fichier excel à un autre avec adresse connue
Réponses
13
Affichages
2 K
sanae_J
S
D
  • Résolu(e)
XL 2019 Copier / Coller des cellules d'un classeur dans un autre classeur
Réponses
2
Affichages
2 K
Dravol
D
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
job75
Retour