XL 2010 probléme d'ouverture classeur

[yahya belbachir]

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]

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]

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]

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]

Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

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

'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]

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]

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]

Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

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

'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]

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]

Bonjour yahya belbachir, JM, le Forum,

@ yahya belbachir

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

'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]

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]

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

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]

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 , 😉

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

 

[Usine à gaz]

@ 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]

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.