Msgbox qui ouvre un autre fichier

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)

If ret = vbNo Then MsgBox « Ok, bonne journée! »

If ret = vbYes Then Workbook.Open

FILENAME = « O:\Cornouaille\16-Commun RLs\09-DEBALLAGE\Pesée_glazuré_V2_26_01_17 »

End Sub

Je cale…
Merci,
Franck

Bonjour

Ecris comme ceci :

If MsgBox(" Bonjour ,avez vous des matières glazurées a deballer aujourd’hui?", vbYesNo) = vbYes Then
chemin = « O:\Cornouaille\16-Commun RLs\09-DEBALLAGE\ "
fichier = " Pesée_glazuré_V2_26_01_17.xlsx »
Workbooks.Open (chemin & nom)
Else
MsgBox("Ok, bonne journée! ")
End If

Cela devrait le faire

Vérifies la validité des variables chemin et fichier

Testes et dis moi

Attention guillemets à ressaisir au clavier accolés à la donnée sans espace

Bonsoir FFO et merci pour ta réponse .
j’ai testé et j’ai obtenu une message d’erreur .


En essayant de « bricoler » ton code je n’ai obtenu que des erreurs …

image
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 :


et j’obtiens une erreur similaire :
image
Bonne soirée ,
Franck .

Bonjour
Ces message t informent que l une de ces données voir les 2 sont incorrects

chemin = « O:\Cornouaille\16-Commun RLs\09-DEBALLAGE\ "
fichier = " Pesée_glazuré_V2_26_01_17.xlsx »

Attention les guillemets doivent être ressaisi au clavier et accolé à la donnée

Vérifier le nom exact du fichier à ouvrir y compris l extension :

Pesée_glazuré_V2_26_01_17.xlsx
Pesée_glazuré_V2_26_01_17.xlsm
Pesée_glazuré_V2_26_01_17.xls

A voir et corriger si besoin

Puis vérifier le chemin de son répertoire :

O:\Cornouaille\16-Commun RLs\09-DEBALLAGE\

Corriger si besoin

Tous tes messages sont en rapport à vérifier donc

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

Puis testes

Dis moi

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

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.