Discussion :

[damdam78]

Bonjour,

Je suis actuellement en train de réaliser un programme qui permet de copier certaines données qui j'ai préalablement enregistré dans un fichier et les copier sous excel. Sous Ecel 2000 ou autre ca fonctionne bien, mais sous Excel 2007 il a une erreur : La méthode 'OpenText' de l'objet 'Workbooks' a échoué.

Ma ligne ou il y a le problème est la suivante :

Code :

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

1
2
3
4
Workbooks.OpenText Filename:=l_sMistralStructTXT, Origin:= _
         xlWindows, StartRow:=l_nOffset, DataType:=xlDelimited, TextQualifier:= _
         xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
         Comma:=False, Space:=False, Other:=False

Savez-vous d'où peut provenir ce problème ?
Je vous remercie par avance pour votre aide.

Damien

[Gorfael]

Salut damdam78 et le forum

Le princide de microsoft à chaque changement important de version c'est de modifier les références : en VBA Menu Outils>>Référence.
Donc, une qui existe sur les versions précédente a été décochée au profit d'une nouvelle version. Mais laquelle ?
Tu vas sur un ancien Excel où elle fonctionne
Tu notes toutes les références qui sont cochées.
Tu vas les rechercher une par une dans excel 2007 et tu essais.
A+

[damdam78]

Merci pour l'info !!

Je suis en train de regarder les références cochées, se sont bien "les mêmes" à part que les librairies sont passées de la version 9.0 sous Excel 2000 a la version 12.0 sous excel 2007 et que les controls sont passés de 6.0 SP3 à 6.0 SP6.

Pensez-vous que mes erreures peuvent venir de ces références qui ont été modifiées ?

Merci
Damien

[kiki29]

Salut, je viens de tester sans aucun probleme sous 2002 et 2007

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Tst()
Dim sFichier As String
Dim iOff As Long
    sFichier = ThisWorkbook.Path & "\" & "Essai.txt"
    iOff = 12
 
    Workbooks.OpenText Filename:=sFichier, Origin:= _
                       xlWindows, StartRow:=iOff, DataType:=xlDelimited, TextQualifier:= _
                       xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
                       Comma:=False, Space:=False, Other:=False
End Sub

[Pierre Fauconnier]

Dans la liste des références, as-tu une référence manquante?

Si oui, décoche-là...

[damdam78]

Dans la liste des références, as-tu une référence manquante?

Si oui, décoche-là...

non il n'y a pas de référence manquante, il y a juste les librairies qui ont changées de version

[Pierre Fauconnier]

C'est le même fichier que tu essaies d'ouvrir dans les différentes versions, ou bien as-tu copier-coller du code? Es-tu sur le même pc?

Je pense à tes variables qui pourraient ne pas convenir, en particulier l_sMistralStructTXT

[damdam78]

C'est le même fichier que tu essaies d'ouvrir dans les différentes versions, ou bien as-tu copier-coller du code? Es-tu sur le même pc?

Je pense à tes variables qui pourraient ne pas convenir, en particulier l_sMistralStructTXT

C'est exact, c'est le même fichier que j'essai d'ouvrir. En fait c'est une application assez compliquée qui fontionnait très bien depuis quelques temps sous excel 2000 et la on a eu ce problème avec un essai sous excel 2007.

Ma variable l_sMistralStructTXT a la bonne valeur quand j'utilise le débogage pas a pas...

En fait le but de mon topic était de savoir si il y avait eu des méthodes (ou objets...) qui avaient été recensées comme mal fonctionner ou fonctionnant de manière différente sous Excel 2007 par rapport à 2000.

Merci pour votre aide !

Salut, je viens de tester sans aucun probleme sous 2002 et 2007

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Tst()
Dim sFichier As String
Dim iOff As Long
    sFichier = ThisWorkbook.Path & "\" & "Essai.txt"
    iOff = 12
 
    Workbooks.OpenText Filename:=sFichier, Origin:= _
                       xlWindows, StartRow:=iOff, DataType:=xlDelimited, TextQualifier:= _
                       xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
                       Comma:=False, Space:=False, Other:=False
End Sub

Ca m'etonnai aussi que se soit cette fonction qui pose problème.
J'utilise aussi la méthode Workbooks.Sheet.Range() avec dedans des Sheets.Cell.SpecialCells()
Il y a peut être des problèmes de taille maximale a ne pas dépasser pour copier/coller... (je me demande ca car ce problème n'est apparu que lors de l'utilisation de mon programme pour une valeur qui était assez longue a copier...)

Merci

[Pierre Fauconnier]

Il y a souvent des problèmes lorsque la longueur des cellules à copier est supérieure à 255 caractères...

[damdam78]

Il y a souvent des problèmes lorsque la longueur des cellules à copier est supérieure à 255 caractères...

Dans mon code j'ai un nombre supérieure a 255 céllules qui vont être copiées mais par contre dans chaque céllule il n'y a pas beaucoup de caractère. Comment se fait-il que ce copier/coller fonctionne bien sous Excel 2000 et pas sous Excel 2007 ? Existe--t-il un moyen de pouvoir réaliser ce copier coller en une seule foi ou faut-il que je le fasse en plusieures étapes ?

Merci pour votre aide !

[Pierre Fauconnier]

Il faudrait préciser le code que tu utilises... car au départ, tu parlais de

Code :

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

workbooks.opentext

et maintenant, tu parles de copier-coller...

[damdam78]

C'est exact, au début je parlais de l'ouverture croyant que mon problème venait effectivement de là, mais après avoir analyser un peu plus mon problème, il me semble que l'erreur vienne de la copie faite avec Range.
Je me suis rendu compte que dans Excel 2000, la colonne maximum était IV alors que sous 2007 elle s'arrete à XFD.
Pensez-vous que cela peut avoir une incidence ?

Merci