Procédure VBA qui marche pas [Résolu/Fermé]

Signaler
Messages postés
450
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
8 août 2011
-
Messages postés
293
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010
-
Bonjour,

J'ai créer une macro sous exel avec des bouton quand on clique sur le bouton afficher il devrai avoir un classeur qui s'affiche sa ca marche mais quand je crée un dossier et met le classeur dedans sa marche pas voici le code :

Private Sub Button2_Click()
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
Set wbExcel = appExcel.Workbooks.Open("Classeur\Classeur1.xlsx")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
appExcel.Visible = True
End Sub

Classeur c'est le nom de mon dossier et classeur1.xlsx c'est mon classeur quand je clique sur le bouton j'ai une erreur comme quoi Classeur\Classeur1.xlsx est introuvable.
Quand je met pas de dossier que je met un classeur a la racine du dossier ou ya ma macro sa marche en marquant ceci :
Set wbExcel = appExcel.Workbooks.Open("Classeur1.xlsx")
Quelqu'un aurai une idée pour que sa marche avec un dossier ( pour dire de faire du rangement car je vais en avoir des classeurs ) s'il vous plait merci d'avance.


2 réponses

Messages postés
293
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010
30
Salut,

Teste : Set wbExcel = appExcel.Workbooks.Open(ActiveWorkbook.path
& "\Classeur\Classeur1.xlsx")
ou Set wbExcel = appExcel.Workbooks.Open("\Classeur\Classeur1.xlsx")

Cdlt.
Messages postés
450
Date d'inscription
jeudi 6 décembre 2007
Statut
Membre
Dernière intervention
8 août 2011
17
Merci NirG95
Set wbExcel = appExcel.Workbooks.Open(ActiveWorkbook.path
& "\Classeur\Classeur1.xlsx")
fonctionne parfaitement :) merci pour ta réponse je me coucherai encore moin bête ce soir :D
Seul l'homme peut poser des problème et y résoudre.
Messages postés
293
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
15 décembre 2010
30
Mais c'est avec plaisir :p

Cdlt.