Aide Pour Macro

YesWeDemande Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
 YesWeDemande -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 315
 
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
 
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 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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
 
Bonjour , merci Le Pingou je vais essayer de le faire.
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Ah ben, tiens... le "quelqu'un" il est là :

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

m@rina
0