Phoenix / NewForez

Le même, le fichier a été remplacé.

brossard56 a écrit :Merci Jm.
Je suis sur la route toute la journée, je regarderai demain

On est déjà demain, et depuis au moins 2 jours.
Le souci ne s'est pas arrangé.
J'arrive à ouvrir les fichiers que JML91 m'a préparé.
J'arrive à ouvrir mes anciennes cartos, mais dès qu'il s'agit de faire une mise à jour, le fichier se ferme et un nouveau classeur vierge s'ouvre à la place.
J'ai comme l'impression que cela vient de mon logiciel excel.

brossard56 a écrit :J'ai comme l'impression que cela vient de mon logiciel excel.

réinstalle excel ?

Bonne Année geracole

J'ai essayé avec la carto de la Haute-Corse. Pour ce département, ça ne fonctionne pas lors de la copie des feuilles à partir d'une ancienne maCartociste.
Cela peut-il être du au nom de la zone "Castagniccia et +" qui contient un caractère spécial?



Bonne Année encore une fois.

Salut,
Oui c'est bien à caude du "+".
Tu peux corriger en faisant comme ça :

Ton plantage a ouvert le code.


1. Recherche la fonction RemplacerCar ci dessous et ajoute la ligne en rouge

Function RemplacerCar(ByVal TexteIn As String) As String
Dim i As Integer
Dim wTexte As String
wTexte = TexteIn
wTexte = Replace(wTexte, "é", "e")
wTexte = Replace(wTexte, "è", "e")
wTexte = Replace(wTexte, "ê", "e")
wTexte = Replace(wTexte, "ë", "e")
wTexte = Replace(wTexte, "î", "i")
wTexte = Replace(wTexte, "ï", "i")
wTexte = Replace(wTexte, "â", "a")
wTexte = Replace(wTexte, "à", "a")
wTexte = Replace(wTexte, "ô", "o")
wTexte = Replace(wTexte, "ö", "o")
wTexte = Replace(wTexte, "û", "u")
wTexte = Replace(wTexte, "ü", "u")
wTexte = Replace(wTexte, "ç", "c")
wTexte = Replace(wTexte, "ñ", "n")
wTexte = Replace(wTexte, "-", "_")
wTexte = Replace(wTexte, "+", "_")


2. Ouvre le module CisteenAttenteCartoNf et
recherche la fonction CisteNonCartoNf ci dessous et ajoute la ligne en rouge

Sub CistesNonCartoNf(maxciste As Long)
Dim l_Url, texte, nociste, Descr, codeP As String
Dim Page, NbPages, Lign As Integer
Dim i, i0, j, k, dl As Single
Dim OK As Boolean

' Contrôle existance de la zone "Non_classées"
For i = 2 To Sheets.Count
If Sheets(i).Name = "Non_classees" Then Exit For
Next
If i > Sheets.Count Then AddZoneGeo ("Non_classees")

' 401 si non FR, affecter no de pays
Select Case [DEPARTEMENT]
Case "2B": codeP = "200"
Case "01" To "99": codeP = [DEPARTEMENT]
Case "BE": codeP = "1126"
Case "FR": codeP = "1129"

Enregistre et relance.

brossard56 a écrit :

brossard56 a écrit :Merci Jm.
Je suis sur la route toute la journée, je regarderai demain

On est déjà demain, et depuis au moins 2 jours.
Le souci ne s'est pas arrangé.
J'arrive à ouvrir les fichiers que JML91 m'a préparé.
J'arrive à ouvrir mes anciennes cartos, mais dès qu'il s'agit de faire une mise à jour, le fichier se ferme et un nouveau classeur vierge s'ouvre à la place.
J'ai comme l'impression que cela vient de mon logiciel excel.

As-tu essayé un chargement manuel ?
Juste pour cerner le problème.
A+

geracole a écrit :

brossard56 a écrit :

