Choix du serveur chemin macro Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Dome
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 juillet 2016
Version d'Excel : 2007

Message par Dome » 23 août 2018, 15:27

Bonjour,

J'ai besoin d'un peu d'aide, désolé si un post similaire existe déjà après recherche je ne trouve pas solution à m'a problématique suivante je voudrais pouvoir choisir la lettre qui détermine le serveur d'un chemin C:\le chemin par D:\le chemin, par l'utilisation d'une variable par Inputbox. Voici l'extrait de macro qui me pose problème et merci pour vos retours.

Private Sub Workbook_Open()

'Démarrage macro mode silence

Application.ScreenUpdating = False

'Choix du serveur

Dim S As String

S = InputBox("Entrer le serveur commun Q ou G ?", "Choix du serveur", "Q")
If S = "" Then Exit Sub

'Fichier 1

On Error Resume Next
Workbooks.Open Filename:="&S&:\Documents\Tableau de suivi - Fichier1.xlsm"
If Err <> 0 Then
Workbooks("Tableau de suivi - Fichier1.xlsm").Activate
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 23 août 2018, 15:38

Bonjour,

Qu'est-ce qu'un démarrage en mode silence ? :lol: Je n'ai jamais vu de macro faire de bruit en tant que telle...

Note que du code cité dans un post se met sous balises Code, le bouton </> sert à ça...
Et j'apprécie aussi toujours si l'écriture du code respecte certaines règles d'écriture, dont la déclaration systématique de toutes les variables en tête de procédure, avant tout code exécutable. Il y en a quelques autres qu'il est bon de respecter, mais on ne va pas s'étendre plus ici...

Ton problème paraît issu d'un mauvaise utilisation de & et des guillemets :
    Workbooks.Open S & ":\Documents\Tableau de suivi - Fichier1.xlsm"
Cordialement.
D
Dome
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 juillet 2016
Version d'Excel : 2007

Message par Dome » 23 août 2018, 15:49

MFerrand

Merci, cela fonctionne parfaite, toutes mes excuses pour les erreurs de rédaction, les prochain post tiendrons compte des remarques.

Cordialement.
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 23 août 2018, 15:51

Bonne continuation ! (°v°)°
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message