Erreur 400 après lancement Macro VBA Excel

Bonjour à toutes et à tous,

Pour les besoins du boulot, j'ai reçu un classeur .xls contenant des macros.

Celles-ci fonctionnent parfaitement, sauf celle affectée au bouton "Plannings CRO" (sur la feuille 1 - Choix).

En effet, cette macro génère une Erreur 400.

J'ai vu que ce code d'erreur signifie : Feuille déjà affichée; affichage modal impossible. :cry:

J'ai bien tenté de trouver quelques infos sur le Forum ... sans succès ...

Si quelqu'un a une idée.

D'avance merci pour vos réponses.

Bien cordialement.

Bonsoir,


Plutôt que nous obliger à charger ton fichier... avec tous les risque que cela comporte...
montre-nous le code derriére ton bouton !

Bonsoir à tous
Bonsoir ananar, JackOuYA

Je suppose que l'erreur se produit si tu veux créer une nouvelle feuille avec le même "nom" qu'une feuille déjà existante

Eric

Bonsoir JackOuYA,

Merci pour ta réponse.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Sub cro() Application.DisplayAlerts = False Application.ScreenUpdating = False verif organisation_gare gares_derlig = Cells(65536, 2).End(xlUp).Row With Sheets("3 - Gares").Range("A1:AU1") Set c = .Find("CRO") End With CRO_gare = c.Column Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Select Selection.Copy Columns(8).Select Selection.Insert Shift:=xlToRight Sheets("2 - PAAs").Select Columns(8).Select Selection.Insert Shift:=xlToRight Cells(2, 8).Select ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],'3 - Gares'!C[-7]:C[-2],6,0)" PAA_derlig = Cells(65536, 2).End(xlUp).Row Selection.AutoFill Destination:=Range(Cells(2, 8), Cells(PAA_derlig, 8)) Worksheets.Add ActiveSheet.Name = "tempCRO" Sheets("2 - PAAs").Select Cells(1, 8) = "CRO" Range(Cells(1, 8), Cells(PAA_derlig, 8)).Select Selection.Copy Sheets("tempCRO").Select Cells(1, 1).Select ActiveSheet.Paste Range(Cells(1, 1), Cells(PAA_derlig, 1)).AdvancedFilter Action:=xlFilterInPlace, Unique:=True Selection.Copy Worksheets.Add ActiveSheet.Name = "temp2CRO" ActiveSheet.Paste temp2_derlig = Cells(65536, 1).End(xlUp).Row Range(Cells(2, 1), Cells(temp2_derlig, 1)).Select   che = Application.ActiveWorkbook.Path cheminCRO = che & "\CRO" ChDir che If Dir(cheminCRO, vbDirectory) = "" Then MkDir "CRO" For Each cell In Selection   Sheets("2 - PAAs").Select Rows(1).Select Selection.AutoFilter Field:=8, Criteria1:=cell Range(Cells(2, 1), Cells(PAA_derlig, 7)).Select Selection.Copy Sheets("forme").Select Cells(2, 1).Select ActiveSheet.Paste Sheets("2 - PAAs").Select Range(Cells(2, 9), Cells(PAA_derlig, 16)).Select Selection.Copy Sheets("forme").Select Cells(2, 8).Select ActiveSheet.Paste   Sheets("forme").Select Sheets("forme").Copy 'mise en forme derlig_forme = Cells(65536, 2).End(xlUp).Row Range(Cells(2, 1), Cells(derlig_forme, 15)).Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With If derlig_forme > 2 Then With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If   Columns("O:O").Select Selection.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" Columns("A:O").EntireColumn.AutoFit 'fin mise en forme Cells(1, 1).Select ActiveWorkbook.SaveAs Filename:= _ cheminCRO & "\" & cell & ".xls" ActiveWindow.Close Range(Cells(2, 1), Cells(derlig_forme, 15)).Select Selection.Delete Next cell Worksheets("temp2CRO").Delete Worksheets("tempCRO").Delete Sheets("3 - Gares").Select Columns(8).Delete Sheets("2 - PAAs").Select Columns(8).Select Selection.Delete Sheets("1 - Choix").Select Application.DisplayAlerts = True Application.ScreenUpdating = True   End Sub

---

re, ananar

sur qu'elle ligne l'erreur ? mais bon edelweisseric à raison l'erreur peu être du à la tentative de nommer une feuille du nom d'une feuille déjà existante..

