Aide pour Macro

0

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


YesWeExcel Posté le 21 octobre 2018, 01:19
par YesWeExcel
Répondre

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :