Aide Pour Macro

Fermé
YesWeDemande Messages postés 4 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 21 octobre 2018 - 21 oct. 2018 à 01:08
 YesWeDemande - 21 oct. 2018 à 16:27
Bonjour, à tous et toutes
J'aimerait avoir de l'aide pour une macro
quelqu'un ma donné ce code mais je sait pas du tout l'utiliser (en plus j'ai plus son contact, j'suis à la ramasse)
Voici le code tristement fameux:
_______________________________

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Sourse)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CO As Workbook 'déclare la variable CO (Classeur Ouvert)
Dim OA As Worksheet 'déclare la variable OA (Onglet Actif)
Dim F As String 'déclare la variable F (Fichier)

Set CS = ThisWorkbook 'définit le classeur Source CS
CA = CS.Path & "\" 'définit le chemin d'accès CA
F = Dir(CA & "*.xlsx") 'définit le premier classeur du dossier ayant CA comme chemin d'accès (extension à adapter !)
Do While F <> "" 'boucle tant qu'il existe des fichiers F
If Not F = CS.Name Then 'condition : si le fichier à ouvrir n'est pas ce fichier
Set CO = Application.Workbooks.Open(CA & F) 'définit le classeur ouvert CO (en l'ouvrant)
Set OA = CO.ActiveSheet 'définit l'onglet actif OA
'ici ta macro. Ssi tu fais référence à l'onglet actif utilise OA (OA.Range("A1") par exemple), sinon il faut adapter le

code...
CO.Close True 'ferme le classeur ouvert en enregistrant les changements
End If 'fin de la condition
F = Dir 'classeur suivant du le dossier ayant CA comme chemin d'accès
Loop 'boucle
End Sub
______________________________________________________________________________
J'ai essayé ce code plusieurs fois mais riens n'a faire, je n'arrivais pas à bien imposter le code en question, donc...
J'ai du abandonner car mon cerveau il est passé en mode HC et puis il a claqué la porte.
Donc voilà voilà.

Mes compétences en macro sont les suivants:
- Je sais enregistrer une macro
- Je sais que en enregistrant une macro dans "un classeur personnel" ça va être - visible et utilisable par tout mes

classeurs
- Je sais que en enregistrant une macro en indiquant le classeur ,celle-ci seras visible mais seras utilisable que sur le
classeur sauvé.
- Je sais aussi utiliser les functions (CONCATENER; RECHERCHEV; NB.SI) et d'autres petits choses à la portée de tous.

Je vous ai fais le point sur mes compétences sur Excel et Macro, comme ça vous pourrais m'y répondre événtuellement
en prenant en compte mes limites;

Voilà en détail ce que j'aimerais faire:
_créer une macro que ouvre mes classeurs situé dans mon dossier [DEMO]
_ouvrir le premier classeur [nomé: A] exécuter ma macro [nomé: Macro_Tentativo] enregistrer les modifications
effectué_fermer mon classeur [nomé: A] et passer au suivant classeur de mon dossier [DEMO]

Je vais vous fournir des documents fictifs (en pièce jointe si possible) pour que vous puissiez me l'expliquer de la meilleur

façon possible.
Je ne peux pas vous fournir les vraies fichiers pour de raisons privés.


J'aimerais réussir à faire ce code sur mes vraies fichiers, que son en total 70 ,
si j'y arrive à faire ça je pourrais résoudre ma situation Précaire, en démarrant ma propre activité.

Message adresser à ceux/celles que auront l'amabilité de me répondre et proposer une solution
par rapport à ce problème fait-le, mais fait-le simplement comme si vous voulez apprendre
un enfant à compter de 1 à 10, sérieux si non je ne vais rien comprendre.

Merci en avance , ma vie est entre vos mains
A voir également:

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 21 oct. 2018 à 08:30
Bonjour,
Je vais vous fournir des documents fictifs (en pièce jointe si possible)
Hé bien, vas y !

au besoin;
Mettre le classeur sans données confidentielles en pièce jointe sur 
https://mon-partage.fr/
Puis faire un clic « copier le raccourci » et lecoller dans votre message




0
YesWeDemande
21 oct. 2018 à 10:34
bonjour
voici-ci les liens
https://mon-partage.fr/f/01qNU06F/
https://mon-partage.fr/f/OxQZoy6Y/
https://mon-partage.fr/f/IiUQyYBe/
https://mon-partage.fr/f/JReXtzLb/
https://mon-partage.fr/f/Dk0RBLcH/
https://mon-partage.fr/f/Xtm7cCyt/
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié le 21 oct. 2018 à 15:30
Bonjour,
Merci pour les fichiers qui sont tous vides donc je part en vacances.

A bien plaire un petit essai qui devrait correspondre à vos besoins.( copier data d'autres classeurs d'un autre dossier via un classeur de commande)
Ouvrir le ZIP et copier les 3 éléments dans le même dossier voir sur le bureau. Ensuite ouvrir le classeur « JPP_Accueil.xlm » et suivre l’instruction.
Le lien : https://mon-partage.fr/f/dmKa7ks8/


0
YesWeDemande
21 oct. 2018 à 16:27
Bonjour , merci Le Pingou je vais essayer de le faire.
0
m@rina Messages postés 20070 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 24 avril 2024 11 271
21 oct. 2018 à 15:20
Ah ben, tiens... le "quelqu'un" il est là :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=115360

m@rina
0