Bonjour à tous ,
javais été aider ici voila quelque temps sur un gros fichier Excel en VBA! mais celui ci a ses soucis quand il est ouvert avec LibreOffice 5 ou 6
j'ai 3 soucis dessus en fait :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Plg As Range Set Plg = Union(Range("D14"), Range("D16")) If Not Intersect(Target, Plg) Is Nothing And (Range("D14") > "" And Range("D16") > "") Then ActiveSheet.OLEObjects("CmbSave").Enabled = True: ModifBut (1)
Else: ActiveSheet.OLEObjects("CmbSave").Enabled = False:
ModifBut (2) End If End Sub Private Sub ModifBut(M) If M = 1 Then CmbSave.Caption = "Enregistrer" Else CmbSave.Caption = "Saisir Tél et Email pour enregistrer"
End Sub
Private Sub CmbSave_Click() Dim chD$, Fich$, ChNomF Application.DisplayAlerts = False chD = "C:\Users\jbell\Desktop\" Fich = ActiveSheet.Range("C7") & ActiveSheet.Range("F7") & Format("_Fiche de renseignements-Rentrée2020") ChDrive "C:\" ChNomF = Application.GetSaveAsFilename(Fich, "Excel files (*.xlsx),*.xlsx") If ChNomF <> False
Then ThisWorkbook.SaveAs ChNomF, xlOpenXMLWorkbook Range("D14") = "": Range("D16") = "" End If
End Sub
deja quand le bouton est activé ,sous L.O. ca plante !! erreur BASIC ;423 ,comment y remedier?
Merci encore
Edit modo : sujet déplacé dans le bon forum, car il concerne un problème avec calc