Transfère fichier à un autre excel avec une macro

Fermé
maudeto - 7 juin 2022 à 15:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 13 juin 2022 à 20:47
Bonjour,

Je suis débutante dans la macro, je rencontre quelques difficultés. je possède 400 fichiers excel environ avec une feuille 1 et une feuille 2 qui sont répartit dans 8 fichiers. Ces fichiers ont tous la même structure mais pas les mêmes données et il faut que je transforme la structure pour les remettre à jour (entreprise) alors j'ai fais un fichier type. J'ai donc mes fichiers de bases avec un fichier qui "récoltent" les données et après qui retranscrit dans le fichier type.
Je ne sais pas si ce que j'ai fais est bien et je ne sais pas si cela fonctionne

Configuration: Windows / Edge 102.0.1245.33
A voir également:

6 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
7 juin 2022 à 17:29
Bonjour,

je possède 400 fichiers excel environ avec une feuille 1 et une feuille 2 qui sont répartit dans 8 fichiers
Pouvez expliquer plus en detail 400 dans 8

Je ne sais pas si ce que j'ai fais est bien et je ne sais pas si cela fonctionne
Ben nous non plus vu que vous ne montrez aucun code et fichiers
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
8 juin 2022 à 11:50
Bonjour,

Excusez moi, je voulais dire 400 fichiers Excel repartit dans 8 dossiers différents.
Je vais vous faire des copies d’écran des 4 modules que j’ai fais sur la macro pour que vous regardiez
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
8 juin 2022 à 11:55
Module 1
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
8 juin 2022 à 11:55
Module 2
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
8 juin 2022 à 11:58
Module 3



0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
8 juin 2022 à 11:59
Module 4





0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
8 juin 2022 à 16:30
Bonjour,

Vous n'utilisez pas Excel ou alors vous faites la soupe.

Pourriez mettre le fichier du code a dispo:

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
13 juin 2022 à 11:27
Voici le lien
https://cjoint.com/c/LFnjyFPLKLc
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 13 juin 2022 à 17:37
Bonjour,

je ne sais pas si cela fonctionne
Le moins que nous puissions dire, c'est que vous avez une confiance hors norme en vous.
Perso, peut-etre que ca marche ou pas

Pourquoi vider le Clipboard, vous n'avez pas d'instruction Copy!

Pour le reste, ai pas vu de changement de repertoires (dossiers), 8 d'apres vous
Si vous ne voulez pas voir un fichier Excel s'ouvrir en dehors du fichier principal et la mise a jour :
Application.ScreenUpdating = False 'fige Excel et True retablit la mise a jour temps reel

Pas besoin de creer une autre Appli Excel, pas besoin de chose as Window
Master_FTP_PPK.xlsm: sort d'ou ce fichier, n'est jamais ouvert!
De meme pour le tranfert Master_Process_injection_?.xlsm

            'Nom presse
            mastercurrentSheet.Range("A" & Range("A65500").End(xlUp).Row + 1) = currentSheet.Range("A6").Value
            'Moule
            mastercurrentSheet.Range("B" & Range("A65500").End(xlUp).Row) = currentSheet.Range("B13").Value

Colonne B et les suivante vous ecrasez systematiquement, pas de +1

Master_FTP_PPK.xlsm: vous allez ecrire x fois dans ce fichier ou une seule fois et RAZ pour la prochaine
0
Maudeto Messages postés 7 Date d'inscription mercredi 8 juin 2022 Statut Membre Dernière intervention 13 juin 2022
13 juin 2022 à 19:35
Je vais essayer d’être claire dans mes explications ce fichier est intermédiaire. C’est à dire que j’ai un fichier numéro 1 qui va dans le fichier intermédiaire qui va dans un fichier numéro 2. Les fichiers numéros 1 ont tous la même forme.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 juin 2022 à 20:47
Re,
Votre fichier master_ftp... N'est jamais ouvert ni fermé !
Vous auriez un fichier avec le code, un fichier intermédiaire et des fichiers ou sont les données à récupérer
Pourquoi le fichier intermédiaire est un xlsm ?
0