ActiveWorkbook.Close : OK EXCEL 97, KO EXCEL 2000 !!!
2 réponses
Quetzalcoatl
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans
problème.
Je suis passé sous EXCEL 2000, et j'ai des problèmes.
Je termine ma macro par :
ActiveWorkbook.Save
ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur Windows,
j'obtiens un Docteur WATSON.
Comment faire pour savoir ce qui ne va pas et le corriger ?
Avez-vous déjà rencontré ce type de désagrément ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Quetzalcoatl
http://support.microsoft.com/default.aspx?scid=kb;en-us;199212 P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans problème. Je suis passé sous EXCEL 2000, et j'ai des problèmes. Je termine ma macro par :
ActiveWorkbook.Save ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur Windows, j'obtiens un Docteur WATSON. Comment faire pour savoir ce qui ne va pas et le corriger ? Avez-vous déjà rencontré ce type de désagrément ?
Merci d'vance pour toute piste !
-- Cheerio
http://support.microsoft.com/default.aspx?scid=kb;en-us;199212
P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans
problème.
Je suis passé sous EXCEL 2000, et j'ai des problèmes.
Je termine ma macro par :
ActiveWorkbook.Save
ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur
Windows, j'obtiens un Docteur WATSON.
Comment faire pour savoir ce qui ne va pas et le corriger ?
Avez-vous déjà rencontré ce type de désagrément ?
http://support.microsoft.com/default.aspx?scid=kb;en-us;199212 P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans problème. Je suis passé sous EXCEL 2000, et j'ai des problèmes. Je termine ma macro par :
ActiveWorkbook.Save ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur Windows, j'obtiens un Docteur WATSON. Comment faire pour savoir ce qui ne va pas et le corriger ? Avez-vous déjà rencontré ce type de désagrément ?
Merci d'vance pour toute piste !
-- Cheerio
MichDenis
Bonjour Quetzalcoatl,
Et ceci :
'------------------------- Sub OK()
Dim Wk As Workbook Dim Arr(), Fichier As String Fichier = "c:exceldenis1.xls" 'à déterminer
'Liste de tes 3 feuilles à sauvegarder... Arr = Array("Super important", "Do not delete", "Restricted")
Set Wk = Workbooks.Open(Fichier)
Application.DisplayAlerts = False On Error Resume Next With Wk For Each sh In .Sheets If sh.Name = "Do not delete" Then sh.Name = "Coucou me re-voilà" End If If Not IsNumeric(WorksheetFunction.Match(sh.Name, Arr, 0)) Then Err = 0 sh.Delete End If Next .Save .Close End With Application.DisplayAlerts = True End Sub '-------------------------
Salutations!
"Quetzalcoatl" a écrit dans le message de news: u8iP$ http://support.microsoft.com/default.aspx?scid=kb;en-us;199212 P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans problème. Je suis passé sous EXCEL 2000, et j'ai des problèmes. Je termine ma macro par :
ActiveWorkbook.Save ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur Windows, j'obtiens un Docteur WATSON. Comment faire pour savoir ce qui ne va pas et le corriger ? Avez-vous déjà rencontré ce type de désagrément ?
Merci d'vance pour toute piste !
-- Cheerio
Bonjour Quetzalcoatl,
Et ceci :
'-------------------------
Sub OK()
Dim Wk As Workbook
Dim Arr(), Fichier As String
Fichier = "c:exceldenis1.xls" 'à déterminer
'Liste de tes 3 feuilles à sauvegarder...
Arr = Array("Super important", "Do not delete", "Restricted")
Set Wk = Workbooks.Open(Fichier)
Application.DisplayAlerts = False
On Error Resume Next
With Wk
For Each sh In .Sheets
If sh.Name = "Do not delete" Then
sh.Name = "Coucou me re-voilà"
End If
If Not IsNumeric(WorksheetFunction.Match(sh.Name, Arr, 0)) Then
Err = 0
sh.Delete
End If
Next
.Save
.Close
End With
Application.DisplayAlerts = True
End Sub
'-------------------------
Salutations!
"Quetzalcoatl" <quetzalNSPMcoatl@free.fr.invalid> a écrit dans le message de news:
u8iP$MXDFHA.3648@TK2MSFTNGP10.phx.gbl...
http://support.microsoft.com/default.aspx?scid=kb;en-us;199212
P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans
problème.
Je suis passé sous EXCEL 2000, et j'ai des problèmes.
Je termine ma macro par :
ActiveWorkbook.Save
ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur
Windows, j'obtiens un Docteur WATSON.
Comment faire pour savoir ce qui ne va pas et le corriger ?
Avez-vous déjà rencontré ce type de désagrément ?
Dim Wk As Workbook Dim Arr(), Fichier As String Fichier = "c:exceldenis1.xls" 'à déterminer
'Liste de tes 3 feuilles à sauvegarder... Arr = Array("Super important", "Do not delete", "Restricted")
Set Wk = Workbooks.Open(Fichier)
Application.DisplayAlerts = False On Error Resume Next With Wk For Each sh In .Sheets If sh.Name = "Do not delete" Then sh.Name = "Coucou me re-voilà" End If If Not IsNumeric(WorksheetFunction.Match(sh.Name, Arr, 0)) Then Err = 0 sh.Delete End If Next .Save .Close End With Application.DisplayAlerts = True End Sub '-------------------------
Salutations!
"Quetzalcoatl" a écrit dans le message de news: u8iP$ http://support.microsoft.com/default.aspx?scid=kb;en-us;199212 P...! Quelle vacherie !
Bonsoir,
J'ai développé et utilisé une macro VBA sous EXCEL 97 / WINDOWS NT 5, sans problème. Je suis passé sous EXCEL 2000, et j'ai des problèmes. Je termine ma macro par :
ActiveWorkbook.Save ActiveWorkbook.Close
et lorsque je veux ouvrir le classeur en question depuis l'explorateur Windows, j'obtiens un Docteur WATSON. Comment faire pour savoir ce qui ne va pas et le corriger ? Avez-vous déjà rencontré ce type de désagrément ?