Bonsoir,

A mon avis commencer par la déclaration des variables :

Code:

---

1 2 3 4 5

Dim PAA_jour, PAA_heure, PAA_Nom, PAA_train, PAA_voiture, PAA_place, PAA_gare, PAA_mention, PAA_besoin, PAA_detail, PAA_assistance, PAA_statut, PAA_gare_autre, PAA_type_train, PAA_tel As String Dim gares_CRO, gares_email, gares_media, gares_gare, gares_fax1, gares_fax2 As String Dim PAA_derlig, gares_derlig, c, temp2_derlig As String Dim chemin As String Dim dBA As String

---

Dans chaque ligne commençant par "Dim" seule la dernière variable est déclarée en tant que "String".

Il faut indiquer par exemple :

Code:

---

1 2 3 4 5 6

Dim PAA_jour$, PAA_heure$, PAA_Nom$, PAA_train$, PAA_voiture$, _ PAA_place$, PAA_gare$, PAA_mention$, PAA_besoin$, PAA_detail$, _ PAA_assistance$, PAA_statut$, PAA_gare_autre$, PAA_type_train$, _ PAA_tel$ _ gares_CRO$, gares_email$, gares_media$, gares_gare$, _ gares_fax1$, gares_fax2$, PAA_derlig$, gares_derlig$, c, temp2_derlig$ _ chemin$,dBA$

---

si toutes les variables sont de type String ce qui m'étonnerait par exemple pour :

Code:

---

PAA_derlig, gares_derlig, temp2_derlig

---

Ensuite on trouve cette ligne :

Code:

---

CRO_gare = c.Column

---

or que représente :
CRO_gare

Je suis de l'avis de jacques_jean.

Tes déclarations de variables laissent à désirer. Elles sont presque toutes de type Variant sauf la dernière de chaque ligne.

Par exemple, les variables qui servent à déterminer la dernière ligne d'une table de données devraient être de type Long. CRO_gare devrait être de type Integer (au fait, cette variable est-elle déclarée ?) et c de type Range...

Merci pour vos réponses, mais n'étant pas l'auteur de cette macro, j'ai un peu de mal à suivre :cry:
Je continue mes recherches, il faut que je trouve.
@ bientôt et encore merci.

Bonjour,

Ci_joint votre fichier (renommé pour ne pas écraser le vôtre).
J'ai redéfini les variables comme je vous l'avait précisé ainsi que celles préconisées par Zazaraignée.

Vérifiez si vous avez toujours le même problème ou s'il y en d'autres.

Je n'ai pas tout testé mais sur le module qui vous posait un problème, en le lançant en pas-à-pas je n'ai pas eu de message d'erreur.

Bonsoir jacques jean,

J'ai un message d'erreur quelque soit la macro lancée depuis la feuille 1 - Choix

Message erreur : Variable objet ou variable bloc With non définie (erreur 91).

En tout cas merci pour la collaboration, c'est vraiment super.

Bien cordialement.

Citation:

---

Envoyé par ananar

Bonsoir jacques jean,

J'ai un message d'erreur quelque soit la macro lancée depuis la feuille 1 - Choix

Message erreur : Variable objet ou variable bloc With non définie (erreur 91).

En tout cas merci pour la collaboration, c'est vraiment super.

Bien cordialement.

---

Citation:

---

Envoyé par JackOuYA

re, ananar

sur qu'elle ligne l'erreur ? mais bon edelweisseric à raison l'erreur peu être du à la tentative de nommer une feuille du nom d'une feuille déjà existante..

---

+1

Bonjour,

En effet, en lançant la procédure "cro" je n'avais pas eu de message d'erreur mais je viens de lancer la procédure "all" et j'ai bien le même message que vous sur la ligne :

Code:

---

gares_CRO = c.Column

---

Faites un copier/coller des déclarations ci-dessous en remplacement des précédentes.

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Dim PAA_jour%, PAA_heure%, PAA_Nom%, PAA_train%, PAA_voiture%, PAA_place%, PAA_gare%, _ PAA_mention%, PAA_besoin%, PAA_detail%, PAA_assistance%, PAA_statut%, PAA_gare_autre%, _ PAA_type_train%, PAA_tel%, gares_email%, gares_media%, gares_gare%, gares_fax1%, gares_fax2%, _ CRO_gare%, gares_CRO% Dim cheminmail$, cheminfax$, che$, cheminCNO$, cheminCRO$, chemin$, dBA$ Dim c As Range, cell As Range Dim derlig_forme&, PAA_derlig&, gares_derlig&, temp2_derlig&

