Private Sub CommandButton1_Click()
Dim o As Workbook 'déclare la variable o (classeur Origine)
Dim c As Workbook 'déclare la variable c (classeur Cible)
Dim oo As Worksheet 'déclare la variable oo (Onglet Origine)
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dc As String 'déclare la variable dc (Dernière Colonne)
Dim mois As Byte 'déclare la variable mois (mois de la date)
Dim dest As Range 'déclare la variable dest (DESTination)
[COLOR=Red]On Error Resume Next
Workbooks("sauvegarde et historique des prix.xls").Activate
If Err <> 0 Then
On Error GoTo 0
Workbooks.Open "[COLOR=Blue]c:\Temp\[/COLOR]sauvegarde et historique des prix.xls"
End If
Workbooks("prix des légumes.xls").Activate
[/COLOR]
Set o = Workbooks("prix des légumes.xls") 'définit le classeur Origine
Set c = Workbooks("sauvegarde et historique des prix.xls") 'définit le classeur Cible
Set oo = o.Sheets("légumes") 'définit l'onglet Origine
Set oc = c.Sheets("Feuil1") 'définit l'onglet Cible
dc = oc.Range("IV1").End(xlToLeft).Address 'définit la dernière colonne utilisée
mois = Month(Date) 'définit le mois