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
Posté le