question c.n

Workbooks("Nom Classeur").Sheets("Feuil1").....

Sub SauvegardeFeuil1()
Const DossierSauvegarde As String = ""D:\Données\Relevé\" ' à modifier selon l'emplacement de ton dossier
Const DossierSauvegarde2 As String = ""D:\Données\Facture\"
Dim AWbk As Workbook
Dim LaFin As String
Dim Ext As String
Dim NomClasseur As String
Dim Nume As String
Set AWbk = ActiveWorkbook

'nom du classeur sans l'extension
NomClasseur = Left(AWbk.Name, Len(AWbk.Name) - InStr(1, StrReverse(AWbk.Name), "."))
'extension
Ext = Right(AWbk.Name, InStr(1, StrReverse(AWbk.Name), "."))
'date et heure
LaFin = Format(Now, "dd-mm-yy hh-mm-ss")
'enregistrement des copies
Sheets("Feuil1").Copy
ActiveWorkbook.SaveAs DossierSauvegarde & NomClasseur & " " & LaFin & Ext ', xlExcel8 ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
Nume = [Facture!J6]  ' vérifie j'ai mis J6
Sheets("Facture").Copy
ActiveWorkbook.SaveAs DossierSauvegarde2 & NomClasseur & " " & Nume & Ext ', xlExcel8  ' tu peux supprimer xlExcel8
ActiveWorkbook.Close
'If MsgBox("Ouvrir le dossier de sauvegarde ?", vbYesNo) = vbYes Then _
   Shell "C:\WINDOWS\EXPLORER.EXE /n,/e," & ""D:\Données\", vbNormalFocus

End Sub

Option Explicit

'
Sub ADO_AjoutBD()
Dim Fichier As String
Dim NomFeuille As String
Dim Cn As ADODB.Connection
Dim Cd As ADODB.Command
Dim Rst As ADODB.Recordset

'ici, le chemin du classeur dans lequel tu veux exporter les données de la cellule J6
Fichier = "C:\Users\Fred\Desktop\BD TEST.xlsx"
'ici le nom de la feuille
NomFeuille = "Feuil1"
 
 Set Cn = New ADODB.Connection
 'ligne pour Excel 2007
   Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 12.0;HDR=Yes;"""
 'ligne pour les versions antérieures
   'Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & Fichier & ";" & _
      "Extended Properties=""Excel 8.0;HDR=Yes;"";"
    
   Set Cd = New ADODB.Command
   Cd.ActiveConnection = Cn
   
      Cd.CommandText = "SELECT * FROM [" & NomFeuille & "$]"
      Set Rst = New ADODB.Recordset
      Rst.Open Cd, , adOpenKeyset, adLockOptimistic
      'envoi du curseur à la fin de la base
      Rst.MoveLast
      With Rst
         .AddNew
            'Nume est la valeur inscrite ligne  1 de la colonne,
            '[J6], la valeur de la cellule à exporter
         .fields("Nume") = [j6]
         .Update
      End With
 'Fermeture
Rst.Close:   Cn.Close
   
Set Cn = Nothing:   Set Cd = Nothing:   Set Rst = Nothing
End Sub

If cells(x,"J") = "" and cells(x,"K") = "" then ....

If cells(x,"J") = "" and cells(x,"K") = "" then ....

.... then MsgBox "Vous devez remplir les cellules " & cells(x,"J").address & _
" et " & cells(x,"K").address & "." : Exit Sub