brossard56 a écrit :Merci Jm.
Je suis sur la route toute la journée, je regarderai demain

On est déjà demain, et depuis au moins 2 jours.
Le souci ne s'est pas arrangé.
J'arrive à ouvrir les fichiers que JML91 m'a préparé.
J'arrive à ouvrir mes anciennes cartos, mais dès qu'il s'agit de faire une mise à jour, le fichier se ferme et un nouveau classeur vierge s'ouvre à la place.
J'ai comme l'impression que cela vient de mon logiciel excel.

As-tu essayé un chargement manuel ?
Juste pour cerner le problème.
A+

il ne se passe rien quand je clique sur le chargement manuel, aucune fenêtre ne s'ouvre pour aller "attacher" le fichier csv.
En chargement automatique, seule la carte de fond du département s'affiche avant qu'Excel ne se ferme.

(geracole, je t'envoie un mail avec 2 captures d'écran en parallèle)

geracole a écrit :Salut,
Oui c'est bien à caude du "+".
Tu peux corriger en faisant comme ça :

Ton plantage a ouvert le code.


1. Recherche la fonction RemplacerCar ci dessous et ajoute la ligne en rouge

Function RemplacerCar(ByVal TexteIn As String) As String
Dim i As Integer
Dim wTexte As String

wTexte = Replace(wTexte, "+", "_")


2. Ouvre le module CisteenAttenteCartoNf et
recherche la fonction CisteNonCartoNf ci dessous et ajoute la ligne en rouge

Sub CistesNonCartoNf(maxciste As Long)


' 401 si non FR, affecter no de pays
Select Case [DEPARTEMENT]
Case "2B": codeP = "200"
Case "01" To "99": codeP = [DEPARTEMENT]
Case "BE": codeP = "1126"
Case "FR": codeP = "1129"

Enregistre et relance.

Hello

Je vais apporter une réponse qui, je l'espère, sera assez complète.

Modifications effectuées mais un nouveau bug dans Sub CopyCartoData(Optional cpyDsg)
Erreur 9: l'indice n'appartient pas à la sélection

' Version > 4 déplacer nom zone origine de K1 vers Z1
If S_RevisionNb < "40000" Then
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("K1").Value <----ICI
Else
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("Z1").Value
End If

Je pense que cela est du à la différence du nom de zone entre maCartociste(3.05.02) et maCartociste(4.0101).

