VB et Excel Résolu

Question

Bonjour,

j'utilise Excel avec du un programme VB. J'ai un soucis :
sur certaines cellules, lors de l'enregistrement, Excel me transforme des valeurs 10/11 en 10/11/2006 ....
Comment faire pour désactiver ceci svp? 

Merci bien

Aurélien

aurelien2723 · Accepted Answer

Je suis pas sur d'avoir bien compris ce que tu as dis. 
Le but est que ce soit tout automatique.

J'ai trouvé la solution, j'ouvre le fichier texte de cette façon : 

appExcel.Workbooks.OpenText FileName:="C:\source.txt", Origin:=xlWindows, _
            StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, xlTextFormat), TrailingMinusNumbers:=True

Merci

@+

cs_loulou69 · Answer

Bonjour

Pour résoudre ce pb, mets un format 'Texte' aux cellules corrspondantes car là il prend la barre de fraction pour l'opérateur division.

aurelien2723 · Answer

Merci, mais j'ai 400 fichiers textes avec une dizaine de champs dans ce style...
Tu n'as pas une autre solution stp? :)

aurelien2723 · Answer

400 fichiers Excel pardon avec une dizaine de champs de ce style par fichier

Zylott · Answer

Essayes une macro avec :


replace("10/11", "=10/11")

aurelien2723 · Answer

peut t'on modifier le format d'une collone de cellules en VB svp?

merci :)

cs_MPi · Answer

Salut,


Ça dépend comment tu procèdes pour te "connecter" à tes fichiers Excel.

Un exemple si tu crées des objets Excel.Application ou WorkSheet...


    xlSheet.Columns("A:A").NumberFormat = "dd/mm"   'format jour et mois

    xlSheet.Columns("A:A").NumberFormat = "@"          'format texte

MPi

aurelien2723 · Answer

Salut!

Déjà, merci pour vos réponses :)
J'ai fais plusieurs essais, j'arrive à mettre la collone du fichier destination en texte, mais le soucis vient du fichier source que j'ouvre directement avec Excel avec la commande: 

appExcel.Workbooks.OpenText FileName:="C:\source.txt", Origin:=xlWindows, _
            StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
            ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

et a ce eoment là, la valeur 10/12 par exemple est déjà convertie en date...
Comment faire pour l'en empécher svp?

Merci beaucoup :)

aurelien2723 · Answer

Je pensais avoir trouver une solution : 

appExcel.Workbooks.OpenText FileName:="C:\source.txt", Origin:=xlWindows, _
            StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=xlTextFormat

mais le compilateur me dit : 
"La méthode OpenText de la classe Workbooks a échoué" .

Pourquoi??

Merci de votre aide! :)

cs_MPi · Answer

Il serait peut-être préférable que tu ouvres le fichier "toi-même" et
que tu inscrives les données comme tu l'entends plutôt que de laisser
Excel le faire pour toi...

MPi

VB et Excel

10 réponses

Votre réponse

Discussions similaires