Quand j'importe des donnees d'une base access a excel, ce dernier me modifie tous les chiffres qui commencent par 0.
Par exemple un N° de tel 03.... devient 3...
Il faudrait donc que je definisse la colonne excel comme alpha et pas numerique.
 
Merci

je crois qu'il faut mettre ' avant la valeur.
 
Sinon tu change le type dans excel en eregistrant ta manip en macro -> tu colle le code de la macro dans vb

Comment importes tu les données access ?  
Macro, par le menu ...
 
A+

[edtdd]--Message édité par tfj57--[/edtdd]

Tout doit se faire automatiquement donc il ne faut pas que j'aille changer a la main ou avec des macros le type de la colonne.
En fait mon prog permet d'ouvrir une base de donnees access, et de la il cree le fichier excel trie.

salut.
 
fais une recherche sur NumberFormat, NumberFormatLocal, NumberFormatLinked dans excel.
 
petit aperçu :
 
NumberFormat, propriété - Exemple
 
Ces exemples montrent comment définir un format numérique pour, respectivement, la cellule A17, la ligne 1 et la colonne C de la feuille Sheet1.
 
Worksheets("Sheet1" ).Range("A17" ).NumberFormat = "General"
Worksheets("Sheet1" ).Rows(1).NumberFormat = "hh:mm:ss"
Worksheets("Sheet1" ).Columns("C" ). _
    NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"

ok j'vais chercher la dedans.
 
Decidement t'es tombe dans le vb quand t'etais petit toi

j'ai du mal a trouver le format texte.
Quand je tape char il me fout n'importe koi

j'ai pas le temps d'essayer, mais fais ceci pour trouvé ce que tu cherches.
 
dans un fichier excel de test, tu définies le format de la première cellule en TEXTE.
 
ensuite dans VB, tu fais un petit bout de code pour ouvrir ton fichier de test et tu utilise la propriété suivante :
 
NumberFormatLocal, propriété - Exemple
 
Cet exemple montre comment afficher le format numérique de la cellule A1 de la feuille Sheet1, dans la langue de l'utilisateur.
 
MsgBox "The number format for cell A1 is " & _
    Worksheets("Sheet1" ).Range("A1" ).NumberFormatLocal
 
comme ça tu verras ce qu'il te retourne.

fallait mettre = "@"
Ils sont logiques chez Microsoft

arf ben j'ai pas eu le temps de lire ton msg
J'ai juste fait une macro sous excel et j'ai regarde ce qu'il ecrivait dans le code vba

En fait j'ai tape ca pour que ma colonne A soit prise comme du texte.
 
XlApp.Worksheets(1).Columns("A" ).NumberFormat = "@"