problème base de données

**Traputaca** · 12/05/2013, 19h42

bonjour à tous,

Je suis un débutant sur VBA, j'essaie d'apprendre par moi même ..

j'essaie de créer un fichier base de données regroupant les différents fichiers excel que j'utilise tous les jours au boulot, afin d'essayer de faire une macro pour les ouvrir plus rapidement et ne pas aller les chercher dans les profondeur de l'explorateur.:

j'ai réussi à crée une base de données à 2 colonnes : nom du fichier et chemin du fichier.

le formulaire de saisie qui me sert à compléter ma base de donnée est celui de excel, jusqu’à là, sa marche.

ensuite j'ai crée un userform, avec une liste déroulante, qui se cale sur la liste "Nom" de ma base de donnée : on retrouve donc dans la liste déroulante "classeur1 , Classeur 2 etc .."
et un bouton permettant d'ouvrir le fichier sélectionné.

j'ai essayer mon bout de programme permettant d'ouvrir un autre fichier un indiquant son chemin, apriori il marche, lorsqu'il n'y a pas d'utilisation de variable dans le chemin

après , sa coince : je joins le code lié mon bouton "Ouvrir"

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub CommandButton1_Click()
 
 
Application.ScreenUpdating = False
 
 
 
'on verifie que le secteur est dans la liste
    If Me.ComboBox1.MatchFound = False Then
    MsgBox Me.ComboBox1.Value & " est introuvable!", vbExclamation
    Me.ComboBox1.Value = ""
 
 
    Exit Sub
    End If
    variable = Me.ComboBox1.Value
 
   Call Travail
Unload selection
 
 
 
 End Sub
 
 
 
Sub Travail()
 
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "C:\test base donée\base de donnée"
Fichier = variable
Chemin = Dossier & Fichier
 
Dim Presence As Boolean
Presence = False
 
For Each w In Workbooks
If w.Name = Fichier Then Presence = True
Next w
 
If Presence = True Then
 
 
Workbooks(Fichier).Activate
Else
Workbooks.Open Filename:=Chemin
End If
End Sub

il me trouve une erreur 1004 ligne 46 "Workbooks.Open Filename:=Chemin" comme quoi la base de donnée est en lecture seul ...

et encore avec ce code la, uniquement le nom "fichier" est variable et nom le chemin .. il faudrait pouvoir trouver une combine pour qu'il soit une variable.

si quelqu'un à la patience de m'éclairer ...

merci d'avance

**Marc-L** · 12/05/2013, 19h56

Bonjour.

Corriger ligne n°30 :

Code :

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

Dossier = "C:\test base donée\base de donnée\"

_______________________________________________________________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**Traputaca** · 12/05/2013, 20h04

merci, c'est corriger !

maintenant, il ne fait pas l'association

Code :

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

1
2
3
Dossier = "C:\test base donée\base de donnée\"
Fichier = variable
Chemin = Dossier & Fichier

il me dit qu'il ne trouve pas "C:\test base donée\base de donnée\" , il ne prend pas en compte la variable qui doit définir le nom+extension du fichier ..

merci des réponses rapides !!

**SfJ5Rpw8** · 12/05/2013, 20h29

Bonsoir,

vérifie tes noms de répertoires et fichiers ...

une question : donnée cela prends 2 ou 1 n ?

**Traputaca** · 12/05/2013, 20h44

oups .. c'est bien 2 "n" données ..

maintenant, il me sort une erreur 1004 : excel ne peut pas accéder à "base de donnée". le document est peut être en lecture seul ou chiffré.

à savoir que "base de donnée" est ma plage servant a définir ma base de donnée.