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?
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
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.
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
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 !
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
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.
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.
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
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.