---

En plus de ma réponse précédente concernant la déclaration des variables à modifier il reste encore un problème :

vous avez au moins une ligne qui fait référence à la feuille nommée "3 - Gares"
qui est écrite sans les espaces, alors que dans d'autres lignes les espaces sont bient présents, donc évidemment "erreur : l'indice n'appartient pas à la sélection" d'où à mon avis lorsque l'on utilise VBA mieux vaut éviter les espaces, les caractères accentués ou spéciaux dans les noms des objets.

Code:

---

With Sheets("3-Gares").Range("A1:AU1")

---

il faut donc tester toutes les macros les unes après les autres.

Ce que je vais faire mais dans la soirée.

Suffirait pas de remplacer partout dans le code "3 - Gares" par "3-Gares" ? ;)

Bien sûr mais également de renommer la feuille.

Mais n'étant pas l'utilisateur, je ne veux rien imposer, d'autant plus qu'il y a 2 autres feuilles nommées de la même façon.

J'ai donc modifié la ligne concernée
With sheets("3 - Gares").Range("A1:AU1)

Mais en dehors de ça j'ai maintenant l'erreur annoncée au départ par Ananar :

"Erreur 400".

Et cela sur ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With Sheets("3 - Gares").Range("A1:AU1") Set c = .Find("CRO") End With CRO_gare = c.Column Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Select Selection.Copy Columns(8).Select 'erreur 400 sur la ligne ci-dessous Selection.Insert Shift:=xlToRight Sheets("2 - PAAs").Select Columns(8).Select Selection.Insert Shift:=xlToRight   En modifiant le code de cette façon, je n'ai plus l'erreur

---

Code:

---

1 2 3 4

Columns(8).Select Selection.Insert Shift:=xlToRight CRO_gare = c.Column Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Copy Range(Cells(1, 8), Cells(gares_derlig, 8))

---

mais cette erreur se reproduit sur la ligne suivante :

Code:

---

1 2 3 4

Sheets("2 - PAAs").Select Columns(8).Select 'erreur 400 ici Selection.Insert Shift:=xlToRight

---

et là j'avoue que pour l'instant je ne trouve pas la solution.

Pour une colonne je ne connais pas Shift:=xlToRight mais bon.
Par contre, ce que tu peux tester c'est

Code:

---

Columns(8).EntireColumn.Insert

---

Bonne soirée

J'ai trouvé la cause de l'erreur 400 qui est ici (entre autres car on retrouve ce cas plusieurs fois) :

Code:

---

1 2 3

Sheets("2 - PAAs").Select Rows(1).Select Selection.AutoFilter Field:=8, Criteria1:=cell

---

Cette méthode :

Code:

---

Selection.Insert Shift:=xlToRight

---

ne peut fonctionner avec un filtre activé il faut donc désactiver le filtre et réactiver ensuite.

Désolé mais mon code fonctionne sur des données filtrées.
Mais tu ne peux pas insérer une colonne en ne donnant que son N°. Soit tu mets
Columns("H:H")...
Soit

Code:

---

Columns(NoCol).entireColumn.insert

---

Filtre ou pas filtre
Bonne soirée jj

Merci pour la réponse et mes excuses. je n'avais pas vu votre réponse de 17h35.

Une précision quand même si vous le voulez bien :

c'est seulement dans le cas de données filtrées ?

car :

Code:

---

1 2 3

Columns(8).Select Selection.Insert Shift:=xlToRight

---

fonctionne aussi mais pour des données non filtrées mais si on a précédemment des données d'une autre colonne et utilisé Selection.Copy
les données devraient être copiées dans la nouvelle colonne.

Cela dit, j'utiliserai plus tôt votre solution qui pose moins de problème.
Si Ananar reviens, car il a peut-être trouvé la solution.

Bonne soirée également.

Bonjour à toutes et à tous,

Merci à toutes et à tous pour votre concours et pour le partage.

Sur vos conseils, j’ai :

 Fait un copier/coller des déclarations ci-dessous en remplacement des précédentes.

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Dim PAA_jour%, PAA_heure%, PAA_Nom%, PAA_train%, PAA_voiture%, PAA_place%, PAA_gare%, _ PAA_mention%, PAA_besoin%, PAA_detail%, PAA_assistance%, PAA_statut%, PAA_gare_autre%, _ PAA_type_train%, PAA_tel%, gares_email%, gares_media%, gares_gare%, gares_fax1%, gares_fax2%, _ CRO_gare%, gares_CRO% Dim cheminmail$, cheminfax$, che$, cheminCNO$, cheminCRO$, chemin$, dBA$ Dim c As Range, cell As Range Dim derlig_forme&, PAA_derlig&, gares_derlig&, temp2_derlig&

---

 Remplacé partout dans le code :

« 3 – Gares » par « 3-Gares »
« 2 – PAAs » par « 2-PAAs »
« 1 - Choix » par « 1-Choix »

 Renommées les 3 feuilles correspondantes.

 Remplacé partout dans le code

Code:

---

Columns(8).Select

---

par

Code:

---

Columns("H.H").EntireColumn.Insert

---

Maintenant j’ai un message d’erreur : Incompatibilité de type « Type incompatible (erreur 13) »

En PJ, mon fichier modifié.

Bien cordialement.

Code:

---

Columns("H:H").EntireColumn.Insert

---

mais dans ce cas

Code:

---

Columns(8).EntireColumn.Insert

---

suffit ;)
T'as encore mal lu les explications de Jacques-Jean :mouarf:

