XL 2010 probléme d'ouverture classeur

yahya belbachir · 19 Octobre 2019

Bonjour y a t-il une solution pour ouvrir un classeur excel,mon probléme est que j'ai fais un code thisworkbook.close dans le VBAPROJET-thisworkbook(open)
et quand je l'ai activé,j'ai fermé mon classeur,puis il ne s'ouvre plus,il me donne un feuille blanche sans le contenu ni le code.
y a t-il une solution pour l'ouvrir?

Staple1600 · 19 Octobre 2019

Bonjour le fil

Essaie déjà d'ouvrir ton classeur sans activer les macros
Puis commentes/modifies/supprimes ce qui pose problème dans ton code VBA

yahya belbachir · 19 Octobre 2019

Staple1600 à dit:
Bonjour le fil

Essaie déjà d'ouvrir ton classeur sans activer les macros
Puis commentes/modifies/supprimes ce qui pose problème dans ton code VBA

Best1 · 19 Octobre 2019

yahya belbachir à dit:
merci pour votre réponse,
mais je pense que cela n'a pas fonctionné,voiçi mon fichier çi joint
et merci

Bonjour,

Votre fichier contient des informations personnelles. Je vous invite à le supprimer.

Usine à gaz · 19 Octobre 2019

Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

J'ai désactivé ton code dans le ThisWorbook_Open :

VB:

'Private Sub Workbook
'ThisWorkbook.Close
'employe.Show
'sommaire.Show vbModeless Open
'Sheets("Personnel").Range("H3") = "Aujourd'hui le:" & Now()
'Sheets("ATT-TR").Range("E5") = "Fait à Al-Hoceima le:" & Date
'Sheets("ATT-SL").Range("E5") = "Fait à Al-Hoceima le:" & Date
'Sheets("CONGE").Range("E5") = "Fait à Al-Hoceima le:" & Date
'Sheets("PAIE").Range("F4") = "Fait à Al-Hoceima le:" & Date
'End Sub
'Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ActiveWorkbook.Save
'End Sub

Voici ton fichier en retour,
Supprimes-le vite de tous les posts du fil après l'avoir téléchargé.
Amicalement,
lionel 🙂

Best1 · 19 Octobre 2019

Re

Autrement, il s'agit effectivement d'un blocage au niveau de la macro Workbook_Open.
Il faudra ouvrir le fichier sans activer les macros pour pouvoir intervenir.

yahya belbachir · 19 Octobre 2019

Best1 à dit:
Bonjour,

Votre fichier contient des informations personnelles. Je vous invite à le supprimer.

merci beaucoup
je l'ai supprimer mais je n'ai pas trouver comment l'ouvrir sans activer les macros

yahya belbachir · 19 Octobre 2019

arthour973 à dit:
Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

J'ai désactivé ton code dans le ThisWorbook_Open :

VB:

'Private Sub Workbook 'ThisWorkbook.Close 'employe.Show 'sommaire.Show vbModeless Open 'Sheets("Personnel").Range("H3") = "Aujourd'hui le:" & Now() 'Sheets("ATT-TR").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("ATT-SL").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("CONGE").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("PAIE").Range("F4") = "Fait à Al-Hoceima le:" & Date 'End Sub 'Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ActiveWorkbook.Save 'End Sub

Voici ton fichier en retour,
Supprimes-le vite de tous les posts du fil après l'avoir téléchargé.
Amicalement,
lionel 🙂

merci beaucoup
ça y est vous pouvez le supprimer tout de suite

Staple1600 · 19 Octobre 2019

Re

Arthour
???
Tu republies le fichier tel quel avec les données confidentielles !!!
Alors que Best1 a pris le soin d'indiquer qu'il y avait des données sensibles
😱 😱
Et tu es pourtant Barbatruc !

yahya belbachir · 19 Octobre 2019

arthour973 à dit:
Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

J'ai désactivé ton code dans le ThisWorbook_Open :

