Copie de range dans différents fichiers et classeurs

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

Turbo

Guest
Bonjour a tous

Petite explication de mon application :

J'ai un fichier source, avec mes bouttons et des macros qui devrait copier une plage de cellule ( de ce fichier source ) vers un autre fichier destination comprenant plusieurs feuilles de calcul.
La copie se fait en prenant en compte la date inscrite sur le fichier source, et selon la valeur de cette date, la copie se fait sur différentes feuilles de calcul du fichier de destination.

Les feuilles de calculs du fichier destination correspondent aux différents mois.

Si vous avez rien compris, faites m'en part, je tacherai d'être plus explicite.

Les fichiers en question :
 

Pièces jointes

Trier par date Trier par votes
Re : Copie de range dans différents fichiers et classeurs

Oui et merci de m'avoir trouvé une solution 😉

Mais j'ai un peu avancé, j'ai rajouté certaines options, et d'autres détails, et maintenant ca ne marche plus 🙁

Donc j'aimerai que quelqu'un m'explique ce que n'aime pas le compilateur.

Voici le code :

Code: 
Private Sub Enregistrer_Click()
        
    Dim Chemin$, Wbk As Workbook
    Dim Nb_FeuilleCalcul As Integer
    Dim Mois As String
    Chemin = "G:\Campbell's Liebig\Test\Synthése Aôut, Sept Modif 07BIS.xls"
    Nb_FeuilleCalcul = ThisWorkbook.Worksheets.Count
    If Not DejaOuvert(Chemin) Then 'Si le fichier synthèse n'est pas ouvert
        Workbooks.Open Chemin
        Set Wbk = Workbooks(Dir$(Chemin))
        MsgBox ("Ouverture du fichier " & Wbk.Name)
        Mois = UCase(Left(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(1, 25).Text, 3)) & Right(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(1, 25).Text, 2)
        Mois = OteAccents(Mois)
        Nb_FeuilleCalcul = Wbk.Worksheets.Count 'Compte le nombre de feuille de calcul du fichier de synthèse
        While Mois <> Worksheets(Nb_FeuilleCalcul).Name
                MsgBox ("Recherche des feuilles de calcul qui porte le nom : " & Mois)
                Nb_FeuilleCalcul = Nb_FeuilleCalcul - 1
        Wend
                Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
                Workbooks(Wbk.Name).Activate
                Select Case Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 29).Value
                Case Is = "MLB"
                Sheets(Mois).Range("B7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "IB"
                Sheets(Mois).Range("C7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "MHR"
                Sheets(Mois).Range("D7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "FF"
                Sheets(Mois).Range("E7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "Gry"
                Sheets(Mois).Range("F7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "CR"
                Sheets(Mois).Range("H7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "GB"
                Sheets(Mois).Range("I7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "OA"
                Sheets(Mois).Range("K7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "HD"
                Sheets(Mois).Range("L7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "PM"
                Sheets(Mois).Range("M7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "SG"
                Sheets(Mois).Range("N7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "KI"
                Sheets(Mois).Range("O7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "CM"
                Sheets(Mois).Range("P7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "AR"
                Sheets(Mois).Range("Q7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "FE"
                Sheets(Mois).Range("R7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Is = "PF"
                Sheets(Mois).Range("S7").Select
                Selection.PasteSpecial Paste:=xlValues
                Case Else
                    MsgBox ("Initiale inconnue !!!")
                End Select
    Else
        Set Wbk = Workbooks(Dir$(Chemin))
        MsgBox ("Veuillez fermer le fichier " & Wbk.Name)
    End If
    
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de range dans différents fichiers et classeurs

Bonjour a tous

Petit up car j'aurai vraiment besoin que quelqu'un m'explique pourquoi la copie d'un fichier vers un autre ne marche plus.

Le code est un peu long, mais en fait il n'y a pas grand chose, il répète plusieurs fois la même instruction.

Merci a vous 😉
 
Vote positif 0 Vote négatif
Re : Copie de range dans différents fichiers et classeurs

Voila j'ai réussi a faire fonctionner mon code çi-dessus, mais concrètement je n'ai pas compris ce que ca changé ( entre le nouveau code et l'ancien ).

Le code qui marche :

Code: 
Private Sub Enregistrer_Click()
        
    Dim Chemin$, Wbk As Workbook
    Dim Nb_FeuilleCalcul As Integer
    Dim Mois As String
    Chemin = "G:\Campbell's Liebig\Test\Synthése Aôut, Sept Modif 07BIS.xls"
    Nb_FeuilleCalcul = ThisWorkbook.Worksheets.Count
    If Not DejaOuvert(Chemin) Then 'Si le fichier synthèse n'est pas ouvert
        Workbooks.Open Chemin
        Set Wbk = Workbooks(Dir$(Chemin))
        MsgBox ("Ouverture du fichier " & Wbk.Name)
        Mois = UCase(Left(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(1, 25).Text, 3)) & Right(Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(1, 25).Text, 2)
        Mois = OteAccents(Mois)
        Nb_FeuilleCalcul = Wbk.Worksheets.Count 'Compte le nombre de feuille de calcul du fichier de synthèse
        While Mois <> Worksheets(Nb_FeuilleCalcul).Name
                MsgBox ("Recherche des feuilles de calcul qui porte le nom : " & Mois)
                Nb_FeuilleCalcul = Nb_FeuilleCalcul - 1
        Wend
                Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Range("AK7:AK81").Copy
                Workbooks(Wbk.Name).Activate
                Select Case Workbooks("Formulaire heures modif 08.xls").Sheets("Mensuel").Cells(3, 29).Value
                Case Is = "MLB"
                Sheets(Mois).Range("B7").PasteSpecial Paste:=xlValues
                Case Is = "IB"
                Sheets(Mois).Range("C7").PasteSpecial Paste:=xlValues
                Case Is = "MHR"
                Sheets(Mois).Range("D7").PasteSpecial Paste:=xlValues
                Case Is = "FF"
                Sheets(Mois).Range("E7").PasteSpecial Paste:=xlValues
                Case Is = "Gry"
                Sheets(Mois).Range("F7").PasteSpecial Paste:=xlValues
                Case Is = "CR"
                Sheets(Mois).Range("H7").PasteSpecial Paste:=xlValues
                Case Is = "GB"
                Sheets(Mois).Range("I7").PasteSpecial Paste:=xlValues
                Case Is = "OA"
                Sheets(Mois).Range("K7").PasteSpecial Paste:=xlValues
                Case Is = "HD"
                Sheets(Mois).Range("L7").PasteSpecial Paste:=xlValues
                Case Is = "PM"
                Sheets(Mois).Range("M7").PasteSpecial Paste:=xlValues
                Case Is = "SG"
                Sheets(Mois).Range("N7").PasteSpecial Paste:=xlValues
                Case Is = "KI"
                Sheets(Mois).Range("O7").PasteSpecial Paste:=xlValues
                Case Is = "CM"
                Sheets(Mois).Range("P7").PasteSpecial Paste:=xlValues
                Case Is = "AR"
                Sheets(Mois).Range("Q7").PasteSpecial Paste:=xlValues
                Case Is = "FE"
                Sheets(Mois).Range("R7").PasteSpecial Paste:=xlValues
                Case Is = "PF"
                Sheets(Mois).Range("S7").PasteSpecial Paste:=xlValues
                Case Else
                    MsgBox ("Initiale inconnue !!!")
                End Select
    Else
        Set Wbk = Workbooks(Dir$(Chemin))
        MsgBox ("Veuillez fermer le fichier " & Wbk.Name)
    End If
    
End Sub

En résumé, j'ai remplacé :

Code: 
Case Is = "CR"
Sheets(Mois).Range("H7").Select
Selection.PasteSpecial Paste:=xlValues

par

Code: 
Case Is = "CR"
Sheets(Mois).Range("H7").PasteSpecial Paste:=xlValues

( pour tout mes cases bien sur ) et l'érreur me disant que le select de range avait échoué a disparue.

Ce n'est plus important, mais si quelqu'un a comprit pourquoi le compilateur interpretait une erreur, qu'il n'hésite pas a venir en parler sur ce topic.

Bonne journée a tous 😉
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Eric 888
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
127
Eric 888
Eric 888
oguruma
POWERQUERY :: Combinaison de tableaux structurés Excel issus de dossiers différents permettant de fusionner soit des Table soit des Sheet -
Réponses
0
Affichages
193
oguruma
oguruma
oguruma
POWERQUERY :: Combinaison de tableaux structurés Excel pouvant être issus de répertoires différents avec des noms de tableaux structurés différents
Réponses
0
Affichages
296
oguruma
oguruma
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
731
PHIL37
P
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
826
CedricR34
C
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
909
Renaud22
R
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
761
patricktoulon
patricktoulon
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
705
iruri
I
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
947
marie3107
M
N
  • Résolu(e)
XL pour MAC Erreur à l'enregistrement de plusieurs fichiers Excel
Réponses
5
Affichages
529
Noymie
N
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
jeff1494
S
  • Résolu(e)
Microsoft 365 Power Query Lancer un ensemble de requetes sur plusieurs fichiers excel
Réponses
2
Affichages
724
Sokko
S
oguruma
POWERQUERY :: Combinaison de dossiers multiples non adjacents (non hiérarchiques) - Tables - Feuilles - Puis filtrage à l'issue de la combinaison
Réponses
1
Affichages
318
oguruma
oguruma
R
  • Résolu(e)
XL 2016 Somme par année en fonction d'une date de début et de fin
Réponses
4
Affichages
935
remyexcel
R
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
job75
M
  • Question Question
Microsoft 365 Tableau dans Excel et #Ref
Réponses
2
Affichages
677
st007
S
F
  • Résolu(e)
XL 2019 Power query - Réunir le contenu de plusieurs fichiers xls dans un seul
Réponses
10
Affichages
2 K
Bernard_XLD
Bernard_XLD
Darkopsix
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
765
Darkopsix
Darkopsix
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
3 K
olivier1984
O
Retour