XL 2010 probléme d'ouverture classeur

yahya belbachir

XLDnaute Occasionnel
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?
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 

yahya belbachir

XLDnaute Occasionnel
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
 

yahya belbachir

XLDnaute Occasionnel
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
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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.
 

Staple1600

XLDnaute Barbatruc
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.
 
Dernière édition:

Discussions similaires

Réponses
24
Affichages
335