Discussion :

[cbredeche]

bonjour messieurs

je suis confronté a un problème
j'ai crée un fichier avec des macro vba sur excel 2013
j'ai des collègues qui utilise mon fichier sur une version supérieur "excel 2013" a la mienne "exemple excel 2013 (15.0.5153.100) contre "excel 2013 (15.0.5172.100 et d'autre sur "excel 2016" et ils ont des problèmes pour exécuté les macros
le problème ce que je vois c'est surtout sur les déclaration des variables et les objets "format" etc...

a cela puissiez vous m'aider afin que je puisse trouvez une solution que mes codes fonctionne pour la version 2016
ci dessous mon fichier
pour info moi cela fonctionne très bien "onglet calcul curatif"

encore merci de votre aide c est vraiment la seule fois que je suis confronte a cela et je ne sais pas du tout comment faire.

[Pierre Fauconnier]

Salut.

Il n'y a normalement pas d'incompatibilité entre la 2013 et la 2016. Quelles sont les lignes de code qui posent problème? Poste-les ici. Les versions sont-elles en 32 ou en 64bits? (Pour le savoir, Fichier > Compte > A propos d'Excel)

Ps: Joindre le fichier à l'entame de la discussion ne sert à rien, surtout avec des macros dedans...

[cbredeche]

Salut.

Il n'y a normalement pas d'incompatibilité entre la 2013 et la 2016. Quelles sont les lignes de code qui posent problème? Poste-les ici. Les versions sont-elles en 32 ou en 64bits? (Pour le savoir, Fichier > Compte > A propos d'Excel)

Ps: Joindre le fichier à l'entame de la discussion ne sert à rien, surtout avec des macros dedans...

la version ou mes codes pose problème c est sur la version 2016 64 bits

cela bloque sur "format "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub copy_exp_date(ligne_exp As Integer, colonne_exp As Integer, ligne_calc As Integer, colonne_calc As Integer, colonne_calc2 As Integer)
 
 
        'calcul.Cells(ligne_calc, colonne_calc).Value = DateSerial(Year(expor.Cells(ligne_exp, colonne_exp)), Month(expor.Cells(ligne_exp, colonne_exp)), Day(expor.Cells(ligne_exp, colonne_exp)))
        calcul.Cells(ligne_calc, colonne_calc).Value = DateValue(expor.Cells(ligne_exp, colonne_exp))
        'calcul.Cells(ligne_calc, colonne_calc2).Value = TimeSerial(Hour(expor.Cells(ligne_exp, colonne_exp)), Minute(expor.Cells(ligne_exp, colonne_exp)), 0)
        calcul.Cells(ligne_calc, colonne_calc2).Value = Format(TimeValue(expor.Cells(ligne_exp, colonne_exp)), "hh:mm")
       ' calcul.Cells(ligne_calc, colonne_calc2).Format

merci a tous

[Menhir]

le problème ce que je vois c'est surtout sur les déclaration des variables et les objets "format" etc...

A ma connaissance, il n'existe pas d'objets Format dans VBA Excel.

Comment se manifeste le "problème" ?
L'exécution affiche-t-elle un message d'erreur ? Si oui, quel est ce message ? Que contient la ligne de code désignée par le débugage ?

Ton code présente-t-il des particularités comme l'utilisation d'applications autres que Excel (Word, Outlook, etc.) ?

[cbredeche]

merci encore de votre aide
pour info comme explique je travail sur excel 2013 32 bit et des utilisateur sur excel 2016 64 bits

mon code est s'arrete sur Format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub copy_exp_date(ligne_exp As Integer, colonne_exp As Integer, ligne_calc As Integer, colonne_calc As Integer, colonne_calc2 As Integer)
 
 
        'calcul.Cells(ligne_calc, colonne_calc).Value = DateSerial(Year(expor.Cells(ligne_exp, colonne_exp)), Month(expor.Cells(ligne_exp, colonne_exp)), Day(expor.Cells(ligne_exp, colonne_exp)))
        calcul.Cells(ligne_calc, colonne_calc).Value = DateValue(expor.Cells(ligne_exp, colonne_exp))
        'calcul.Cells(ligne_calc, colonne_calc2).Value = TimeSerial(Hour(expor.Cells(ligne_exp, colonne_exp)), Minute(expor.Cells(ligne_exp, colonne_exp)), 0)
        calcul.Cells(ligne_calc, colonne_calc2).Value = Format(TimeValue(expor.Cells(ligne_exp, colonne_exp)), "hh:mm")
       ' calcul.Cells(ligne_calc, colonne_calc2).Format

il me precise
erreur de compilation
projet ou bibliotheque introuvable

Merci de votre aide

[Pierre Fauconnier]

A priori, je ne vois pas d'incompatibilité entre les versions pour le code donné.

Sur les postes XL2016 (pas le tien, donc!), dans l'éditeur VBE, va sur Outils/Références:

• Y-en-a-t-il une mentionnée MANQUANTE?
• Si oui, laquelle?
• Est-elle nécessaire à ton code?
• En la décochant, le problème est-il résolu?

[cbredeche]

A priori, je ne vois pas d'incompatibilité entre les versions pour le code donné.

Sur les postes XL2016 (pas le tien, donc!), va dansans l'éditeur VBE, va sur Outils/Références... Y-en-a-t-il une mentionnée MANQUANTE? Si oui, laquelle? Est-elle nécessaire à ton code? En la décochant, le problème est-il résolu?

super sa fonctionner
le référence manquante est "michrosft common controls 2.6.0 ( sp6)"
on peux m'expliquer ce que sait cela car sa m’est vraiment jamais arrivé

encore merci

[Menhir]

Ce sont les éléments du UserForm.
A priori, ça n'a pas de rapport avec la fonction Format.

[Pierre Fauconnier]

Ce sont les éléments du UserForm.
A priori, ça n'a pas de rapport avec la fonction Format.

C'est pourtant bien cette bibliothèque manquante (ou plutôt le fait qu'elle soit manquante), qui fait planter Format.

Cette bibliothèque, issue de VB 6.0, contient des contrôles de formulaire tels que des contrôles d'arborescence et autres (je ne connais pas la liste par coeur). Cela n'a rien à voir avec la fonction Format, mais lorsqu'une biblliothèque est manquante, le VBE ne sait pas compiler et s'arrête sur une ligne de code "au hasard" (ce n'est évidemment pas au hasard mais je ne sais pas pourquoi c'est sur cette ligne et pas une autre. J'ai déjà eu le cas où le code buguait sur la fonction Left par exemple, à cause d'une bibliothèque manquante). C'est donc bien le fait que cette bibliothèque soit manquante qui "fait planter" la fonction Format.

Pourquoi ça arrive? Peut-être as-tu copié un userform d'un classeur ou d'une solution VBA qui utilisait cette bibliothèque, et sa référence a donc été inclue dans les références de ton projet.

[Menhir]

Je suis entièrement d'accord avec ce que tu dis.
Je voulais juste signaler au demandeur que la cause n'avait pas de rapport avec cette fonction pour ne pas qu'il s'étonne de la première ligne de ma réponse.