Bonjour, je souhaite qu’à l’ouverture d’un fichier une message box fasse ouvrir un autre classeur si l’on répond oui à la question.
J’ai tenté cette formule mais elle ne fonctionne pas :
Private Sub Workbook_Open()
Dim rest As Integer
ret = MsgBox(« Bonjour ,avez vous des matières glazurées a deballer aujourd’hui? », vbYesNo)
En essayant de « bricoler » ton code je n’ai obtenu que des erreurs …
J’ai pourtant respecté tes consignes sur les guillemets et les espaces.
Je confirme que le fichier était bien fermé .
Peut-etre parce que c’est un ordinateur en réseau pro ?
Je viens de faire une tentative a la maison (en changeant le fichier a ouvrir ) avec le code suivant :
Fais un essai en mettant le fichier à ouvrir dans le même répertoire que ce fichier
Puis mets cette ligne de code pour le chemin :
chemin = Thisworkbook.Path & " \ "
Ressaisis les guillemets au clavier sans espace accolés à la donnée
Puis testes
Si OK remets le fichier dans son répertoire puis cliques droit dessus dans la fenêtre qui vient de s ouvrir récupères le chemin dans la souris et le recopier dans la variable chemin avec la barre oblique en bout :
chemin = "lechemin\ "
Ressaisis les guillemets au clavier sans espace accolés à la donnée
Bonjour FFO,
La première modification fonctionne mais quand j’ai copier le chemin j’ai encore un message d’erreur.
Ce n’est pas un problème car au final mes deux fichiers sont dans le même dossier.
Merci de tous tes conseils avisés.
A très bientôt
Franck.
Merci pour le retour
Je pense que le chemin recopié fais appel à un lecteur réseau
Il vaut mieux au lieu de sa lettre mettre son nom d itentification qui est le nom attribué à sa mise en place
Maintenant si le fichier à ouvrir peut être mis dans le répertoire de l outil c est l idéal
Valide ma réponse un petit plus appréciable
A bientôt sans doute