Transfert données

Bonjour à tous,

J'utilise un formulaire de saisie (userform excel) avec des boutons, je souhaiterai que quand j'appui sur le bouton une information texte s'incrémente dans un autre fichier excel (base de données).

Le problème qui se pose c'est que a chaque fois que je clique sur un bouton, le fichier "Base de données" me marque:

" BaseDeDonnées.xls est déja ouvert. Si vous l'ouvrer à nouveau, toutes vos modifications seront perdues. Voulez-vous rouvrir BaseDeDonnées.xls ? "

Du coup je ne peux pas faire ma saisie complete !!

Voila le code que j'utilise :

'Copie des données service

Sub CopieDesDonnées(service)

Workbooks.Open "K:\Repertoire Commun\Arnaud\Excel\VBA\BaseDeDonnées.xls" 'Ouverture base de données

Application.ScreenUpdating = False

Workbooks("BaseDeDonnées").Activate

If Worksheets("Base de données").Range("B1").End(xlDown).Row > 65500 Then

Worksheets("Base de données").Range("B2").Value = service

Else

If Worksheets("Base de données").Range("A1").End(xlDown).Row = Worksheets("Base de données").Range("C1").End(xlDown).Row Then

Worksheets("Base de données").Range("B1").End(xlDown).Offset(1, 0).Value = service

Else

Worksheets("Base de données").Range("B1").End(xlDown).Value = service

End If

End If

Worksheets("Base de données").Activate

Application.ScreenUpdating = True

End Sub

Bonsoir,

évidemment, c'est la 1ère ligne de code qui ouvre,

essaye

Sub CopieDesDonnées(service)
Application.ScreenUpdating = False
On Error GoTo Ouvre
Workbooks("BaseDeDonnées").Activate
If Worksheets("Base de données").Range("B1").End(xlDown).Row > 65500 Then
Worksheets("Base de données").Range("B2").Value = service
Else
If Worksheets("Base de données").Range("A1").End(xlDown).Row = Worksheets("Base de données").Range("C1").End(xlDown).Row Then
Worksheets("Base de données").Range("B1").End(xlDown).Offset(1, 0).Value = service
Else
Worksheets("Base de données").Range("B1").End(xlDown).Value = service
End If
End If
Worksheets("Base de données").Activate
Exit Sub
Ouvre:
Workbooks.Open "K:\Repertoire Commun\Arnaud\Excel\VBA\BaseDeDonnées.xls" 'Ouverture base de données
MsgBox ("BaseDeDonnées.xls est maintenant ouvert !" & Chr(10) & "recommencez")
End Sub