Fonction si multiple en vba

Tu arrives bien à nous envoyer des messages non ? (depuis ton smartphone je suppose... )
Donc, tu réécris le code depuis ton tel... ou alors tu te l'envois par mail puis tu nous le copie/colle depuis ton tel...
bref...
Le code, il se partage en "text" et non en image.... sinon c'est inexploitable pour nous !

l'exemple, en effet, ne fait qu'ouvrir et fermer.

Merci je vais tester ce code et je reviens vers vous pour vous confirmer si ça fonctionne

Par curiosité vous seriez aussi comment coder si le fichier voulu et déjà ouvert je reçois un message d’erreur( fichier déjà ouvert voulez vous le réouvrir), je voudrais donc le réouvrir dans le fermer merci d’avance si vous prenez du temps pour trouver la solution

quand tu écris "je voudrais donc le réouvrir dans le fermer", que signifie "dans"?
quel est l'utililité de rouvrir un fichier déjà ouvert?

Autant pour moi c’est une erreur de frappe le « dans » signifie SANS le refermer

Enfaite j’ai des formules dans un fichier principal qui récupère des données dans ces fichiers secondaire. Seulement j’ai un collègue qui travail avec ce fichier et change des valeurs pour faire une programmation pour le poste suivant...donc je dois ouvrir constamment ce fichier pour que mes données ce mettent a jour sinon ils ce mettent en défaut par #VALEUR!

J’espère avoir était assez clair :)

J’ai réussi à faire fonctionner ton code mais il me reste le cas ou le fichier et déjà ouvert ... il me demande de le réouvrir

Je ne suis plus au travail je vous tiens informé demain

On faite ta macro fonctionne si je n’est pas de fichier ouvert, mais si j’ai déjà un fichier ouvert il me met ce message

Alors le message d’erreur est :

Erreur d’exécution ´438´:
Propriété ou méthode non gérée par cet objet

Et donc debogage

J’ai enlevé ce code et ça marche

Maintenant mon soucis c’est que je reçois la demande si je veux réouvrir le fichier quand je l’ai déjà ouvert sur le bureau

Et l’autre chose c’est qu’il ce place sur le fichier qu’on rouvre alors que je voudrais rester sur ma page ou j’ai le bouton de ma macro

tu n'expliques pas ce que tu as enlevé.
ceci devrait mieux fonctionner:

Sub actualisé()
Dim classeur As Workbook, chemin As String, garderouvert As Boolean
Select Case ThisWorkbook.Sheets("stock cein ").Range("s1")
    Case "poste 1"
        chemin = "Q:\deprog\.fichier1.xlsm"
    Case "poste 2"
        chemin = "Q:\deprog\.fichier2.xlsm"
    Case "poste 3"
        chemin = "Q:\deprog\.fichier3.xlsm"
End Select
If dejaouvert(chemin) Then
    Workbooks(chemin).Close
    garderouvert = True
Else
    garderouvert = False
End If
Set classeur = Workbooks.Open(Filename:=chemin, ReadOnly:=1, UpdateLinks:=0)
ThisWorkbook.RefreshAll
If Not garderouvert Then
    classeur.Close
Else
    ThisWorkbook.Activate
End If
End Sub
Private Function dejaouvert(chemin) As Boolean
Dim wb As Workbook
For Each wb In Workbooks
    If wb.FullName = chemin Then
        dejaouvert = True
        Exit Function
    End If
Next wb
dejaouvert = False
End Function