Calvus
XLDnaute Barbatruc
Bonjour le forum,
Pouvez vous me dire pourquoi ce code fonctionne dans un module, mais pas dans le code de ma feuille ?
Dans le code de la feuille le tableau est vide...
J'ai essayé plusieurs classeurs, plusieurs feuilles, et le résultat est le même.. sauf une fois bizarrement..
Merci
Pouvez vous me dire pourquoi ce code fonctionne dans un module, mais pas dans le code de ma feuille ?
VB:
Option Explicit
Private Sub CommandButton1_Click()
Dim t, i As Long
'Nouveau code le 5.08.19
If Range("C83") = "" Then
t = Range("B2:J63")
ElseIf Range("C146") = "" Then
t = Range("B2:J126")
ElseIf Range("C209") = "" Then
t = Range("B2:J189")
ElseIf Range("C272") = "" Then
t = Range("B2:J252")
ElseIf Range("C334") = "" Then
t = Range("B2:J315")
ElseIf Range("C334") <> "" Then
t = Range("B2:J378")
End If
Dim LePath As String, LePath2 As String, LeNom As String, fichier As String, Dossier As String, Chemin As String
'On Error GoTo fin
'Enregistrement de la feuille
LePath = "C:\Users\XXX"
LePath2 = "C:\Users\XXX\"
Workbooks.Add
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next i
Application.DisplayAlerts = True
Range("B2").Resize(UBound(t), 9) = t
ActiveWindow.Zoom = 80
If ThisWorkbook.ActiveSheet.[P9] = "" Then 'Si P9 = ""(1 seule facture)
LeNom = [B12] & " Facture du " & Format([H5], "ddmmyyyy") & ".xlsx"
ActiveWorkbook.SaveAs LePath & LeNom
ActiveWorkbook.SaveAs LePath2 & LeNom
ActiveWorkbook.Close
Else 'Sinon numérotation avec 2 factures le même jour
LeNom = [B12] & " Facture du " & Format([H5], "ddmmyyyy") & " " & [Q9] & ".xlsx"
ActiveWorkbook.SaveAs LePath & LeNom
ActiveWorkbook.SaveAs LePath2 & LeNom
ActiveWorkbook.Close
End If
End Sub
Dans le code de la feuille le tableau est vide...
J'ai essayé plusieurs classeurs, plusieurs feuilles, et le résultat est le même.. sauf une fois bizarrement..
Merci