Discussion :

[didi61]

Bonjour,
Je voudrais copier les données de cellules d'une feuille pour les copier dans une autre. Le probleme est que je ne vois pas comment faire car le nom de cette feuille et choisit dans une combobox.

[Bigalo]

Bonsoir,

Où est le problème ?

Code :

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

1
2
3
Dim f As Worksheet
    Set f = ActiveWorkbook.Sheets(ComboBox1.Value)
    ' Suite du traitement, par exemple, MsgBox f.Name

ActiveWorkbook à remplacer le cas échéant, par ThisWorkbook, ou Workbooks("Toto"), ou une variable associée à un classeur.

Cordialement,

Bonjour,
Je voudrais copier les données de cellules d'une feuille pour les copier dans une autre. Le probleme est que je ne vois pas comment faire car le nom de cette feuille et choisit dans une combobox.

Michel Gaboly

[didi61]

"erreur d'execution 424 objet requis"
Esce que ca peut venir du fait que j'ouvre l'autre workbook juste avant, ou que le combobox est sur une autre userform ?

Code :

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

1
2
3
4
 NomClasseur = CurDir & "\classeurclient"
 Workbooks.Open Filename:=NomClasseur
 
Set w = Workbooks("classeurclient").Sheets(FrmSaisieVente.Cbx_Nomclient.Value)

[Bigalo]

Re,

Qu’entends-tu par "le combobox est sur une autre userform" ?

Ton code est-il dans le module du UserForm contenant le ComboBox, ou ailleurs ? Si le code est ailleurs, le UserForm concerné est-il encore en mémoire, ou une instruction Unload a-t-elle déjà eu lieu ?

A quelle ligne as-tu le message d’erreur ?

Par ailleurs, utilise des noms de variables parlants : "w" peut être l’initiale de Workbook, ou celle de Worksheet. C’est pourquoi "f", comme Feuille est plus clair (on utilise classiquement "wb" pour un classeur).

D’autre part, il vaut mieux indiquer l'extension du nom de fichier : "classeurclient.xls" plutôt que "classeurclient".
Cordialement,

Michel Gaboly

[didi61]

A quelle ligne as-tu le message d’erreur ?

au niveeau de la ligne set ...

Qu’entends-tu par "le combobox est sur une autre userform" ?

Ton code est-il dans le module du UserForm contenant le ComboBox, ou ailleurs ? Si le code est ailleurs, le UserForm concerné est-il encore en mémoire, ou une instruction Unload a-t-elle déjà eu lieu ?

Le code n'est pas dans cet userforme mais encore en memoire. le fait de cliquer sur OK fait apparaitre par dessus la seconde ou se trouve le code.

Par ailleurs, utilise des noms de variables parlants : "w" peut être l’initiale de Workbook, ou celle de Worksheet. C’est pourquoi "f", comme Feuille est plus clair (on utilise classiquement "wb" pour un classeur).

D’autre part, il vaut mieux indiquer l'extension du nom de fichier : "classeurclient.xls" plutôt que "classeurclient".

C'est sur que c'est plus lisible

[RemiT]

C pas tres clair... y'a pas moyen que tu nous envoies ton fichier...

[Bigalo]

Bonjour,

L’erreur 424 apparaît donc à cette ligne :

Code :

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

Set w = Workbooks("classeurclient").Sheets(FrmSaisieVente.Cbx_Nomclient.Value)

Comme en principe, tu viens d’ouvrir le classeur "classeurclient", ce n’est pas cet objet qui pose un problème.

As-tu vérifié qu’il n’y a pas de faute de frappe dans "FrmSaisieVente" ou dans "Cbx_Nomclient" ?

Par ailleurs, comme le dit RemiT, c’est vrai que ce serait plus simple en ayant accès à ton document, ou au moins à un extrait plus conséquent du code, en particulier le code dans le premier UserForm, qui affiche le second UserForm, et le code de ce dernier qui définit w : quelle procédure, événementielle ou pas ?

Cordialement,

Michel Gaboly