grisan29
XLDnaute Accro
bonjour a tous et toutes en ce 14 juillet
dans mon fichier de facturation quand j'ouvre l'userform "bibliothèque" a son initialisation il va ouvrir le classeur articles qui est sous C: par ce bout de code
mais si je ferme l'userform "bibliothèques parce que j'ai oublier de modifier un articles ou autre je suis obliger de fermer le classeur articles en le sauvant via le message d'excel, mais si j'oublie de fermer le classeur et je veux ouvrir l'userform"bibliothèque j'ai un bug car le classeur articles es déja ouvert
j'ai essayer des choses comme cela mais pas concluant du tout
avec des if then rien a faire
si vous me comprenez dans ce charabia
Pascal
dans mon fichier de facturation quand j'ouvre l'userform "bibliothèque" a son initialisation il va ouvrir le classeur articles qui est sous C: par ce bout de code
Code:
Private Sub UserForm_Initialize()
Dim wbArticles As Workbook
Dim wb As Workbook
For Each wb In Workbooks
If wb.FullName = WB_BASE_ARTICLES Then
Set wbArticles = wb
Exit For
End If
Next wb
Set wsFacture = ThisWorkbook.Sheets(WS_FACTURE)
wsFacture.Range("chiflet").ClearContents
If wbArticles Is Nothing Then
Set wbArticles = Workbooks.Open(WB_BASE_ARTICLES)
End If
Set wsArticles = wbArticles.Sheets(WS_ARTICLES) 'Set pour attribuer des références d'objet à des variables
ThisWorkbook.Activate
j'ai essayer des choses comme cela mais pas concluant du tout
Code:
Workbooks("articles.xlsm").SaveChanges = True
Workbooks("articles.xlsm").Close = True
si vous me comprenez dans ce charabia
Pascal
Dernière édition: