XL 2010 VBA , erreur fermeture fichier

Eric C

XLDnaute Barbatruc

• 20 Octobre 2021

• #2

Bonjour le forum
Bonjour Herve62

Essaies avec ce code un peu modifié :

VB:

Sub dd()
 Vendeurs = "BOURSE AUX JEUX LISTE 81 - 100.xlsx"
 chemin = ThisWorkbook.Path
 
Nom_fic = chemin & "\" & Vendeurs

Workbooks.Open(Filename:=Nom_fic) _
        .RunAutoMacros Which:=xlAutoOpen
MsgBox " on ferme "
ThisWorkbook.Close savechanges:=False
End Sub

Bonne journée à toutes & à tous
@+ Eric c

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #3

Re merci ERIC
!! Mais non si tu dis THISWORKBOOK c'est le fichier principal qui se ferme
Moi je veux l'autre fichier

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2021

• #4

Bonjour.
Et comme ça : ?

VB:

Sub dd()
   Dim Wbk As Workbook
   Set Wbk = Workbooks.Open(Filename:=ThisWorkbook.Path & "\BOURSE AUX JEUX LISTE 81 - 100.xlsx")
   Wbk.RunAutoMacros Which:=xlAutoOpen
   Wbk.Close SaveChanges:=False
   End Sub

Remarque: je ne vois pas ce qu'on pourrait exécuter comme macro d'un .xlsx …
Et d'un .xlsm ne s'exécuterait elle pas d'elle même ?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 20 Octobre 2021

• #5

Re le fil
Bonjour Dranreb

Ok, au temps pour moi. Petite question : à quoi sert cette macro (Si le fichier "Bourses aux jeux ...." est ouvert en arrière plan, une erreur survient ??? Je ne saisi pas. Une petite explication serait la bienvenue pour que ma digestion soit douce ainsi que la sieste à venir....
Merci Eric c

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #6

Re
Merci , c'est mieux
Sinon c'était un exemple au pif vu que rien ne fonctionnait ensuite je fais beaucoup de copier/coller avec des instructions toutes prêtes ( la fainéantise) enfin mon vrai classeur est un xlsm et je vais mettre une valeur dans une cell pilotée par un Worksheets_change ...bon apparemment avec juste Open cela fonctionne
Mais comme je disais c'est une Sub de reprise d'une appli que j'ai faite il y a 10ans avec :
------------
Workbooks.Open(Filename:=chemin & "\" & Nom_proj(x)) _
.RunAutoMacros Which:=xlAutoOpen
...........code
Workbooks(Nom_proj(x)).Close savechanges:=False
------------
ET cela fonctionne .... ?????

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 20 Octobre 2021

• #7

@herve62 : Pas tout compris (pourquoi un fichier fermé - Qu'en attend t'on ? ) mais bon si le code de Bernard te convient, tant mieux.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 20 Octobre 2021

• #8

@Eric C
C'est une grosse appli : 2 fichiers principaux avec du code puis 50 fichiers genre formulaires (xlsx)
Le fichier 2 va regrouper tous les xlsx dans des onglets séparés ,
Le fichier 1 ( celui de mon exemple en xlsm ) va aller ouvrir le 2 ( aussi en xlsm) afin de compléter une cellule
qui elle va en impacter plusieurs selon une sub Worksheets_change ensuite il faudra bien le fermer et sauvegarder
Ce que je pige pas c'est pourquoi cela fait 2 appli avec cette sub que je reprends ( au moins ce que j'ai fait peut resservir) et que cela fonctionne mais pas dans ce cas .... je ne vois pas d'explication ?????

 

Vote positif 0 Vote négatif