Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Ouvre un fichier sur une feuille et copie une plage sur le fichier destination

Créer une discussion

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

piga25

XLDnaute Barbatruc
Bonjour,

J'ai deux fichiers classement individuel et classement équipe.
Comme les noms et les emplacements de ces fichiers peuvent changer de place, il me faut un code qui permet d'ouvrir le fichier équipe à partir du fichier individuel.
Jusque là, cela va, mon code arrive à la faire.
Par contre ou j'ai un problème c'est dans le choix de la feuille, le nom doit être variable dans le code. Les deux fichiers ont exactement les même noms de feuille.
Donc si je suis sur la feuille ED du fichier individuel il faut que cela ouvre la feuille ED du fichier équipe. Les feuilles qui seront concernées sont: ED - EH - FD - FH - SD - SH
Et ensuite que cela copie les colonnes A, B, C et D (du fichier équipe) sur le fichier Individuel à partir de la cellule BL1

VB: 
Sub copie_Classement_equipe()
Dim nom$, WBKSource As Workbook
With Application.FileDialog(msoFileDialogOpen)
    .Title = "Choisissez le fichier"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom)
            With WBKSource
                .Sheets("ED").Columns("A:D").Copy Before:=ThisWorkbook.Sheets("ED").Range("BL1") 'ligne qui pose problème
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
End Sub
 
Trier par date Trier par votes
Bonjour Ikito,

Désolé mais cela ne reconnait pas le nom de la feuille.
Je pense qu'il faudrait nommer cette variable au début de la procédure, sachant que sur chaque feuille concernée il y a un bouton pour lancer la macro.
 
Vote positif 0 Vote négatif
Bonjour Ikito, le forum

J'ai modifié un peu la ligne mais j'ai maintenant une erreur : Indice hors limites (erreur9)

VB: 
Sub copie_Classement_equipe()
Dim nom$, feuille$, WBKSource As Workbook
feuille = ActiveSheet.Name
With Application.FileDialog(msoFileDialogOpen)
    .Title = "Choisissez le fichier"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
            Set WBKSource = Workbooks.Open(nom)
            With WBKSource
                .Sheets("Feuille").Columns("A:D").Copy Before:=ThisWorkbook.Sheets("feuille").Range("BL1") 'ligne qui pose problème
                .Close False
            End With
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
End Sub

Est ce que c'est la plage origine ou destination qui pose problème ?
 
Vote positif 0 Vote négatif
Bonjour le forum,
Je pense que le problème provient de la plage d'origine, elle doit être mal nommée dans le code.

Je mets les fichiers exemple pour plus de compréhension. Ici je dois copier uniquement le texte (sans formule ni mise en forme) du fichier Origine dans destination et cela pour que se soit valable pour chaque page

Après recherches, voici un code qui fonctionne :
VB: 
Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook, feuille$
'Choix de la feuille à traiter
feuille = ActiveSheet.Name
'Choix du fichier source à ouvrir
With Application.FileDialog(msoFileDialogOpen)
    .Title = "Choisissez le fichier"
    .Filters.Clear
    .Filters.Add "Fichier Excel", "*.xls*"
    .AllowMultiSelect = False
        If .Show <> 0 Then
        nom = .SelectedItems(1)
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open(nom, , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la "Feuille" du classeur source vers la "Feuille" du classeur destination
classeurSource.Sheets(feuille).Range("A2:D20").Copy
classeurDestination.Sheets(feuille).Range("H5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Range("A18").Select
'fermer le classeur source
classeurSource.Close False
        Else
        MsgBox "Aucun fichier n'a été sélectionné", , "Erreur": Exit Sub
        End If
End With
Calculate
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
394
job75
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
818
Liner77
L
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
648
Lu76Fer
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
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
1 K
patricktoulon
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
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
708
Staple1600
M
  • Question Question
XL 2013 Transformer le format Texte en Date suite à un transfert automatique via VBA
Réponses
3
Affichages
1 K
MgLina
M
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
1 K
Chapichapo
C
M
  • Question Question
Microsoft 365 Recherchev dans un autre classeur VBA EXCEL
Réponses
2
Affichages
2 K
manue971
M
X
  • Question Question
XL 2019 Copier / Coller une ligne entre deux fichiers depuis un 3ème fichier
Réponses
0
Affichages
887
xorf
X
  • Question Question
XL 2016 Bouton pour créer un dossier et enregistrer un fichier dedans les deux avec le mêmes nom
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
S
  • Résolu(e)
XL 2013 Créer un bouton sur une feuille pour Export PDF d'une autre feuille...
Réponses
4
Affichages
2 K
Staple1600
L
  • Question Question
Microsoft 365 Optimiser export données vers nouveau classeur
Réponses
1
Affichages
980
Ludwig74
L
R
  • Résolu(e)
XL 2010 Copie de feuilles d'un classeur dans un autre selon certains critères
Réponses
7
Affichages
2 K
fanch55
D
  • Question Question
XL 2016 Affichage d'une photo jpeg avec visionneus windows.
Réponses
8
Affichages
2 K
Dam1904
D
Y
  • Question Question
XL 2016 copier une colonne de données dans tous les fichiers d'un répertoire et les coller les unes à la suite des autres dans une feuille excell
Réponses
4
Affichages
2 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…