Bonjour à tous,
j'ai une fonction copie dans un module:
Dans un UserForm j'ai un bouton qui doit appeler cette fonction mais il semble qu'on ne peut pas faire ça car un erreur de définition de la variable L apparait.:
Lorsque j'appel cette function dans une feuille c'est ok. Est-ce qu'il est possible de faire l'appel d'une function dans un userform?
Merci à vous et dsl pour la question basic...
j'ai une fonction copie dans un module:
Code:
Private Function copie(ByVal L As Integer)
Dim xls_fichier As Excel.Workbook
Set xls_fichier = GetObject("C:\Users\My\Desktop\db.xlsx")
Sheets("DB").Select
Range("A2:c2").Select
Selection.Copy
xls_fichier.Windows(1).Visible = True
xls_fichier.Sheets("feuil1").Select
xls_fichier.Sheets("feuil1").Paste
L = Range("A65536").End(xlUp).Row + 1
Cells(L, 1).Select
'Fermeture fichier
xls_fichier.Save
xls_fichier.Close
Set xls_fichier = Nothing
End FunctionDans un UserForm j'ai un bouton qui doit appeler cette fonction mais il semble qu'on ne peut pas faire ça car un erreur de définition de la variable L apparait.:
Code:
Private Sub CommandButton11_Click()
Call copie(ByVal L)
End SubLorsque j'appel cette function dans une feuille c'est ok. Est-ce qu'il est possible de faire l'appel d'une function dans un userform?
Merci à vous et dsl pour la question basic...