Private Sub CommandButton1_Click()
Dim DerLigne As Long, sFichier As String, sChemin As String
'...
sFichier = "Fiche controle Produit fini.xls"
sChemin = ActiveWorkbook.Path & "\" & sFichier
If Dir(sChemin) = "" Then
MsgBox "Le fichier base de donnees est inexistant ;" _
& vbCrLf & "Sauvegarde des caractéristiques impossible.", vbCritical, "Vérification"
Else
Workbooks.Open sChemin
With Sheets("Table")
DerLigne = .Range("F65000").End(xlUp).Row
.Range("F" & DerLigne + 1) = TextBox23
.Range("I" & DerLigne + 1) = TextBox26
.Range("R" & DerLigne + 1) = TextBox25
.Range("U" & DerLigne + 1) = TextBox24
End With
ActiveWorkbook.Save
ActiveWindow.Close
End If
'...
End Sub
A moins qu'en plus le fichier ne se trouve pas dans le répertoire courant...Bonsoir,
Avec ce que je comprends
Code:Private Sub CommandButton1_Click() Dim DerLigne As Long, sFichier As String, sChemin As String '... sFichier = "[COLOR="Blue"]Fiche controle Produit fini.xls[/COLOR]" sChemin = ActiveWorkbook.Path & "\" & sFichier If Dir(sChemin) = "" Then MsgBox "Le fichier base de donnees est inexistant ;" _ & vbCrLf & "Sauvegarde des caractéristiques impossible.", vbCritical, "Vérification" Else Workbooks.Open sChemin With Sheets("[COLOR="Blue"]Table[/COLOR]") DerLigne = .Range("F65000").End(xlUp).Row .Range("F" & DerLigne + 1) = TextBox23 .Range("I" & DerLigne + 1) = TextBox26 .Range("R" & DerLigne + 1) = TextBox25 .Range("U" & DerLigne + 1) = TextBox24 End With ActiveWorkbook.Save ActiveWindow.Close End If '... End Sub
A mon sens non...en regardant le code il y a embrouille avec les classeurs...
Par contre là, je me pose la question...serait ce parce que ma base de donnée ne s'appelle pas "base de données" mais plutot "Table"? et qu'en plus elle se trouve dans le classeur "fiche de controle produit fini" en feuille 2..
'...
If Dir(ActiveWorkbook.Path & "\[COLOR="Red"]Table.xls[/COLOR]") = "" Then
'...