Récupération d'un fichier sous vba

Mike -  
mmasea Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour a tous,

jmappelle Mike é g un ptit soucis pour récupérer un fichier (créer dans le bloc note) avec vba; les infos contenues dans ce fichier devant etre utilisées dans la suite du programme.

G tenté de la récupérer avec "application.opengetfilename...." mais ca a pas lair de marcher; je sais pas trop si c la syntaxe ki ne va pas (je débute seulement la programmation)

Les données sont des couples "abscisses/altitudes" servant pour des calculs spécifiques à une section de cours deau (périmetre mouillé et surface mouillée).

Voila, je suis desolé mais je suis débutant é g bcp de mal a démarrer
Si quelqu'un peut me donner quelques indications ca serait sympa, merci d'avance,
bonne soirée
A voir également:

2 réponses

Réponse 1 / 2
JvDo Messages postés 1978 Date d'inscription   Statut Membre Dernière intervention   859
 
bonsoir,

Application.getopenfile(.....) n'ouvre pas les fichiers. Elle affiche la boîte de dialogue, permet de choisir un ou plusieurs fichiers, et fournit la liste des fichiers sélectionnés qu'il faut ensuite "traiter" soit en ouvrant le fichier si c'est un fichier qu'excel sait ouvrir soit en lançant un programme capable de le traiter via un shell.

En l'occurence, ça doit être un fichier texte (extension .txt) et excel sait les ouvrir.

exemple de code :
Sub ouvrir_fichier()
FichiersChoisis = Application.GetOpenFilename("fichiers texte, *.txt", , , , True)
If IsArray(FichiersChoisis) Then
  For I= 1 To UBound(FichiersChoisis)
    fichier = FichiersChoisis(I)
    'ouverture du fichier avec une conversion texte délimité par des virgules
    Workbooks.OpenText FileName:=fichier _
      , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
      :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
      False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
      TrailingMinusNumbers:=True
    '
    'traitement à réaliser
    '
    'enregistrement du fichier
    ActiveWorkbook.SaveAs FileName:=Left(fichier, Len(fichier) - 4) & ".xls", FileFormat:= _
      xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
      , CreateBackup:=False
  Next
End If
End Sub
cordialement
3
Réponse 2 / 2
mmasea Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,
je travail sur un projet dans le cadre dun stage,et jai besoin de votre aide
en fait il s'agit dune application d'affectation de materiel informatique dans une société réalisé avec ACCESS, que je dois réaliser en utiliser vb.net
je travail donc avec visual studio 2005,jai exporter les table vers un autre fichier access,et jai reussi a connecter mon interface a ma base de donnée avec OLEDB,
maitenant,pour rendre mon interface dynamique,je me sens un peu perdu,a commencer par les combobox qui doivent etre multicolonne..:s
jai une autre question,est ce que le code vba marche aussi en vb.net?devrais je tout réecrir,ou koi exactement?par koi je devrai commencer?
plz help
0