Bonjour ouskel'n'or,

Je viens de remplacer

Code:

---

Columns("H:H").EntireColumn.Insert

---

par

Code:

---

Columns(8).EntireColumn.Insert

---

.

J'ai de nouveau une erreur 400, à l'éxécution de la macro ThisWorkbook.cro :cry:

Bien cordialement.

Comme chez mois ça fonctionne avec ou sans filtre, n'aurais-tu pas une protection sur ta feuille ? Des colonnes masquées ? La feuille existe bien ? :cry:

Edit
Je viens de tester avec la colonne H masqué et le code fonctionne malgré tout :roll:
Je ne vois pas ce que je peux tester d'autre :(
C'est de ton côté que ça se passe...

Bonjour,

Déjà dans le fichier que vous venez de joindre vous aviez indiqué :

Code:

---

1 2 3 4 5 6

If PAA_mention <> 8 Then Columns(c.Column).Select Selection.Cut Columns("H.H").EntireColumn.Insert Selection.Insert Shift:=xlToRight End If

---

donc ("H.H") au lieu de ("H:H")

je sais, vous venez de remplacer par (8) donc cela n'a plus d'importance mais je vous le signale car ce type d'erreur de frappe peut bien évidemment se produire ailleurs et on ne pourra pas toujours tester toutes vos macros à chacune de vos modifications.

Cela dit je regarde pour l'erreur dans la procédure "cro" car il me semble que j'avais déjà donné une modification à ce sujet.

Je suis vraiment désolé ouskel'n'or, mais lorsqu'à partir de la feuille 1-Choix je sélectionne le bouton "Plannings CRO", j'ai toujours une erreur 400 ...

(Pas de protection, de colonne masquée, ...)

En PJ, mon fichier.

Je crois que je suis vraiment une quiche :oops:

Bien cordialement

Désolé Ouskel'n'or, j'ai le même problème avec :

Code:

---

Columns(8).EntireColumn.Insert

---

si le filtre automatique est activé : "erreur 400".
Mais de plus, ensuite, j'ai la même erreur sur une feuille sans filtre automatique :

Code:

---

1 2 3 4 5

CRO_gare = c.Column Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Select Selection.Copy 'ici : erreur 400 Columns(8).EntireColumn.Insert

---

et en mettant :

Code:

---

1 2 3

CRO_gare = c.Column Columns(8).EntireColumn.Insert Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Copy Range(Cells(1, 8), Cells(gares_derlig, 8))

---

pas d'erreur.

Est-ce un problème de version d'Excel (Excel 2000) ?

Ananar, une question que je me pose (en dehors de ces erreurs) :

est-ce qu'il y a un ordre à respecter dans le lancement de vos procédures ou est-ce que l'on peut lancer "cro" sans avoir lancé par exemple "all" ?

J'ai continué à prendre un peu connaissance de votre code, mais à ce stade je ne peux plus rien faire s'il n'est pas possible d'ajouter une colonne lorsqu'un filtre automatique est activé (et j'avoue que je n'y parviens pas).

