Discussion :

[le-guedin]

Bonjour à tous

J'aurai voulu savoir si avec un classeur Excel il était possible d'avoir plusieurs connexion vers la même base de données
C'est à dire que j'ai 5 pc différents avec des identifiants différents
J'aurai voulu avoir les 5 connexions dans le même classeur mais en modifiants par code le bouton qui permet la mise à jour

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
Private Sub cmdMiseAJour_Click()
 
'-------------------------------------------------
' Permet de faire la mise à jour du tableau brut '
'-------------------------------------------------
 
    Connexion.Show ' Ouvre la Form " Connexion "
 
'________________________________________________________________________________________
 
'Macro5 ' Connexion 1
'Connexion_2 ' Connexion 2
'Macro4 ' Connexion 3
Macro8 ' Connexion 4
'Macro9 ' Connexion 5
 
'_________________________________________________________________________________________
    
    MiseaJour.Show ' Permet d'ouvrir la Form Mise à jour
 
End Sub

Et ci joint la vu des connexion dans les propriétés du classeur

J'ai un bug sur mon classeur au niveau des connexion différentes

Merci de votre aide

[le-guedin]

j'ai une erreur " Pas de cellule correspondante "à ce niveau

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
 Sub Remplir()
 
'-------------------------------------------------------
'Permets de remplir les cellules vides automatiquement '
'-------------------------------------------------------
 
Dim MaPlage, Cell As Range, Col As Integer, ligne As Long
 
    With Sheets("Tableau Brut")
        ligne = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
        Col = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
        Set MaPlage = .Range(.Range("A3"), .Cells(ligne, Col))
        MaPlage.SpecialCells(xlCellTypeBlanks).Value = "/"
    End With
 
End Sub

sur cette ligne

Code :

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

MaPlage.SpecialCells(xlCellTypeBlanks).Value = "/"

xlCellTypeBlanks = 4

[le-guedin]

Problème résolu

Donc il faut pas créer un nouvelle onglet ( pour ma part ) mais de supprimer les données actuelles sur l'onglet spécifique et de les réimporter pour faire le code de connexion

Donc mon cas tout est ok