Récupérer une sheets dans excel vers access sous vba

Version imprimable

20/10/2005, 21h55
odbee

Récupérer une sheets dans excel vers access sous vba

Salut,
je suis en train de développer une GMAO, vba, mais je blok pour récupérer une feuille en particulier d'un classeur EXCEL . :x
J'arrive bien à ouvrir le fichier et importer les données que je souhaite, par contre il faut que mon classeur excel soit enregistré sur la feuille que je souhaite importer.

sI qq'un peu m'aider!!!!!

Merci
20/10/2005, 22h11
AlainTech

Attends...

J'essaye de deviner...

Tu veux dire que la feuille sélectionnée au moment de l'enregistrement doit être celle dont tu veux récupérer les données?

Ben, il suffit d'activer la bonne feuille par un Sheets("SonNom").Activate.

Si tu nous avais donné ton code, on aurait pu te donner la syntaxe exacte dans le contexte.

salut voici une partie de mon code

Code:

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
 If (Text1.Value <> "") Then
    NomFic = Text1
    NomFic = NomFic & ".xls"
    Else
    réponse = MsgBox("Nom de fichier à importer manquant", vbExclamation + vbOKOnly, "ATTENTION!!!")
    Exit Sub
    End If
 
    If (Text2.Value <> "") Then
    PathFic = Text2
    Else
    réponse = MsgBox("Emplacement du fichier à importer manquant", vbExclamation + vbOKOnly, "ATTENTION!!!")
    Exit Sub
    End If
 
  ' If (Text3.Value <> "") Then
  ' NomSheet = Text3
  ' Else
  ' réponse = MsgBox("Nom de la feuille d'importation est manquant", vbExclamation + vbOKOnly, "ATTENTION!!!")
  ' Exit Sub
  ' End If
 
   Set ClasseurXLS = CreateObject("Excel.application")
        ClasseurXLS.Visible = True
        ClasseurXLS.UserControl = True
        ClasseurXLS.Workbooks.Open PathFic & NomFic

Merci de votre aide

Ben, d'après moi et sans avoir testé:

Code:

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
If (Text1.Value <> "") Then 
  NomFic = Text1 
  NomFic = NomFic & ".xls" 
Else 
  réponse = MsgBox("Nom de fichier à importer manquant", vbExclamation + _
                    vbOKOnly, "ATTENTION!!!") 
  Exit Sub 
End If 
 
If (Text2.Value <> "") Then 
  PathFic = Text2 
Else 
  réponse = MsgBox("Emplacement du fichier à importer manquant", vbExclamation + _
                    vbOKOnly, "ATTENTION!!!") 
  Exit Sub 
End If 
 
If (Text3.Value <> "") Then 
  NomSheet = Text3 
Else 
  réponse = MsgBox("Nom de la feuille d'importation est manquant", vbExclamation + _
                    vbOKOnly, "ATTENTION!!!") 
  Exit Sub 
End If 
 
Set ClasseurXLS = CreateObject("Excel.application") 
ClasseurXLS.Visible = True 
ClasseurXLS.UserControl = True 
ClasseurXLS.Workbooks.Open PathFic & NomFic
ClasseurXLS.Sheets(NomSheet).Activate

Plutôt que faire taper le nom et le chemin par l'utilisateur, je te conseille d'utiliser un CommonDialog en ShowOpen.
Ca t'évitera pas mal de gestion d'erreur et simplifiera le travail de l'utilisateur.

Bonne chance.