Code VBA pour ouvrir un fichier Excel sous réseau

Bonjour,

Je débute en VBA et j'aurais besoin de votre aide.

J'ai crée un commandbutton qui ouvrir une base de donnée créée sous excel.

Ce bouton fonctionne bien quand le fichier "basededonnées" se trouve sur mon ordinateur.

Voici le code:

'ouvrir la base de données

Dim base As String

Dim wb As Workbook

base = "C:\Users\sydney.bonnet\Desktop\Programmes\Basededonnées"

Set wb = Workbooks.Open(base)

Cependant quand le fichier "basededonnées se trouve sous le réseau de notre entreprise, excel est incapable de le trouver.

Voici le code:

'ouvrir la base de données

Dim base As String

Dim wb As Workbook

base = "G:\vcfprdciti01\Groupes\CITINEA_DR\08_EDP\11_Partage\STAGIAIRES\Sydney BONNET\Basededonnées"

Set wb = Workbooks.Open(base)

Quelqu'un connaitrait-il la solution ?

Le but est que le fichier "basededonnées" reste sur le réseau est puisse être visible et modifiable par tout le monde. Mais quand il est sur le réseau Excel ne le trouve pas.

Merci d'avance de votre aide

Bonjour

essayez avec ce code -->

base = ThisWorkbook.Path

Conseil évitez absolument de mettre des accents dans les noms de feuilles et fichier --> Basededonnes --> Basededonnees

Si ok et terminé merci de cloturer le fil en cliquant sur le V Vert à coté du bouton EDITER lors de votre réponse

Cordialement

Bonjour,

J'ai essayé votre code. C'est à dire que j'ai rentré ça sous Excel

Private Sub CommandButton2_Click()

Dim base As String

Dim wb As Workbook

base = ThisWorkbook.Path

Set wb = Workbooks.Open(base)

End sub

Mais ça ne marche pas. J'ai surement mal compris.

Merci de votre aide

Re

Le nom du fichier c'est Basedonnees ou c'est un répertoire ??

Cordialement

Re

Le nom du fichier est Basededonees. Ce n'est pas un répertoire.

Cordialement

Re

essayez ceci :

Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = "Basededonnees" & ".xlsx"
Workbooks.Open Filename:=chemin & "\" & fichier

Si le fichier Basededonnees comporte des macros, veillez à changer l'extention XLSX par XLSM

Cordialement

Re

Merci pour ta réponse. J'ai tapé le code que tu m'a donné.

Private Sub CommandButton2_Click()

Dim chemin As String, fichier As String

chemin = ThisWorkbook.Path

fichier = "Basededonnees.xlsm"

Workbooks.Open Filename:="G:\vcfprdciti01\Groupes\CITINEA_DR\08_EDP\11_Partage\STAGIAIRES\Sydney BONNET\fichier"

End sub

ça ne marche toujours pas, mais je ne suis pas sur d'avoir bien interprétée les "" et les &.

Le message d'erreur me dit que le fichier est introuvable. qu'il a peut-être été déplacé, renommé ou supprimé ?

Je suis pourtant sur du chemin du fichier, je copie-colle le chemine issue de ces propriétés.

Merci beaucoup de votre aide

Re

non comme ceci

fichier = "Basededonnees.xlsm"
Chemin = "G:\vcfprdciti01\Groupes\CITINEA_DR\08_EDP\11_Partage\STAGIAIRES\Sydney BONNET\"
Workbooks.Open Filename:=chemin &  fichier

Le bouton se trouve dans quel fichier ?

Cordialement

Bonjour,

J'ai tapé ce que tu m'as conseillé.

Private Sub CommandButton2_Click()

'Ouvrir base de données

Dim chemin As String, fichier As String

fichier = "Basededonnees.xlsm"

chemin = "G:\vcfprdciti01\Groupes\CITINEA_DR\08_EDP\11_Partage\STAGIAIRES\Sydney BONNET\"

Workbooks.Open Filename:=chemin & fichier

End Sub

ça ne marche toujours pas. J'ai toujours le même message d'erreur.

Le bouton se trouve dans un userform, dans un fichier excel dont le nom est "ChiffrageCES".

Cordialement

Re

Vérifie l'extension du fichier basededonnees. XLSX ou XLSM ?

Cordialement

Re

L'extension du fichier est bien xlsm.

Je comprends pas pourquoi ça fonctionne pas mais je me suis débrouillée autrement.

J'ai intégré les données dans une feuille de mon fichier. C'est moins lourd en manipulation.

Merci pour votre aide et votre patience

Re

Dans vos posts au sujet du répertoire, vous avez mis un point entre Sydney et BONNET et plus bas il n'y a pas de point

Mettez plutôt un _ comme ceci --> Sydney_BONNET

Vérifiez si tous les noms que vous utilisez ne comporte pas d'espace perdu. Exemple, un espace derrière le T de Bonnet

Evitez absolument les points et espaces dans les noms de répertoire, fichiers ou feuilles

Si terminé, merci de cloturer le fil en cliquant sur le v vert à coté di bouton EDITER

Cordialement