Exemple :

Dans la procédure "vérif" vous testez sur la feuille "2-PAAs" si le filtre automatique est activé et vous l'activez s'il ne l'est pas en définissant la colonne filtrée = 12 (titre = "Statut") et le texte = "Confirmé".

Les 919 lignes de données contiennent toutes ce texte, est-ce que cela peut être parfois différent sinon pourquoi définir ce paramètre ?

Si ça peut être différent il faut définir la colonne à filtrer par une variable après avoir recherché le titre car dans le traitement suivant on ajoute au moins une colonne (dans la procédure "cro") et si l'on doit supprimer le filtre pour insérer cette colonne puis le remettre ensuite, le N° de colonne ne sera plus le même.

La preuve est que dans le dernier fichier que vous avez joint la colonne "Statut" n'est plus la 12 mais la 13.

Et ce n'est qu'un exemple.

Donc, tester les 11 procédures et les quelques 850 lignes de code, sachant qu'une feuille comprend 57 champs et l'autre 67 et que sur chacune il y a des ajouts et des suppressions de colonnes, me paraît un peu rébarbatif.

J'ai la même erreur avec la copy intercalée mais pourquoi ne pas inverser les lignes ? Là je n'ai plus d'erreur

Code:

---

1 2 3

Columns(8).EntireColumn.Insert CRO_gare = c.Column Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Copy

---

La sélection n'est pas nécessaire
Eviter les Select qui alourdissent inutilement le code et provoquent des mvts de feuilles.

Pour ce cas je n'ai plus de problème.

Je ne l'ai pas fait exactement comme vous mais cela fonctionne :

Code:

---

1 2 3 4

CRO_gare = c.Column Columns(8).EntireColumn.Insert Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Copy _ Range(Cells(1, 8), Cells(gares_derlig, 8))

---

C'est au niveau des lignes suivantes :

Code:

---

1 2 3 4

Sheets("2-PAAs").Select If ActiveSheet.AutoFilterMode Then Selection.AutoFilter Columns(8).EntireColumn.Insert

---

si je ne désactive pas le filtre :

Code:

---

Columns(8).EntireColumn.Insert

---

provoque l'erreur 400 et comme je le précise dans ma dernière réponse désactiver le filtre ne pose pas de problème, mais le réactiver avec quels paramètres ?

Sur la feuille concernée, il y a activation du filtre avec des paramètres différents suivant la procédure et de plus il faut tenir compte des colonnes ajoutées ou supprimées.

Il y a 5 boutons mais 11 procédures donc selon la procédure lancée d'autres sont appelées mais pas obligatoirement les mêmes.

C'est la question que j'ai posée : y a-t-il on ordre à respecter ou est-ce que l'on peut cliquer sur n'importe quel bouton sans que le traitement ne vienne provoquer des problèmes sur un autre traitement ?

Oui, mais si on se sélectionne pas la feuille, même si j'impose le filtre, ça fonctionne. Sur feuille non filtrée

Code:

---

1 2	If Not Sheets("Feuil1").AutoFilterMode Then Worksheets("Feuil1").Cells.AutoFilter Columns(8).EntireColumn.Insert

---

Sur feuille filtrée préalablement par code

Code:

---

1 2	Worksheets("Feuil1").Cells.AutoFilter 'je place le filtre sur toutes les colonnes Columns(8).EntireColumn.Insert

---

Outre mes préventions précédentes contre la sélection, la sélection nuit également au code... :mouarf:
(Je le découvre pour l'insert de colonnes et je pense qu'il doit en être de même pour les lignes) ;)
Et comme je ne sélectionne jamais sauf exception indispensable, je n'avais jamais pu le remarquer... :aie:

Ok, on replace le code dans son contexte :

Code:

---

1 2 3 4 5 6

With Sheets("3-Gares").Range("A1:AU1") Set c = .Find("CRO") End With CRO_gare = c.Column Columns(8).EntireColumn.Insert Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Copy Range(Cells(1, 8), Cells(gares_derlig, 8))

---

Ici c'est la feuille "3-Gares" qui est active

en-dessous je place vos 2 lignes de code :

Code:

---

1 2	Worksheets("2-PAAs").Cells.AutoFilter 'je place le filtre sur toutes les colonnes Columns(8).EntireColumn.Insert