Cependant la copie a fonctionné partiellement; les 3 premières zones par ordre alphabétique (Balagne, Cap_Corse, Castagniccia_et__ sont copiées et dans la cellule Z1 de la zone Castagniccia_et__ il y a bien inscrit Castagniccia_et__.

Lorsque je ferme Excel et que je relance maCartociste(4.01.01), j'ai une nouvelle erreur:

Erreur d'exécution '3001'
Les arguements sont de type incorrect, en dehors des limites autorisées ou en conflit les uns les autres

Public Function GetCodeSource2 (sURL)
. Type = 1 ' adTypeBinary
. Open
. Write objHTTP.ResponseBody <-- ICI

J'ai aussi fait un essai avec maCartociste(4.01.01) non modifiée mais dans maCartociste(3.05.02) j'ai modifié le nom de la feuille "Castagniccia et +" en Castagniccia et _". La copie s'effectue correctement et complètement.

Je ferai des essais plus complets prochainement. Je dois partir........

A plus

Oui en effet.
deux soucis :
1. Castagnicia et +, le plus pose problème en effet
2. le code département de la corse du sud et 2B mais pour la cartociste c'est 200?

Sources à modifier, je vois que tu sais faire :

Module maCartociste function CopyCartoData

' Version > 4 déplacer nom zone origine de K1 vers Z1
If S_RevisionNb < "40000" Then
' cas ou caractère remplacé changé depuis version exple 4.01.02 Haute corde Castagniccia et +
On Error Resume Next
If (S_wb.Sheets(ZoneName) Is Nothing) Then
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(S_ZoneName).Range("K1").Value
Else
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("K1").Value
End If
Else
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("Z1").Value
End If
On Error GoTo 0
' Ajuster entête, largeur, police colonne
ApplyColonAttr
End If


Module CisteenAttenteCartoNf function YatildeNouvellesCistes

Function YatildeNouvellesCistes()
Dim l_Url, texte, nociste, codeP As String
Dim i, j As Single
' 401 si non FR, affecter no de pays
Select Case [DEPARTEMENT]
Case "2B": codeP = "200" '4.01.02
Case "01" To "999": codeP = [DEPARTEMENT]
Case "BE": codeP = "1126"

Enregistrer et relancer.

geracole a écrit :Oui en effet.
deux soucis :
1. Castagnicia et +, le plus pose problème en effet
2. le code département de la corse du sud et 2B mais pour la cartociste c'est 200?

Sources à modifier, je vois que tu sais faire :

Module maCartociste function CopyCartoData

' Version > 4 déplacer nom zone origine de K1 vers Z1
If S_RevisionNb < "40000" Then
' cas ou caractère remplacé changé depuis version exple 4.01.02 Haute corde Castagniccia et +
On Error Resume Next
If (S_wb.Sheets(ZoneName) Is Nothing) Then
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(S_ZoneName).Range("K1").Value
Else
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("K1").Value
End If
Else
T_wb.Sheets(ZoneName).Range("Z1").Value = S_wb.Sheets(ZoneName).Range("Z1").Value
End If
On Error GoTo 0
' Ajuster entête, largeur, police colonne
ApplyColonAttr
End If

J'ai fait les modifications mais quand j'enregistre et je ferme, j'ai le message "Erreur de compilation Variable non définie" pour le terme en gras noir.
Il faut surement le déclarer quelque part....
A qoui sert le texte que j'ai mis en violet

Je ne serai pas dispo pendant plusieurs jours. Donc je pourrai lire tes messages mais je ne pourrai pas te répondre à partir de demain ou même ce soir.

A plus .

Zut, Il manque la déclaration suivante :
Dim S_Zonename as string
a mettre en début de la fonction, à la suite des autres déclarations de variable.

Les lignes en violet existe déjà dans ton code, sauf on error goto 0 que tu dois ajouter.

Si tu peux tester maintenant, je pourrais clore ce bug.

geracole a écrit :Zut, Il manque la déclaration suivante :
Dim S_Zonename as string
a mettre en début de la fonction, à la suite des autres déclarations de variable.

Les lignes en violet existe déjà dans ton code, sauf on error goto 0 que tu dois ajouter.

Si tu peux tester maintenant, je pourrais clore ce bug.

Voilà, le test est fait et tout semble fonctionner correctement.

Merci beaucoup pour ton aide. Cela va servir à ceux qui surveillent la carto de le Haute Corse.


Majordomi

C'est parfait.
je vais devoir officialiser ces corrections par une mise à jour du logiciel.
Je vais malgré tout attendre encore un peu.
A+

merci à tous
Y a-t-il quelqu'un qui ait testé la version 64bits ?
je vais tester un transfo des macartocistes en 32 bits vers 64 bits mis à dispo par geracole !!!!

jml91 a écrit :merci à tous
Y a-t-il quelqu'un qui ait testé la version 64bits ?
je vais tester un transfo des macartocistes en 32 bits vers 64 bits mis à dispo par geracole !!!!

Hello jml

Depuis un gros plantage PC cet été, j'utilise W10 64bits et donc les maCartocistes de geracole sous ce format. Hormis quelques petits soucis comme celui relaté ci-dessus, tout fonctionne correctement.

A+

Majordomi a écrit :

jml91 a écrit :merci à tous
Y a-t-il quelqu'un qui ait testé la version 64bits ?
je vais tester un transfo des macartocistes en 32 bits vers 64 bits mis à dispo par geracole !!!!

Hello jml

Depuis un gros plantage PC cet été, j'utilise W10 64bits et donc les maCartocistes de geracole sous ce format. Hormis quelques petits soucis comme celui relaté ci-dessus, tout fonctionne correctement.

A+

pour transformer macartociste tu as suivi le mode d'emploi de la 4.01.01 (page 6 "de la v32bits vers la v64bits") ? pas de souci ?

jml91 a écrit :

Majordomi a écrit :

jml91 a écrit :merci à tous
Y a-t-il quelqu'un qui ait testé la version 64bits ?
je vais tester un transfo des macartocistes en 32 bits vers 64 bits mis à dispo par geracole !!!!

Hello jml

Depuis un gros plantage PC cet été, j'utilise W10 64bits et donc les maCartocistes de geracole sous ce format. Hormis quelques petits soucis comme celui relaté ci-dessus, tout fonctionne correctement.

A+

pour transformer macartociste tu as suivi le mode d'emploi de la 4.01.01 (page 6 "de la v32bits vers la v64bits") ? pas de souci ?

Oui exactement et tout roule parfaitement.

A la semaine prochaine
.

Merci

Je viens de tester avec les autres fichiers mis à dispo par geracole (mescistescachées ; monpalmares ; palmaresdescisteurs) et le résultat est le même à chaque fois. Excel se ferme et ouvre à la place un classeur vide.

J'ai ré-installé Office mais rien n'a changé

jml, Il y a une différence notable entre toi et majordomi, c'est que toi tu as restauré maCartociste construit sur un 32bits vers ton portable 64bits, alors que majordomi a installé la version 4.01.01 sur un ordi 64bits.
Est-ce que je me trompe ?

L'autre fois, suite a l'erreur je t'ai demandé de refaire une mise à jour du tableau pour reconstruire les liens.
As-tu essayé ?

brossard56 a écrit :Je viens de tester avec les autres fichiers mis à dispo par geracole (mescistescachées ; monpalmares ; palmaresdescisteurs) et le résultat est le même à chaque fois. Excel se ferme et ouvre à la place un classeur vide.

J'ai ré-installé Office mais rien n'a changé

La dernière fois que tu as utilisé mescistescachées ou palmares c'était quand ?
Que s'est-il passé depuis ?
Des mises à jour de Windows ?

geracole a écrit :jml, Il y a une différence notable entre toi et majordomi, c'est que toi tu as restauré maCartociste construit sur un 32bits vers ton portable 64bits, alors que majordomi a installé la version 4.01.01 sur un ordi 64bits.
Est-ce que je me trompe ?

L'autre fois, suite a l'erreur je t'ai demandé de refaire une mise à jour du tableau pour reconstruire les liens.
As-tu essayé ?

Je ne sais plus trop où j'en suis, sauf que mes 14 macartocistes 4.01.01 et mon modèle v32bits fonctionnent.
pour mon portable (v64bits) j'ai donc 3 possibilités :
- créer un nouveau modèle v64bits et créer les 14 nouvelles macartocistes, v64bits mais je perds tous les rts perso
- modifier à la main les copies des 14 macartocistes v32bits en v64bits (un peu long)
- utiliser l'outil de conversion (v32bits vers v64bits) (à utiliser sur le portable) que tu m'as fourni, (je n'ai pas encore tenté)
N'est-il pas mieux que j'attente la v4.0.01 débuggée

Oui, je suis en train de développer un installateur de correctifs qui évitera de faire les copies des feuilles. Sauf s'il y a des modifs des feuilles.
Ça devrait être bon pour les corrections 4.01.02.
Si tu es d'accord tu seras le premier à tester.

geracole a écrit :Oui, je suis en train de développer un installateur de correctifs qui évitera de faire les copies des feuilles. Sauf s'il y a des modifs des feuilles.
Ça devrait être bon pour les corrections 4.01.02.
Si tu es d'accord tu seras le premier à tester.

ok pour tester la 4.01.02
donc j'attends pour tenter le transfert vers mon portable (v64bits) ?????

jml91 a écrit : donc j'attends pour tenter le transfert vers mon portable (v64bits) ?????

Oui.

brossard56 a écrit :Je viens de tester avec les autres fichiers mis à dispo par geracole (mescistescachées ; monpalmares ; palmaresdescisteurs) et le résultat est le même à chaque fois. Excel se ferme et ouvre à la place un classeur vide.

J'ai ré-installé Office mais rien n'a changé

maCartociste29 OK pour moi.

Brossard, as-tu désactivé provisoirement ton anti-virus avant de télécharger ? J'ai eu ce problème au démarrage. A chaque fois, je me fais avoir.
Maintenant, nickel.

Merci Géracole pour tout ce travail qui nous facilite et organise bien le nôtre.

geracole a écrit : La dernière fois que tu as utilisé mescistescachées ou palmares c'était quand ?

ce ne sont pas les fichiers que j'utilisais le plus. Je ne sais pas.
Pour "ma cartociste", ma dernière utilisation remontait à mi-novembre

geracole a écrit :Des mises à jour de Windows ?

Oui les MAJ de sécurité et les MAJ logicielles ont été faites

colene a écrit : Brossard, as-tu désactivé provisoirement ton anti-virus avant de télécharger ? J'ai eu ce problème au démarrage. A chaque fois, je me fais avoir.
Maintenant, nickel.

Pour l'antivirus, c'est Avira. Je n'ai jamais eu de souci avec jusqu'à maintenant.
Dans le doute, je vais tester la désactivation avant téléchargement

Mystère

Hello everyboby,

BONNE NOUVELLE, AVAST ne va plus nous ennuyer. J'ai trouvé pourquoi il rejette maCartociste, c'est un méchant bug chez Avast, il ne supporte pas de trouver dans le code quelque chose comme ".fr/". Je me suis arrangé pour qu'il ne le trouve plus.
Dorénavant, vous pouvez transférer sans stopper AVAST.
De même plus besoin de mettre les maCartocistes dans un répertoire exclus de AVAST.

Ceci est valable depuis la version 4.01.02 que j'ai remis sur dropbox. ICI.

Autre bonne nouvelle.
J'ai écrit un outil pour transférer et appliquer les correctifs.
Pour la version 4.01.02 il s'appelle Correctif40102. Il permet d'appliquer les modifs directement sur maCartociste sans avoir à copier les feuilles. Pour les Excel 64bits, il transforme automatiquement les functions au format 64 bits.
Chaque fois qu'il y aura des modifications qui ne s'appliquent qu'au code (pas de modif des feuilles), je créerai un Correctif4nnnn pour les appliquer.

Dès à présent, vous pouvez l'utiliser pour corriger quelques bugs trouvés sur la 4.01.01.
Il est téléchargeable ICI.

En résumé. Si tu as installé la version 4.01.01, télécharge Correctif40102 et applique-le.
Sinon installe directement la version 4.01.02 depuis le lien indiqué plus haut.

Bonne journée.

geracole a écrit : BONNE NOUVELLE, AVAST ne va plus nous ennuyer.
En résumé. Si tu as installé la version 4.01.01, télécharge Correctif40102 et applique-le.
Sinon installe directement la version 4.01.02 depuis le lien indiqué plus haut.

J'ai bien fait d'attendre un peu.
Merci, Geracole

mcjm a écrit :

geracole a écrit : BONNE NOUVELLE, AVAST ne va plus nous ennuyer.
En résumé. Si tu as installé la version 4.01.01, télécharge Correctif40102 et applique-le.
Sinon installe directement la version 4.01.02 depuis le lien indiqué plus haut.

J'ai bien fait d'attendre un peu.
Merci, Geracole

Il faut bien des testeurs pour que ceux qui hésitent soient rassurés
.