Discussion :

[Castiel777]

Bonjour,

je suis actuellement en stage pour valider ma première année du BTS IRIS. Cette année, j'ai vu que le C, C++ donc pas de VBA du tout. Mon tuteur m'a lancé sur un logiciel de gestion qui fut conçu sous Windows XP mais depuis, l'entreprise est passé à Windows 7 et ce logiciel rencontre un problème qui est, pour mon tuteur, de compatibilité. Ce logiciel ouvre un formulaire qui renseigne ce qui est disponible en magasin (boulon, vis et autres...) mais ce formulaire plante dès l'ouverture et l'erreur est la suivante:

Erreur d'exécution '1004':

La référence est incorrecte. Cette version de fichier peut uniquement contenir des formules faisant référence à des cellules qui se trouvent dans les dimensions de feuille de calcul correspondant à 256 colonnes (colonnes IW ou supérieure), ou 65 536 lignes.

Au niveau du code, lorsque je lance le débogage, c'est ces lignes là qui font défaut:

Code :

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

1
2
3
Workbooks(ClasseurSource).Sheets(1).Range(RangeSource _
        ).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Critères"). _
        Range(RangeFiltre), CopyToRange:=Range("A1:C1"), Unique:=False

Besoin de votre aide, en vous remerciant d'avance.

[DarkVader]

Bonjour,
Le message d'erreur semble indiquer une erreur de gestion du nombre de lignes et de colonnes
qui diffèrent selon la version Excel référencée donc s'intéresser à la valeur de RangeSource.

[Castiel777]

Merci pour ta réponse rapide, au moins je sais d'où vient le problème. Comment puis-je faire pour le résoudre ? Dans mon fichier de variable, j'ai ceci:

Code :

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

Public RangeSource As String, LastPlateau(9) As Integer '9 kardex maxi par site

[DarkVader]

Commence par

Code :

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

1
2
3
4
debug.print RangeSource
Workbooks(ClasseurSource).Sheets(1).Range(RangeSource _
        ).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Critères"). _
        Range(RangeFiltre), CopyToRange:=Range("A1:C1"), Unique:=False

Pour la suite, vu la quantité d'information, on n'est pas devin

[Castiel777]

Bonjour,

j'ai toujours l'erreur. De quoi avez vous besoin afin de m'aider ?

[DarkVader]

Du résultat obtenu avec l'instruction debug.print

Ctrl G : fenêtre de débogage

PS: Voir le tutoriel sur le débogage dans ma signature

[clementmarcotte]

Bonjour

Plusieurs questions:

Sont-ils passés d'un WindowsXP 32 bits à un Windows 7 64 bits ?

Ont-ils changé de version d'Excel ?

Si oui, leur nouvelle version d'Excel est-elle 32 bits ou 64 bits ? Si oui, il y a certaines précautions à prendre; notamment avec l'utilisation directe de l'API Windows. (Cela ferait un point en ta faveur, si tu vérifies cela et que tu corriges au besoin)

Est-ce que, dans le classeur que tu utilises, il y a Vraiment une feuille nommée "Critères" qui contient vraiment une zone de critères du nom de RangeFiltre? Sinon, tu as un problème avec cette partie-là:

Code :

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

CriteriaRange:=Sheets("Critères").Range(RangeFiltre)

[Castiel777]

Bonjour,

j'ai fait des recherches toute la journée, sans succès.

Pour la question du XP 32bits à 7 64bits, la réponse est oui.
Pour la version, effectivement, ils utilisaient Excel 2003 et sont passé directement au 2013.
Microsoft Office est installé dans x86 donc en 32bits.
Sur le screen ajouté, tu peux voir la présence du feuille intitulée "Critères" mais apparement, elle est vide ???

J'espère qu'avec ça, tu vas pouvoir me dire d'où vient le problème est comment le résoudre car actuellement, je n'ai plus d'idée sur quoi faire.

PS: J'ai ajouté un petit aperçu du code.

[clementmarcotte]

Bonjour,

Bonjour,


Sur le screen ajouté, tu peux voir la présence du feuille intitulée "Critères" mais apparement, elle est vide ???

PS: J'ai ajouté un petit aperçu du code.

Regarde la feuille dans Excel, pas dans VBA.

Cliques sur l'onglet "Critères" pour sélectionner la feuille

Appuies sur F5 et essaies d'atteindre la plage RangeFiltre.

Est-ce que la zone existe?

Est-elle sélectionnée ?

Y-a-t-il des critères dans la zone sélectionnée ?

Aussi regarde dans ton module APIWindows, s'il n'y a pas des lignes en rouge, signe d'erreurs.

Bien content de voir qu'il y a aussi SAP dans le décor. C'est mal parti, je n'ai pas SAP, ni accès à SAP.

[Castiel777]

Bonjour,

j'ai pu faire un screen de la feuille Excel "Critères".
Quand je fais F5 sur VBA, ça me demande soit "Fin", soit "Déboger" donc pas moyen d'atteindre la plage RangeFiltre.
Pour le module APIWindows, je n'ai aucune ligne en rouge.