Problème vba [Résolu]

cela me fait penser à cette discussion:
https://forums.commentcamarche.net/forum/affich-36885396-fonction-si-multiple-en-vba

ajouter

Option explicit

peut t'aider à découvrir tes erreurs.

merci de montrer ton code complet.

Oui je n’ai toujours pas résolu mon soucis depuis ce temps là... j’avais arrêté mes recherches

Voici mon code : (J’ai taper à la main lol )

 Sub actualité 

Application.screenupdating = false
Application.enableevents = false

Dim classeur as worbook, chemin as string, gardeouvert as boolean

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

'Si classeur ouvert, alors fermer puis reouvrir ( pblm msg erreur fichier déjà ouvert ??

If classeurouvert then
    Classeurouvert.close savechanges:= false
    Gardeouvert = true
Else 
    Gardeouvert = false

End if 

'Si classeur fermé, alors ouvrir puis refermer (sans sauvegarde)

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall

If not gardeouvert then 
          Classeur.close savechanges:= false

End if 

Application.screenupdating = true
Application.enableevents = true

End sub

Private function dejaouvert (chemin)
Dim wb as workbook 
For each wb un workbooks
If wb.fullname = chemin then 
Set dejaouvert = wb

Exit function 
End if

Next wb
Classeurouvert = false
End function 

je ne vois pas trop comment ce code pourrait fonctionner.
s'il s'agit du même problème qu'avant, plutôt que de recommencer avec ce nouveau code, je suggère de continuer avec l'ancien code, que me semble plus prometteur.

Oui mais j’ai déjà essayé votre ancien code à la lettre et cela ne fonctionne pas

J’ai essayé ceci.. si ça peut vous aider à comprendre mon soucis

  Sub actualité 

Application.screenupdating = false
Application.enableevents = false

Dim classeur as worbook, chemin as string, dejaouvert as boolean 

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

'Si classeur ouvert, alors fermer puis réouvrir 

If Dejaouvert then 

Classeur.close savechanges:= false
Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall

Else

'Si classeur fermé, alors ouvrir puis refermer (sans sauvegarde)

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall
Classeur.close savechanges:= false

End if 

Application.screenupdating = true
Application.enableevents = true

Private function dejaouvert (chemin as string) as boolean
Dim classeur as workbook
On error résume Next 
Set classeur = workbooks(chemin)
If err.number = 0 then 
Dejaouvert = true 
Else
Dejaouvert = false
End if 
End function 

End sub 

le but de la dernière version était d'afficher ce qui se passait, pour comprendre ce qui n'allait pas.

Ça ne m’affichait rien du tout ...
Enfaite il ne sais pas si le fichier est ouvert ou non d’après moi
Quand je fais pas à pas il saute l’étape

tu as probablement raison, qu'il ne sait pas si le fichier est ouvert ou non.
quand je teste chez mi, cela fonctionne bien.
tu as donc testé ceci: https://forums.commentcamarche.net/forum/affich-36885396-fonction-si-multiple-en-vba#26

il n'affiche vraiment rien de rien?
quelle étape saute-t'il?

la fonction peut-être n'importe où dans le module.

Je ressaye après ou boulot et je te renvoie le code comme moi je l’ai écris avec ton ancien code

Alors ça fonctionne pour trouvé les erreurs, mais ça me donne debogage

Erreur d’exécution 91
Variable objet ou variable de bloc with non définie

je ne pense pas que c'est le code que j'ai suggéré.
as-tu bien

option explicit

en début de module?

Oui j’ai bien option explicit

Il me donne l’info fichier "était ouvert" puis j’ai ça

Debogage a la ligne 28 > classeur.close savechanges:=false

 
Option explicit 

 Sub actualité ()

Application.screenupdating = false
Application.enableevents = false

Dim classeur as worbook, chemin as string,classeurouvert, gardeouvert as boolean 

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

'Si classeur ouvert, alors fermer puis réouvrir 

Classeurouvert = dejaouvert (chemin)

If classeurouvert then
Classeur.close savechanges:= false
Gardeouvert = true
Else
Gardeouvert = false
End if

'Si classeur fermé, alors ouvrir puis refermer (sans sauvegarde)

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall
If not gardeouvert then
Classeur.close savechanges:= false
End if 

