Procédure VBA qui marche pas
Résolu
fast58
Messages postés
487
Statut
Membre
-
nirG95 Messages postés 319 Statut Membre -
nirG95 Messages postés 319 Statut Membre -
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.
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.
A voir également:
- Procédure VBA qui marche pas
- Excel compter cellule couleur sans vba - Guide
- Procédure de frigo vide - Forum Vos droits sur internet
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
2 réponses
Salut,
Teste : Set wbExcel = appExcel.Workbooks.Open(ActiveWorkbook.path
& "\Classeur\Classeur1.xlsx")
ou Set wbExcel = appExcel.Workbooks.Open("\Classeur\Classeur1.xlsx")
Cdlt.
Teste : Set wbExcel = appExcel.Workbooks.Open(ActiveWorkbook.path
& "\Classeur\Classeur1.xlsx")
ou Set wbExcel = appExcel.Workbooks.Open("\Classeur\Classeur1.xlsx")
Cdlt.