XL 2010 probléme d'ouverture classeur

yahya belbachir

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

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

arthour973

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 :)
 

Best1

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

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

XLDnaute Barbatruc
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
:eek: :eek:
Et tu es pourtant Barbatruc !
 

yahya belbachir

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

arthour973

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:

yahya belbachir

XLDnaute Nouveau
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.
Moi je croyais que mon fichier ne s'ouvrira jamais,car j'ai essayé plusieurs fois de l'ouvrir,mais sans résultat.
 

Staple1600

XLDnaute Barbatruc
Re

yahya
Le principal c'est que désormais tu saches
1) Il ne faut jamais joindre un fichier original
2) Que si tu joins un fichier, il ne doit contenir aucune données confidentielles
3) Qu'on peut ouvrir un classeur sans activer les macros
Voir ci-dessous pour un petit aide-mémoire
 
Dernière édition:

yahya belbachir

XLDnaute Nouveau
Re

yahya
Le principal c'est que désormais tu saches
1) Il ne faut jamais joindre un fichier original
2) Que si tu joins un fichier, il ne doit contenir aucune données confidentielles
3) Qu'on peut ouvrir un classeur sans activer les macros
Voir ci-dessous pour un petit aide-mémoire
merci pour ces conseil,prochainement je ne ferai jamais ça,surtout confidentiel.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas