Discussion :

[bellamouna]

Bonjour,

J'ai besoin d'aide parceque je crée sous VBA Excel un classeur Excel que j'essai d'ouvrir après et il le trouve pas même s'il a été déjà créé ... Donc il faudrai rafraichiir le dossier ??

[pgz]

Bonjour.

Si ton classeur n'est pas trouvé par l'explorateur, c'est probablement qu'il n'a pas été enregistré.

PGZ

[bellamouna]

Mais quand je vérifie dans le dossier il est enregistré ...

[pgz]

Re

tu veux dire quoi par

il le trouve pas même s'il a été déjà créé

PGZ

[Godzestla]

Bonjour,

alors c'est qu'il y a une erreur dans ton code.

Mais tu ne donnes pas ce qu'il faut pour pouvoir t'aider.

2 choses à renseigner :
1) le nom (fullname) du classeur que tu essaies d'ouvrir (exe : C:\data\fichier.xls)
2) le code que tu utilise pour essayer de l'ouvrir .

A toi.

[bellamouna]

Bonjour,

Donc je crée un classeur différent que celui sur lequel je travaille et je l'ouvre après mais il me dis qu'il ne le trouve pas alors que quand je vérifie dans le dossier il a bien été créé.

Je vous envoi mon code pour que vous puissiez comprendre ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Call CreerClasseur(namefeuilexcel)
Set Wk = Application.Workbooks.Open(namefeuilexcel)

avec la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub CreerClasseur(namefeuil)
 
Dim Excel As Excel.Application
Dim Wk As Workbook
Dim RepertoireCourant As String
 
 
    ' On définit le répertoire courant
    RepertoireCourant = Left(CurrentDb.Name, Len(CurrentDb.Name) - (Len(Dir(CurrentDb.Name))))
 
    Set Excel = CreateObject("Excel.Application")
    Excel.Visible = False 'Masque l'application excel (valeur par défaut)
    Set Wk = Excel.Workbooks.Add
 
    'Rajoute par exemple la date et heure actuelle en Feuil1 cellule A1
    'oWk.Sheets(1).Range("A1") = Now
 
 
    ' Renomme la feuille
    Wk.Sheets(1).Name = "Annual Review"
 
 
    ' Sauve le classeur
    Excel.DisplayAlerts = False                 ' Pour éviter des questions si classeur déjà existant
    Wk.SaveAs RepertoireCourant & namefeuil
    Wk.Close False                               'Ferme le classeur
    Excel.Quit
 
    ' Libération mémoire..
    Set Wk = Nothing
    Set Excel = Nothing
 
 
End Sub

[pgz]

Re,

Quand tu enregistres le classeur, le chemin est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Repertoirecourant & NomFeuille

Quand tu veux l'ouvrir, tu utilises seulement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFeuille

Ce qui n'est pas suffisant : il faut fournir le chemin complet.

PGZ

[bellamouna]

Merci bcp ... en fait ça venait juste de ça, pareceke comme ça a marché une fois sans je ne pensais pas que ça venait de ça. Merci encore.