begin process at 2010 03 22 02:21:39
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Langages dérivés

 > 

VBA

 > 

Ouvrir classeur excell en vba


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Ouvrir classeur excell en vba

vendredi 2 novembre 2007 à 16:00:55 | Ouvrir classeur excell en vba

isis1be

Salut à tous Dans mon code pour ouvrir un classeur xls j'ai: Private Sub btnConsMod_Click() 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel appExcel.Workbooks.Open ("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.List(ListBoxResult.ListIndex)) 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) Mais il me trouve une erreur erreur d'éxécution 91 Variable objet ou variable de bloc with non définie à la ligne: Set wsExcel = wbExcel.Worksheets(1) quelqu'un pourrait me dire comment faire pour ouvrir le classeur car la je ne sais plus et je bloque depuis plusieurs jours. Un grand merci pour votre aide et à bientôt.
vendredi 2 novembre 2007 à 19:43:18 | Re : Ouvrir classeur excell en vba

zavier666


Salut,

j'ai essayé comme cela et cela marche déjà un peu mieux:

Private Sub btnConsMod_Click()
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
appExcel.Workbooks.Open ("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.List(ListBoxResult.ListIndex))
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)



vérifie bien que le nom de ton fichier est correct, le mieux pour débugger serait
Dim fichier as string
fichier =  "C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.List(ListBoxResult.ListIndex)
msgbox fichier   => te permet de vérifier la validité du nom
workbooks.open(fichier)

enfin j'ai repéré une erreur, workbooks(1) point vers le premier classeur et pas celui que tu viens d'ouvrir

--------------------------------------------------
Toujours + de VB et d'API => APi @ le Loupe
http://apialaloupe.free.fr

samedi 3 novembre 2007 à 17:56:54 | Re : Ouvrir classeur excell en vba

isis1be

J'ai fait le changement que tu préconisait ctd
Workbooks.Open ("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.List(ListBoxResult.ListIndex))

mais rien ne change j'ai toujours la même erreur et je ne comprend pas très bien  le truc pour vérifier l'erreur que tu me dit à la fin, car en fait je suis assez nul en vba et il m'a déja fallut longtemp arriver ou j'en suis donc si tu pouvais me détailler plus ce serais super.
Un tout grand merci pour ton aide et à bientôt.
samedi 3 novembre 2007 à 18:14:38 | Re : Ouvrir classeur excell en vba

isis1be

Resalut

En fait je vient de trouver la solution
Par rapport à ce que tu disait j'ai rajouter

Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.List(ListBoxResult.ListIndex))

Pour cette ligne et après j'ai aussi rajouter

appExcel.Visible = True

et sa tourne.
De toute façon un tout grand merci pour ton aide.


Cette discussion est classée dans : ouvrir, application, excel, classeur, wsexcel


Répondre à ce message

Sujets en rapport avec ce message

ouvrir une application excel [ par S_M_E ] bjrappartir d'un userform dans excel je souhaite ouvrir un autre classeur en utlisant le code suivant: UserForm1.Hide Set excelapp = CreateObject( Utilisation de plusieurs applications excels [ par bricaud ] Bonjour à tous !c'est la première fois que je poste sur le forum, j'espère que vous allez pouvoir m'aider.Il me manque quelques bouts de code VBA, néc VB6: Ouverture de l'application Excel ! [ par Lunikmarty ] Programmeur et programmeuse, Bonjour à tous !Voila, j'ai un petit problème que je n'arrive pas à resoudre. Ma source VB6 lance une application Excel s ouvrir une liste de pages web dans un classeur excel [ par steph3147 ] Bonjour, Je souhaite ouvrir plusieur fichier .htm contenu dans un dossier dans excel pour faire une anal Ouvrir Excel par VB2005 [ par dp_favresa ] Bonjour,Gros souci pour ouvrir un classeur (par AppliEx.Workbooks.Open(NomClasseur)).Cela marche sur mon poste, pas du tout sur les autres postes du r Exécuter une application non exe depuis excel [ par Bysnu ] Bonjour,Je souhaite lancer une application depuis Excel à l'aide d'une macro. Le hic c'est que cette application est une application exécutable (.exe) macro sauvegarde classeur excel [ par michel333 ] Bonjourma macro de sauvegarde(enregistrement du classeur avec le meme nom par un click sur un bouton) fonctionnait normalement sous excel 97 avant que ouvrir un autre classeur excel avec un CommandButton [ par lili97438 ] Bonjour à tous, Je suis en stage et j'utilise miscrosoft office 2003.Sous Excel, j'ai un classeur1 avec des userform, je souhaite que quand je click s [Déplacé VB6 --> VBA] Fermeture automatique de l'application [ par Cahouete1 ] Bonjour, J'utilise Vba sur excel Ma situation: J'ai créer un petit bout de programe pour simplifié la saisi de prise d'appel SAV. Parfois, l'utilisate VBA AUTOCAD EXCEL [ par PYROMAR ] Bonjour,Je developpe des application en VBA sous AUTOCAD en liaison avec des classeur excel, le probleme c'est que quand je lance l'application EXCEL


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,328 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales