Discussion :

[tequillaman]

si jouvre mon classeur base et que je lance la macro, pas de soucis.
Si j'ouvre mon fichier de consultation, que je lance la macro, elle ouvre le fichier base mais il reste en fond, il est pas en premier plan et j'ai mon erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Valider_Click()
    Dim Chemin As String
    Dim FICHIER As String
    Dim RECHERCHE As Range
    Dim nom As String       'pour accepter le champs de saisie dans le userform
    Dim vide As Range
    Dim Source As Worksheet
    Dim Dest As Worksheet
 
    Set Dest = Workbooks("Base de données.xls").Worksheets("Base de données")
    nom = menu.saisie.Text
    Chemin = ThisWorkbook.Path & "\Fiches controle billettes\"
    FICHIER = Dir(Chemin & "\" & nom & "*")
 
 
    Set vide = Dest.Cells(Rows.Count, 1).End(xlUp).Offset(1)
...
....

vu que mon bouton de macro sur mon fichier consult est une copie de celui sur le fichier Dest le fichier s'ouvre bien.

[joe.levrai]

Cette procédure n'ouvre pas ton fichier base de données, il semble déjà ouvert

Après le Set Dest = ...., ta variable dest contient bien une référence au classeur ou pas ?

Si tu interroges l'adresse (.Address), juste après ton Set Dest = .... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Dest.Cells(Rows.Count, 1).End(xlUp).Offset(1).Address

tu obtiens quoi ?

La question du fichier en premier plan ou non, ça importe peu, en VBA on a pas besoin que le classeur soit actif.


Je n'ai pas compris pour l'histoire des boutons

[tequillaman]

J'ai un fichier "base de données" su lequel j'ai fait mes macro. Il récupère les info de plusieurs fichiers.
Il y a un bouton mise à jour pour les récupérer.
J'ai un autre fichier qui récupère certaines colonnes avec des colonnes supplémentaires qui ont des formules ....
J'ai fait une copie de se bouton sur cet autre fichier pour éviter de devoir recherche le fichier "base de données"


si je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dest.Activate
    Set vide = Cells(Rows.Count, 1).End(xlUp).Offset(1)

sa fonctionne quand je clic sur le bouton du fichier "base de données" et aussi sur l'autre fichier

si je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set vide = Dest.Cells(Rows.Count, 1).End(xlUp).Offset(1)

sa fonctionne que si je lance la macro depuis le fichier "base de données"
si je lance la macro depuis l'autre fichier erreur sur cette ligne

[AlainTech]

Ok, du coup, j'ai une erreur
...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set vide = dest.Cells(Rows.Count, 1).End(xlUp).Offset(1)

Bonjour,

Toute propriété d'une feuille doit faire référence à cette feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With dest
  Set vide = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
End With

Il faut préciser que la propriété Rows s'applique à le feuille dest. C'est ce que fait le point devant Rows après avoir implémenté le With.

[tequillaman]

Salut à tous,
Merci alain, c'est parfait.