---

1) je n'ai pas l'erreur 400 mais la colonne est insérée sur la feuille "3-Gares" (pour laquelle le filtre automatique n'est pas activé) et non la "2-PAAs".

2) Le problème n'est pas d'activer un filtre automatique sur toutes les colonnes mais de l'activer avec des paramètres, exemple :

Code:

---

1 2	If Not ActiveSheet.AutoFilterMode Then Selection.AutoFilter Selection.AutoFilter Field:=12, Criteria1:="Confirmé"

---

où en l'occurrence la colonne n'est plus 12 mais 13, dans ce cas mais dans un autre ?

Et je ne dis surtout pas que le cas n'a pas de solution, je précise seulement qu'il faut se plonger totalement dans l'étude de ce code, dans l'enchaînement des procédures pour être sûr de ce que l'on fait.

Et pourtant 850 lignes de code ce n'est pas la mer à boire, j'en ai fait qui font 50 fois plus mais je les avais écrites, ce qui n'est pas le cas ici.

Hello Jacques-Jean, je ne polémique pas, j'ai simplement vu les difficultés d'Ananar à insérer une colonne.
Je ne désirais pas m'impliquer autrement dans cette discussion.

D'ailleurs, si je commence, je rencontre déjà des incohérences dans les premières lignes.

Citation:

---

With Sheets("3 - Gares").Range("A1:AU1")
.......Set c = .Find("CRO")
End With

---

A quoi sert cette recherche ?
si "CRO" est trouvé, si "CRO" n'est pas trouvé ?

Et ici : où est le paste ?

Citation:

---

Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Select
Selection.Copy

---

Sans parler des "Select" ;)

Et je ne souhaite pas aller plus loin.

Je conseillerais tout de même à Ananar de refaire son analyse.

Je vous souhaite une bonne nuit à tous les deux.

Bonjour ouskel'n'or et jacques_jean,

Voici quelques précisions sur l'utilisation de ce fichier .xls :

- Je travaille dans un centre d'appels qui réserve des prestations d'accueil en gare pour des personnes handicapées.

- Dans le fonctionnement normal, les prestations sont réservées tous les jours, sur une appli , et envoyées toutes les nuits via un batch dans une appli destinée aux gares.

- Par contre, il peut y avoir des dysfonctionnements techniques, sur une des ces appli.

- Ce fichier .xls, permet pour chaque type de dysfonctionnement, de réduire les impacts. La macro générera les fichiers excel à envoyer par mail et fax pour chacune des gares (enregistrés au même endroit que la macro). Ces documents seront ensuite à envoyer manuellement.

- S'il y a un KO dans un des jobs du Batch, nous réalisons à partir de notre appli un export au format .csv, que nous collons dans les feuilles 2-PAAs et 3-Gares. Je précise que l'ordre et l'intitulé de ces exports est toujours le même.

- Il n'y a pas d'ordre à respecter dans la procédure, on peut donc cliquer sur n'importe quel bouton (en fonction des KO).

En tout cas, encore :merci: pour votre collaboration depuis 5 jours.

Bien cordialement.

Bonjour,

Ouskel'n'or : je ne voulais surtout pas polémiquer, je répondais simplement
à votre proposition pour ces 2 lignes de code et j'en profite pour vous dire que j'ai fait une erreur, et oui cela m'arrive aussi :

Code:

---

Sheets("2-PAAs").Columns(8).EntireColumn.Insert

---

fonctionne très bien en désactivant le filtre ce qui comme vous le dîtes évite bien sûr les "Select".

Ananar : je veux bien continuer pour solutionner ce problème d'ajout de colonnes qui ne se pose plus que dans un cas mais il me faut une précision :

dans votre fichier d'origine, avant tout traitement quel qu'il soit est-ce que dernière colonne de la feuille "2-PAAs" est bien "BP" et la colonne "Statut" se trouve bien en "L".

Je pose cette question simplement parce que ce n'est pas le cas dans le dernier fichier que vous avez joint.

Cela dit, je ne modifierai rien d'autre dans le code car comme le dit Ouskel'n'or il faudrait refaire l'analyse et on ne fait pas l'analyse à partir d'un programme, c'est l'inverse qui se fait.

