Bonjour,
c'est sur la ligne en bleu que le message "erreur d'execution '13' : incompatibilité de type" apparait. Je vois pas où est l'erreur qui peut m'aider?
Private Sub CommandButton1_Click()
Dim t As Integer, m As Integer, nomfichier As String
Sheets("Ordre de commande").Cells(3, 2) = TextBox1.Text
t = 5
m = 6
While Not IsEmpty(Sheets("base de données").Cells(t, 2))
t = t + 1
While Sheets("base de données").Cells(t, 8) <> TextBox1.Text
t = t + 1
Wend
While Not IsEmpty(Sheets("Ordre de commande").Cells(m, 2))
m = m + 1
Wend
Sheets("Ordre de commande").Cells(m, 1) = Sheets("base de données").Cells(t, 3)
Sheets("Ordre de commande").Cells(m, 3) = Sheets("base de données").Cells(t, 2)
Sheets("Ordre de commande").Cells(m, 2) = Sheets("base de données").Cells(t, 4)
Wend
'actualiser le tableau dynamique
Sheets("Feuil3").Select
Range("A11").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
'copier coller vers un nouveau classeur
Sheets("Feuil3").Select
Range("A:A").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'enregistrer la feuille
nomfichier = "ordre de commande - semaine " & TextBox1.Text
Application.CutCopyMode = False
ChDir "C:\ordre d'approvisionement"
ActiveWorkbook.SaveAs Filename:= _
"C:\ordre d'approvisionement\" & nomfichier & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
If MsgBox("Voulez vous passer une autre commande ?", vbYesNo) = vbNo Then
Unload Me
UserForm3.Show
End If
End Sub
nanie