Fonction si multiple en vba [Résolu]

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

finalement, j'ai fini par peut-être deviner ce que tu voulais dire par "je voudrais donc le réouvrir dans le fermer":
- le fermer
- l'ouvrir
- le laisser ouvert

peut-être ainsi:

Sub actualisé()
Dim classeur As Workbook, chemin As String, classeurouvert, 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
classeurouvert = dejaouvert(chemin)
If classeurouvert Then
    classeurouvert.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
End If
End Sub
Private Function dejaouvert(chemin)
Dim wb As Workbook
For Each wb In Workbooks
    If wb.FullName = chemin Then
        Set dejaouvert = wb
        Exit Function
    End If
Next wb
dejaouvert = False
End Function

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

Debogage... :/
Je commence à me dire que je vais laisser tomber, je fais que de vous déranger

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 dejaouvertalorsferme(chemin) Then
    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 dejaouvertalorsferme(chemin) As Boolean
Dim wb As Workbook
For Each wb In Workbooks
    If wb.FullName = chemin Then
        wb.Close (False)
        dejaouvertalorsferme = True
        Exit Function
    End If
Next wb
dejaouvertalorsferme = False
End Function

Ton code fonctionne mais j’ai le même soucis que j’avais avant je te met en photo ce que je voudrais enlever



Et à la fin du code au lieu de rester sur mon fichier Excel ou j’active la macro il m’affiche le fichier que je garde ouvert

enfaite j’avais zappé un code entre true et false

Le seul hic c’est que mon fichier ne reste pas ouvert quand je l’ai déjà d’ouvert sur le bureau

Et qu’il me demande si je veux le rouvrir, vu qu’il est déjà ouvert

j'ai un peu adapté la fonction, pour essayer de comprendre ce qui se passe:

Private Function dejaouvertalorsferme(chemin) As Boolean
Dim wb As Workbook, chemins As String
chemins = ""
For Each wb In Workbooks
    If wb.FullName = chemin Then
        wb.Close (False)
        Call MsgBox(chemin, , "était ouvert")
        dejaouvertalorsferme = True
        Exit Function
    Else
        chemins = chemins + wb.FullName + vbCrLf
    End If
Next wb
Call MsgBox("cherché:" + vbCrLf + chemin + vbCrLf + vbCrLf _
    + "vus:" + vbCrLf + chemins, , "pas trouvé")
dejaouvertalorsferme = False
End Function

Je vais essayer et je reviens vers vous merci

J’ai pas réussi et je suis un peu perdu dans votre code vu qu’il n’y a pas d’explication sur ce que ça fait ..

J’ai donc laissé pour le moment comme c’était même si ça me pose la question de réouvrir et que ça ferme le fichier (si il était déjà ouvert de base)

Merci encore pour votre aide

le but des changements que j'ai fait, c'était que le code affiche ce qu'il faisait et ce qu'il voyait, afin de comprendre pourquoi cela ne fonctionne pas comme tu le souhaites.