Ananar,
J'ai bien voulu te venir en aide mais celà m'est impossible.
Des exemples d'incohérences ? Presque à chaque ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Worksheets.Add ActiveSheet.Name = "temp2CRO" ActiveSheet.Paste 'Jusque là, les trois lignes du dessus, ok   'Mais là : tu sélectionnes une plage. Pour en faire quoi ? temp2_derlig = Cells(65536, 1).End(xlUp).Row Range(Cells(2, 1), Cells(temp2_derlig, 1)).Select   'Et là : Ces quatre lignes qui arrivent "ici" comme un cheveu dans la soupe che = Application.ActiveWorkbook.Path cheminCRO = che & "\CRO" ChDir che If Dir(cheminCRO, vbDirectory) = "" Then MkDir "CRO"   'Et ici, tu parcours une plage dans une feuille (ici tu es dans "temp2CRO") 'et la ligne d'après, tu sélectionnes une autre feuille For Each cell In Selection 'Cell est à déclarer as Range   Sheets("2 - PAAs").Select Rows(1).Select   'et ici, tu mets comme critère la cellule dans laquelle tu te trouves Selection.AutoFilter Field:=8, Criteria1:=cell   'Et ici, "tu as posé un filtre (!)" et tu sélectionnes une plage sans en tenir compte Range(Cells(2, 1), Cells(PAA_derlig, 7)).Select   'ETC.

---

Sans parler des simplifications multiples, ton code...
Bref, à ta place, j'écrirais la procédure que tu veux réaliser en français (non en code qui visiblement n'est pas ton point fort) et une fois refaite ton analyse, vus tes effort pour écrire ta procédure, nous pourrons toujours t'aider.
Un conseil :
Stucture tes procédures, pour chaque traitement ajoute un commentaire "là je fais ci, ici je fais çà..." Tu pourras ainsi relire ton code plus facilement et ça nous aidera à t'aider.
Ensuite, simplifie ton code en supprimant les select. Un simple exemple :
Ici tu mets

Citation:

---

Range(Cells(2, 1), Cells(PAA_derlig, 7)).Select
Selection.Copy
Sheets("forme").Select
Cells(2, 1).Select
ActiveSheet.Paste

---

Tu pourrais écrire cela ainsi

Code:

---

1 2	Sheets("2 - PAAs").Range(Cells(2, 1), Cells(PAA_derlig, 7)).Copy _ Sheets("forme").Cells(2, 1)

---

Même le "Paste" n'est plus nécessaire. C'est plus court, ça ne provoque pas de mouvement de feuille et surtout ça n'implique pas une sélection d'une feuille alors que tu parcours les cellules d'une autre...

Bon courage

Pour jacques jean :

Avant tout traitement quel qu'il soit, la dernière colonne de la feuille "2-PAAs" est "AU" et la colonne "Statut" se trouve en "AK".

Pour jacques jean et ouskel'n'or :

Merci à tous les deux pour votre patience et votre partage.

Néanmoins, je vais suivre vos conseils et refaire l'analyse de mon projet, en écrivant la procédure en français.
Je reviendrai vers vous ensuite.

Bien à vous.

Je crois qu'en effet il faut revoir votre code :

Sur le 1er fichier que vous avez joint la dernière colonne de la feuille "2-PAAs" est bien "AU" mais la colonne "Statut" est "L" et non pas "AK".

Sur le 2ème, comme je vous l'ai indiqué les colonnes ne sont plus les mêmes et je viens de m'apercevoir que c'est la même chose pour la feuille "3-Gares".

Mais aussi dans la procédure "cro" le code :

Code:

---

1 2 3 4

Range(Cells(1, CRO_gare), Cells(gares_derlig, CRO_gare)).Select Selection.Copy Columns(8).Select Selection.Insert Shift:=xlToRight

---

J'ai adapté ce code pour que la copie fonctionne mais le fait que vous copiez dans une nouvelle colonne insérée le contenu d'une autre colonne de la même feuille, quel est le but de cette copie dans une même feuille dont 2 colonnes vont être affectées du même titre (ce qui peut sans doute poser un problème lors de la réactivation du filtre automatique) ?

D'autre part vous n'avez aucune instruction d'enregistrement de votre fichier après le lancement d'une option du menu ce qui suppose que vous le faites manuellement, y compris lorsqu'une procédure a été interrompue
suite à une erreur.

Donc de nouvelles erreurs lors d'une nouvelle ouverture du fichier et d'un nouveau lancement d'une procédure.