XL 2016 VBA decomposer fichier en plusieurs fichiers avec critères et sans liaison

[ZZ59264]

Bonjour à tous,

Je viens demandé de l'aide pour un projet assez conséquent, je joins donc un fichier à ma demande avec les explications,

Je suis prêt à écouter toute proposition (modifications,idées ...) pour aboutir au projet,

Merci d'avance pour votre aide,

 

[ZZ59264]

Bonjour,

Merci pour votre retour, c'est parfait, et effectivement j'en ai rajouté au fil de la discussion, et je te remercie beaucoup pour ton aide très précieuse,

Bonne journée à vous,

Cordialement;

 

[ZZ59264]

Bonsoir Job75,

J'aurai besoin encore d'un petit coup de main sur le fichier, en effet je souhaiterai effacer les codes VBA indiquées sur les feuilles dans le fichier nouvellement créer,

Je rejoint un fichier avec l'onglet G sur lequel il y a un petit code d'actualisation, je souhaiterai qu'il reste sur le fichier source mais pas sur le fichier créer, (classe3)

Je sais bien que j'en demande encore, donc je vous remercie d'avance pour votre aide,

Cordialement,

 

[job75]

Bonsoir ZZ59264,

Les fichiers créés ne contiennent pas de macro puisque ce sont des fichiers .xlsx.

Par contre il faut désactiver les évènements lorsqu'on copie les feuilles sources, voyez ce fichier (7).

Et dans la feuille G il est plus simple d'utiliser :

Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

Bonne nuit.

 

[ZZ59264]

Bonsoir ZZ59264,

Les fichiers créés ne contiennent pas de macro puisque ce sont des fichiers .xlsx.

Par contre il faut désactiver les évènements lorsqu'on copie les feuilles sources, voyez ce fichier (7).

Et dans la feuille G il est plus simple d'utiliser :

Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

Bonne nuit.

Bonsoir Job75,

Merci à vous, effectivement il s'agit de procédures événementielles, mais si vous n'auriez pas ajouter les codes de désactivations des évènements et de réactivation au bon endroit la procédure s'arrêter et un message d'erreur apparaissait,

Merci beaucoup pour votre aide,

Bonne soirée à vous,

Cordialement,

 

[ZZ59264]

Bonjour Job75,

J'aurai encore besoin de ton aide, je m'arrache les cheveux depuis ce matin

J'ai essayé de mettre ton code sur mon fichier de travail, mais il bloque lors de la suppression des noms,

Et je sèche, je ne sais pas pourquoi il mets un code erreur sur la ligne Delete, ne serait ce pas du aux requêtes?,

Je te joins un extrait de mon fichier de travail, sensiblement identique au précédent, mais avec les noms qui composent celui ci, pour voir ce qui pourrait bloquer,

Je te remercie par avance,

Cordialement,

 

[job75]

Bonsoir ZZ59264,

Chez moi tout se passe bien, il n'y a pas d'erreur.

A+

 

[ZZ59264]

Bonsoir ZZ59264,

Chez moi tout se passe bien, il n'y a pas d'erreur.

A+

'est dingue je remets le fichier sur mon répertoire et cela fonctionne,

Mais sur mon fichier original il me met cet écran :

 

[ZZ59264]

'est dingue je remets le fichier sur mon répertoire et cela fonctionne,

Mais sur mon fichier original il me met cet écran :
Regarde la pièce jointe 1124927
Regarde la pièce jointe 1124927

et la partie VBA

nom.Delete 'supprime le nom sauf s'il est défini dans une feuille du document créé

est en jaune

 

[job75]

A vous de voir pourquoi un nom est "incorrect".

Vous pouvez bien sûr ajouter un On Error Resume Next, plus de problème...

 

[ZZ59264]

Bonsoir,

Merci pour votre retour, et comment je pourrais voir quel est le nom qui est incorrect?,

Si je vous joins la liste qu'il y a dans ma gestion des noms, vous le saurez?,

Sinon ou puis je ajouter On Error Resume Next?

merci d'avance,

Cordialement

 

[ZZ59264]

Bonsoir Job75,

j'ai placé On Error resume Next avant la boucle de suppression de noms, et ça fonctionne bien,

Je me demande quand même pourquoi il bloque sur un nom??,

Il n'y a pas de "risque" ou d’inconvénient à mettre ce code qui ignore les erreurs?,

Je peux mettre On Error GoTo 0 en dessous de Next Nom ?

Merci d'avance,

Cordialement,

 

[job75]

Tout à fait, On Error GoTo 0 permettra de voir une erreur éventuelle sur ActiveWorkbook.SaveAs.

 

[job75]

Bonjour ZZ59264, le forum,

Pour que ceux qui n'ont pas de lecteur P puissent tester j'ai remplacé dans le fichier joint :

s =Split(P(1, 4), "\")

par :

s = Split(ThisWorkbook.Path & "\CLASSE 2", "\")

A+

 

[ZZ59264]

Bonjour ZZ59264, le forum,

Pour que ceux qui n'ont pas de lecteur P puissent tester j'ai remplacé dans le fichier joint :

s =Split(P(1, 4), "\")

par :

s = Split(ThisWorkbook.Path & "\CLASSE 2", "\")

A+

Bonsoir Job75,

Merci beaucoup pour cet apport supplémentaire

Je pense savoir pourquoi mon gestionnaire de nom bloquait,

J'ai un nom qui s'appelle ANNEE et il faisait référence à la cellule ='EN TETE'!$AL$2

et un autre nom ANNEE_CLOTURE dont le nom se formait à la création : je sélectionnais la place de cellule ='EN TETE'!$AL$1:$AL$2 que je mettrais sous forme de requête par le suite, et la il me définissait dans le gestionnaire des noms la plage ='EN TETE'!$AL$2:$AL$2

Et la je pense que l'exécution de la procédure VBA bloque sur ce nom ,

Je vais creuser pour voir si je peux corriger ça,

Cordialement,

 

[job75]

Je pense plutôt que vous avez ajouté des segments dans certaines feuilles copiées contenant des TCD.

Ces segments sont associés à des noms définis dans le classeur qui ne peuvent pas être supprimés.