Application.screenupdating = true
Application.enableevents = true

End sub

Private function dejaouvert (chemin as string) as boolean
Dim classeur as workbook, chemins as string 
Chemins = ""
For each classeur un workbooks
If classeur.fullname = chemin then 
Classeur.close (false)
Call msgbox (chemin,  , "était ouvert")
Dejaouvert = true 
Exit function

Else
Chemins = chemins + classeur.fullname + vbCrLf
End if 
Next classeur 
Call msgbox ................TON CODE vbCrLf etc 
Dejaouvert = false 
End function 

Bonsoir à tous,

Si je comprends bien, c'est la reprise d'une vieille discussion mais si je peux me permettre, il y a des erreurs (de recopie ?) dans ton code :
ligne 9 : dim classeur as workbook au lieu worbook
Ligne 50 : un au lieu de IN

je ne pense pas que c'est le code que j'ai suggéré.

J’ai tout tapé à la main mais mon code est écrit juste dans mon fichier mdr

Bon j’ai tous vérifié... tous était ok ????
Ensuite j’ai relancé pas à pas et là j’ai vu que mon fichier était déjà fermé, d’où le debogage ligne 28 > j’ai supprimé ce code et tous a l’air de fonctionner, sauf que ... il y a toujours un mais mdr
Lors de l’ouverture de mon second fichier il ne revient pas sur l’écran de mon fichier de base ou je lance la macro, quel serait le code à mettre pour revenir sur mon fichier ??

J’ai essayé avec thisworkbook.activate

Pas de changement de fichier

comment as-tu essayé avec activate? difficile de te conseiller à l'aveugle.
j'avais proposé ceci, je ne me souviens plus si j'avais testé:
https://forums.commentcamarche.net/forum/affich-36885396-fonction-si-multiple-en-vba#23

J’ai du le mettre au mauvais endroit...
Je vais revoir ton ancien code alors pour m’aider et je te tiens informé... merci encore de ton aide depuis le temps que je galère avec ça

Voici le code en entier qui marche sauf qui revient pas sur mon fichier ou je lance la macro quand le fichier ce réouvre <

J’ai mis la ligne 32 et 33 en plus avant de fermer end if

  Sub actualité ()

Application.screenupdating = false
Application.enableevents = false

Dim classeur as workbook, chemin as string, classeurouvert, gardeouvert  as boolean 

Select case thisworkbook.sheets("ACCUEIL").range("k20")
Case "poste 1"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P1 pour P2.xlsm"

Case "poste 2"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P2 pour P3.xlsm"

Case "poste 3"
Chemin = "Q:\deptprod\confection bu\production\commun conf\programme P3 pour P1.xlsm"

End select 

Classeurouvert = dejaouvert (chemin)
If  classeurouvert then 
   Gardeouvert = true
Else
 Gardeouvert = false
End if

Set classeur = workbooks.open(filename:=chemin, readonly:=1, updatelinks:=0)
Thisworkbook.refreshall

If not gardeouvert then 
Classeur.close savechanges:=false
Else
Thisworkbook.activate
End if

Application.screenupdating = true
Application.enableevents = true

End sub

Private function dejaouvert (chemin) as boolean
Dim classeur as workbook, chemins as string
Chemins = ""
For each classeur in workbooks
If classeur.fullname = chemin then 
Classeur.close (false)
Dejaouvert = true 
Exit function
Else
Chemins = chemins + classeur.fullname + vbCrLf
End if 
Next classeur
Dejaouvert = false
End function 

  

j'ai retesté, cela fonctionne bien chez moi.

Vous avez vérifié que mon code est juste ?
De mon côté mon affichage reste sur le fichier Réouvert... je vais refaire un pas à pas pour voir cet après-midi

Bon après plusieurs essai le code et bon
Donc j’ai réfléchi à mon problème... j’ai donc rajouter après ouverture du fichier le RÉDUIRE

Donc ligne 9 : Application.WindowState = xlMinimized

Ainsi lorsque je reviens sur mon fichier de base cela ce passe correctement

Merci encore infiniment de votre aide je suis pas encore assez avancé en vba pour pondre un code pareil

Crdlmt

content que tu y sois arrivé!
peux-tu marquer la discussion comme résolue?

C’est fait ✅