VB:

'Private Sub Workbook 'ThisWorkbook.Close 'employe.Show 'sommaire.Show vbModeless Open 'Sheets("Personnel").Range("H3") = "Aujourd'hui le:" & Now() 'Sheets("ATT-TR").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("ATT-SL").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("CONGE").Range("E5") = "Fait à Al-Hoceima le:" & Date 'Sheets("PAIE").Range("F4") = "Fait à Al-Hoceima le:" & Date 'End Sub 'Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ActiveWorkbook.Save 'End Sub

Voici ton fichier en retour,
Supprimes-le vite de tous les posts du fil après l'avoir téléchargé.
Amicalement,
lionel 🙂

je vous remercie mon ami,est ce possible de le supprimer? car cela me provoquera des probléme?
infiniment

Staple1600 · 19 Octobre 2019

Best1 à dit:
Re

Autrement, il s'agit effectivement d'un blocage au niveau de la macro Workbook_Open.
Il faudra ouvrir le fichier sans activer les macros pour pouvoir intervenir.

Best1
Tu sembles avoir zappé le message#2, non , 😉

Usine à gaz · 19 Octobre 2019

Fais une copie de ton fichier pour tester 🙂
Modifies ton code à l'ouverture comme suit :

VB:

Private Sub Workbook_Open()
'ThisWorkbook.Close       à neutraliser
'employe.Show                à neutraliser
sommaire.Show vbModeless
Sheets("Personnel").Range("H3") = "Aujourd'hui le:" & Now()
Sheets("ATT-TR").Range("E5") = "Fait à Al-Hoceima le:" & Date
Sheets("ATT-SL").Range("E5") = "Fait à Al-Hoceima le:" & Date
Sheets("CONGE").Range("E5") = "Fait à Al-Hoceima le:" & Date
Sheets("PAIE").Range("F4") = "Fait à Al-Hoceima le:" & Date
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

et vois ensuite s'il te manque des fonctionnalités.

Best1 · 19 Octobre 2019

Best1 à dit:
Re

Autrement, il s'agit effectivement d'un blocage au niveau de la macro Workbook_Open.
Il faudra ouvrir le fichier sans activer les macros pour pouvoir intervenir.

Staple1600 à dit:
Best1
Tu sembles avoir zappé le message#2, non , 😉

Staple1600
C'était plutôt une confirmation (ayant vu le fichier) de l’efficacité de ta solution 🙂

Usine à gaz · 19 Octobre 2019

@ yahya belbachir

Quand tu me confirmeras que c'est bon pour toi, dis-le moi et je supprimerai ton fichier de mon ordi 🙂
lionel,

Staple1600 · 19 Octobre 2019

Re

Best1
Je parlais de "zappage"
(parce qu'on ne sait jamais avec un Bonjour à la cantonnade, si les autres membres ont vu nos messages ou pas)
Maintenant je sais que tu l'avais lu. 😉

Arthour
J'ai eu le temps de télécharger le fichier que tu avais "inconsciemment" republié tel quel...
Combien d'autres XLDnautes ont eu le temps de faire de même ?
Ce qui vérifie le vieil adage "Trop de précipitations nuit"

yahya
En ce qui me concerne, ton fichier sera supprimé de mon disque quand j'aurais fini de déjeuner.
😉
PS1: Reste à espérer qu'il y avait peu de monde à lire ton fil en ce samedi.
PS2: C'est pourtant marqué dans la charte qu'il faut joindre des fichiers anonymes.

XL 2010 probléme d'ouverture classeur

yahya belbachir

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

Best1

XLDnaute Nouveau

Usine à gaz

XLDnaute Barbatruc

Best1

XLDnaute Nouveau

yahya belbachir

XLDnaute Occasionnel

yahya belbachir

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Best1

XLDnaute Nouveau

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

XL 2010 probléme d'ouverture classeur

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency