Methode range de l'objet global a echoué
Résolu/Fermé
RodolpheG
Messages postés
13
Date d'inscription
vendredi 25 novembre 2022
Statut
Membre
Dernière intervention
20 décembre 2023
-
Modifié le 10 déc. 2022 à 08:49
RodolpheG - 12 déc. 2022 à 14:51
RodolpheG - 12 déc. 2022 à 14:51
A voir également:
- Methode range de l'objet global a echoué
- Vente objet occasion entre particulier - Guide
- Echec de l'acquisition de l'objet com de virtualbox ✓ - Forum Windows
- La connexion a échoué - Forum Réseaux sociaux
- Dans la messagerie ci-dessous, envoyez un nouveau message à manon (manon@pixmail.org) en mettant en copie nina (nina@pixmail.org) : objet : colis bonjour, votre colis est arrivé. que répond manon ? ✓ - Forum Loisirs / Divertissements
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
2 réponses
NonoM45
Messages postés
268
Date d'inscription
dimanche 14 juin 2009
Statut
Membre
Dernière intervention
21 mars 2024
Modifié le 10 déc. 2022 à 01:28
Modifié le 10 déc. 2022 à 01:28
Bonjour,
Très étonné que cela est fonctionné une 1ère fois vous ne faites pas référence à l'objet Worksheet
Sub test() Dim Xlapp As Object Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim monchemin As String, monfichier As String, lechemin As String, montitre As String, MaPlage As Range, MaSomme As Single Dim DerCol As Integer Dim DerLig As Integer Dim J As Integer Dim I As Integer monchemin = CurrentProject.Path monfichier = Environ("UserName") & "_" & Format(Now, "yymmddhhnnss") ' je ne mets pas d'extension, elle sera crée par l'exportation lechemin = monchemin & "\" & monfichier montitre = "Liste des dossiers avec l'évenement :" & Evt.Value & " du " & DatDeb.Value & " au " & DatFin.Value DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Vue_Statistiques", lechemin, True DoCmd.Close acForm, "F_STATS" Set Xlapp = CreateObject("Excel.Application") Xlapp.Visible = True Set xlBook = Xlapp.Workbooks.Open(lechemin) DerCol = 12 With xlBook.Sheets("Vue_Statistiques") DerLig = .Range("A1").CurrentRegion.Rows.Count .Range("A1:L" & DerLig).Cut .Range("A2:L" & DerLig + 1) .Range("A1") = montitre .Range("A1").Interior.Color = RGB(255, 255, 0) .Range("A1:L1").Merge .Range("A1:L1").HorizontalAlignment = xlCenter .Range("A1:L1").Font.Bold = True For J = 0 To DerCol - 1 With .Cells(2, J + 1) .Interior.ColorIndex = 15 .Interior.Pattern = xlSolid .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeBottom).Weight = xlThin .Borders(xlEdgeBottom).ColorIndex = xlAutomatic .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlEdgeRight).Weight = xlThin .Borders(xlEdgeRight).ColorIndex = xlAutomatic .HorizontalAlignment = xlCenter .Interior.PatternColorIndex = xlAutomatic .Interior.ThemeColor = xlThemeColorDark1 .Interior.TintAndShade = -0.149998474074526 .Interior.PatternTintAndShade = 0 End With Next J '' Largeur colonne .Columns("A:L").EntireColumn.AutoFit .Columns("K").EntireColumn.ColumnWidth = 50 '' Format & Somme & Gras Set MaPlage = .Range("I3:I" & DerLig + 1) MaSomme = WorksheetFunction.Sum(MaPlage) .Range("I" & DerLig + 2) = MaSomme .Range("I" & DerLig + 2).Font.Bold = True .Range("I3:I" & DerLig + 2).NumberFormat = "#,###" .Range("A" & DerLig + 2 & ":L" & DerLig + 2).Interior.ColorIndex = 15 End With Set mafeuille = Nothing Set xlBook = Nothing Set Xlapp = Nothing End Sub
A+