FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Ouverture fichier excel avec VBA
 

Ouverture fichier excel avec VBA

Il y a 358 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Ouverture fichier excel avec VBA
 
Plus d'informations

Hello tout le monde.
 
Avec toute l'aide apporté par ZEB la dernière fois, je ne pensais pas revenir de ci-tôt, mais malheureusement après un journée de galère à comprendre le pourquoi du comment je bloque.
 
Exposition de l'idée:
Il faut que j'ouvre un fichier excel avec VBA, que je cherche une donnée dedans, copie la donnée et referme le fichier.
Le truc qui me bloque c'est l'ouverture du fichier.
 
Voici le code que j'ai fais afin de vérifier que mon fichier excel s'ouvre bien:
 

Code :
  1. Sub ras()
  2. Open ("\\Isntsv-galax2\Galaxie_data\R063-Acide\Transesterification_huile_vegetale\FB T84 E348-21_2.xls" ) For Binary Access Read Write As #1
  3. Sheets("FB T84 E348-21_2" ).Select
  4. te = Cells(3, 3).Value + Cells(4, 3).Value
  5. MsgBox (te)
  6. Close #1
  7. End Sub


 
La sélection de la page ne sert qu'à me rassurer...
 
Daprès l'aide excel, l'ouverture de la page marche. Mais bon, en réalité je n'ai rien dans ma msgbox...
 
Est ce le lien qui plante, ou le code de l'ouverture de la page qui est totallement à l'ouest?  
 
Ca peut aider, on travail avec différent serveur de stockage. Mon fichier de résultat et mon fichier à ouvrir ne sont pas sur le même serveur.
 
J'espère avoir une petite lueur de solution..
 
Merci bien.
 
Cordialement

zeb
Profil : Modérateur libre
Plus d'informations

Ohlala !

 

Pas de parenthèses. Open est un mot-clef, pas une fonction.
Pas de parenthèses. MsgBox est une procédure, pas une fonction. (En tout cas, dans ce cas présent)

 

Alors la commande Open en mode binaire t'ouvre le fichier en mode binaire. C'est donc un fichier. Toi, tu veux un classeur, pas un fichier.

 

Et puis je déteste les Select, mais je l'ai déjà dit.

 
Code :
  1. Sub RAS()
  2.     Dim wb As Workbook
  3.     Dim ws As Worksheet
  4.     Set wb = Workbooks.Open("\\Isntsv-galax2\Galaxie_data\R063-Acide\Transesterification_huile_vegetale\FB T84 E348-21_2.xls" )
  5.     ' // Gérer les erreurs.
  6.     Set ws = wb.Worksheets("FB T84 E348-21_2" )
  7.     ' // Gérer les erreurs.
  8.     MsgBox ws.Cells(3, 3).Value + ws.Cells(4, 3).Value
  9.     ' // On ferme !
  10.     wb.Close SaveChanges:=False
  11. End Sub
 

Alors ? (Tu penseras bien sûr à ajouter les objets Excel aux références de ton projet).


Message édité par zeb le 15-04-2008 à 14:13:16

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Salut,
 
J'ai testé ta progra.  
Elle me va bien pour le moment,  
 
J'ai même trouvé la fonction pour fermer le fichier excel tout seul!! :bounce:  
 
Je te remercie pour la chtite fonction d'ouverture. Elle est toute con, mais je n'ai pas réussi à y mettre la main dessus... même si se genre de code m'a traversé l'esprit. Je suis trop resté bloqué sur la fonction que j'ai trouvée.
 
Tu peux me dire à quoi elle sert?  
 
Pour le select. Je savais que ça servait à rien, mais s'était pour me rassurer..
 
Merci bien pour ton aide..

zeb
Profil : Modérateur libre
Plus d'informations

Mon code est horrible, il manquait la fermeture du classeur. Puisque tu l'as trouvé, donne-la nous :o
Open permet d'ouvrir un fichier. Mais VB ne connaît que deux sortes de fichiers : les fichiers textes purs et les fichiers binaires brutes.
Pour plus de renseignement, lire l'aide de VB sur Open, bien sûr.

 

____________________________________

 


Dis donc, tu ne veux pas anonymiser des noms de fichiers.
Ils vont être content à l'IFP de voir traîner le nom des machines et la signature des fichiers :fou:


Message édité par zeb le 15-04-2008 à 14:19:35

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Ouverture fichier excel avec VBA
 

Annonces Google
Publicité
Les téléchargements