Microsoft 365 Mon casse-tête depuis 1 semaine = je vais devenir maboul

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une beau WE :)

Voilà une semaine que je planche sur les 2 soucis de mon fichier.
Et là : c'est trop fort pour moi et je n'y comprends rien !!!

J'ai créé un fichier de prospection qui fonctionne parfaitement chez moi.
Je suis en Tunisie sous office365 - windows10
Ma collègue habite en France et est également : sous office365 - windows10
Ses paramètres office et windows10 sont exactement les mêmes que moi (y compris paramètres régionaux et complémentaires).

Et pourtant :mad::mad::mad:
Quand j'envoie le fichier (transfert par Skype) à ma collègue ... il ne fonctionne pas chez elle !!!

Fonctionnement du fichier :
A l'ouverture (code dans le ThisWorkbook) :
- les rappels de la colonne "J" à partir de la ligne 6 sont classés dans l'ordre des dates,
- Ils sont comptés. Un MsgBox s'affiche pour informer,
- les dates en dépassement ne sont mises en rouge (MFC) :
1634974829065.png

Problème 1
Chez ma collègue à l'ouverture il y a un souci d'incompatibilité type 13

1634974997929.png

Problème 2
Les rappels ne sont pas classés par dates mais classés sur les jours.
Et les dates en dépassement ne sont pas mises en rouge (MFC)
1634976735991.png

Je n'arrive pas à comprendre pourquoi :
Même fichier (fichier transmis) - même Windows10 - même office - même paramètres.
ça marche chez moi et pas chez elle :mad::mad::mad:

Je joins le fichier test.
nota : le code de la feuille permet également de trier en cliquant sur la cellule "J5" (classer)

Fonctionne-t-il chez vous ?
Pourriez tester et m'aider ?
Je vous remercie vivement,
Amicalement,
lionel,
 

Pièces jointes

  • Appel_test2.xlsm
    33.5 KB · Affichages: 25
Dernière édition:

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
re,

change cette ligne dans ta macro open sur le dernier fichier que je t'ai envoyé
VB:
.NumberFormat = "dd/mm/yyyy" & vbLf & "hh:mm"
par
VB:
.NumberFormat = "dd.mm.yyyy" & vbLf & "hh:mm"
et tu pourras garder le même format d'affichage et la même taille de colonne.

Bien cordialement, @+
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche :)

Je tiens à remercier tous ceux qui m'ont répondu pour m'aider.
En particulier Yeahou qui a solutionné mes soucis.

Hier soir, nous avons testé chez ma collègue et tout fonctionne comme chez moi :)
Encore merci Yeahou et à vous tous pour votre gentillesse et votre patience :)

Il me reste un petit souci d'affichage :
Je dois élargir la colonne à 15 alors qu'elle devrait être à 10 pour afficher les dates sinon je ne vois que des "**************" "lol ça froisse mes yeux que cette colonne ne soit pas de la même largeur que les autres mais ce n'est pas bien grave, l'important étant que ça fonctionne :)

Encore merci,
Amicalement,
lionel :)
 

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc
Bonjour CP4,
Merci de t'être intéressé à mes soucis.
Bizarre, hormis la largeur de la colonne, ça fonctionne bien chez moi.
Je remets le fichier en pièce jointe,
Tu veux bien le tester ?
Bon dimanche à toi aussi :)
lionel :)
Avec plaisir! Mais même plantage sur la même ligne.

usine à gaz test4.gif

La largeur chez est correcte, on lit bien la date.
L'essentiel est que ça fonctionne chez toi et ta collègue.

edit: erreur levée
1635069584548.png


edit2: chez-moi il fallait Add et non Add2
VB:
 'syntaxe initiale'
 .SortFields.Add2 Key:=Range("J6:J" & dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
 
 'syntaxe excel 2010 chez moi'
 .SortFields.Add Key:=Range("J6:J" & dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
 
Dernière édition:

Discussions similaires

Réponses
10
Affichages
598

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16