Discussion :

[Koukin]

Bonjour à vous,

J'ai besoin d'aide, je suis perdu. je suis complètement novice dans le VBA, après avoir fait un peu de code en prenant les infos un peu partout sur le net, jusqu'a maintenant tout c'était bien passé.
Mais voila que je reprend un code que je me suis déjà servi et qui fonctionnait très bien, mais la il veut pas !!
Le but du jeu étant de copier 2 cellules (c8 et d18) sur un classeur excel et de les remettre dans un autre classeur sur la première cellule vide d'un tableau.

Donc voici mon code, il me donne le problème à la ligne avec le smile qui pleure

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
19
20
21
22
23
Sub equipe1()
 
Dim estouvertequipe1 As String
 
estouvertequipe1 = False
For Each fich In Workbooks
If fich.Name = "equipe 1.xlsx" Then estouvertequipe1 = True
Next
If estouvertequipe1 = False Then Workbooks.Open ("C:\VENDANGE\2013\vendangeur\equipe 1.xlsx")
Windows("LIVREUR.xlsm").Activate
Dim w As Integer
Dim wh As Worksheet
 
 Set wh = Workbooks("LIVREUR").Sheets("BL")
 
 With wh1
  w = Workbooks("equipe 1.xlsx").Sheets("TOTAL KG").Range("o50").End(xlUp)(2).Row ' << ---------  :cry: 
     Workbooks("equipe 1.xlsx").Sheets("total kg").Range("o" & w) = Workbooks("livreur.xlsm").Sheets("bl").Range("c8")
     Workbooks("equipe 1.xlsx").Sheets("total kg").Range("p" & w) = Workbooks("livreur.xlsm").Sheets("bl").Range("d18")
 End With
 
fin
End Sub

D'avance merci à ceux qui essayerons de m'aidé. Et si l'erreur pouvait mettre expliquer simplement je serai preneur.

Si défois une âme charitable avait un peu de temps devant lui, le but ultime est de venir remplir sur le classeur équipe 1 en fonction de la date en c8 (sur classeur livreur) dans une colonne du tableau qui correspondrai à la même date et bien sur sur la première cellule vide.

Et évidement s'il y a besoin de plus d'info, n'hésiter pas à demander.

Ciao

[EngueEngue]

Code :

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

 w = Workbooks("equipe 1.xlsx").Sheets("TOTAL KG").Range("o50").End(xlUp)(2).Row

C'est quoi ce 2 entre parenthèses ? Vire moi ça

[Koukin]

Comme j'expliquai je suis novice donc je ne sais pas à quoi correspond le 2, et comme je l'avais déjà à d'autre endroit et que sa fonctionne très bien, il me dérangeais pas.

Sinon j'ai bien retirer le 2 et cela ne change rien du tout, toujours la même erreur.

[Marc-L]

Bonjour,

le 2 entre parenthèses ne gène pas, c'est l'équivalent de .Offset(1). J'utilise régulièrement cette notation …

Je dirai plutôt que "TOTAL KG" n'est pas égal à "total kg" …

C'est pour cela que je préfère travailler directement avec le CodeName de la feuille (Feuil1.) sinon avec son numéro d'index …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[nibledispo]

Bonjour,

Si la casse a son importance dans le nom des feuilles alors la remarque vaut pour sheets("bl")

On peut d'ailleurs se demander pourquoi avoir défini l'objet "wh" pour ne pas l'utiliser ensuite.

Au demeurant, pour ma formation, est-il correct de typé "wh as workheet" quand le "set wh" comprend également le classeur ? J'aurai plutôt typé "object".

Cordialement

[Docmarti]

nibledispo -

Si la casse a son importance dans le nom des feuilles alors la remarque vaut pour sheets("bl")

Tu as raison, la casse n'a pas d'importance dans le nom des feuilles.

Au demeurant, pour ma formation, est-il correct de typé "wh as workheet" quand le "set wh" comprend également le classeur ? J'aurai plutôt typé "object".

L'objet WorkSheet n'existe pas sans classeur. Mais il demeure un objet WorkSheet. Il faut donc le typer As WorkSheet.
Il n'y a pas de problème à le typer As Object. Car c'est un "Object" également.

Docmarti.

Koukin -

Code :

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

w = Workbooks("equipe 1.xlsx").Sheets("TOTAL KG").Range("o50").End(xlUp)(2).Row ' << ---------  :cry:

Si l'indice n'appartient pas à la sélection, c'est que le classeur n'est pas ouvert ou qu'il n'y a pas de feuille portant ce nom.

Docmarti

[nibledispo]

bonjour Docmarti,

Bien noté ce que tu me dis. Mais alors pourquoi notre amis code t-il les deux lignes suivantes

Code :

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

Workbooks("equipe 1.xlsx").Sheets("total kg").Range("o" & w) = Workbooks("livreur.xlsm").Sheets("bl").Range("c8")

et non pas:

Code :

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

Workbooks("equipe 1.xlsx").Sheets("total kg").Range("o" & w) = wh.Range("c8")

Mon questionnement provenait de cette bizarrerie (enfin pour moi !).

On peut d'ailleurs se demander pourquoi avoir défini l'objet "wh" pour ne pas l'utiliser ensuite.

Cordialement.

[Docmarti]

nibledispo

Tu as raison.

Moi je mettrais :

Code :

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

1
2
Set wb_Livreur_BL = Workbooks("livreur.xlsm").Sheets("bl")
Set wb_Equipe1_TOTALKG = Workbooks("equipe 1.xlsx").Sheets("TOTAL KG")

Puis

Code :

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

1
2
3
w = wb_Equipe1_TOTALKG.Range("o50").End(xlUp)(2).Row
     wb_Equipe1_TOTALKG.Range("o" & w) = wb_Livreur_BL.Range("c8")
     wb_Equipe1_TOTALKG.Range("p" & w) = wb_Livreur_BL.Range("d18")

Docmarti

[nibledispo]

bonsoir Docmarti,

Pour moi tout est clair.
Ta proposition de code me semble en effet plus cohérente.

cordialement

[Koukin]

Bonjour à vous,

Merci pour vos réponses, mais malheureusement sa ne me suffit pas^^

J'avoue que j'y connais quasiment rien en VBA mais sa me plait^^

Donc j'ai essayer avec la proposition de Docmarti et sa bloque au niveau de "range("c8"), je pense que cela vient tout simplement de la déclaration de variable je l'ai mis en workbooks mais sa ne doit pas être sa.

Sinon je me suis demander si le problème à la base ne venait pas d'un code mal fait depuis le début et du coup que VBA se perd un peu ou du moins prend beaucoup de mémoire se qui poserait problème. Je dit sa car j'ai essayer la macro entière (celle-ci dessus n'est qu'un morceau de macro) sur le pc où elle va être utilisé et VBA me donne des messages d'erreur que je n'ai pas sur mon pc, et à des endroit différents de la macro et fini par planter totalement excel et donc fermer excel.

Au niveau config logiciel les deux pc sont pareil win7 et excel 2010, par contre niveau matériel mon pc est clairement plus puissant que pc qui doit l'utiliser.

J'aimerais également utiliser les noms de feuil interne plutôt que les nom externe que n'importe qui pourrait modifier, si quelqu'un savait ou trouver un tuto pour ceci, sa serait sympa car je n'ai rien trouver d'intéressant à se sujet.

Dans l'attente de reponses/avis.

Cordialement.

[Marc-L]

C'est visuel, tu vois les CodeName dans la fenêtre Projet dans l'environnement VBA au dessus de ThisWorbook,
par exemple Feuil1 et entre parenthèses le nom de la feuille …

On peut utiliser les CodeName si Option Explicit n'est pas utilisé …

Si le code se trouve dans le même classeur des feuilles à traiter :

par exemple ThisWorkbook.Worksheets("nom de la feuille 1").Cells(9,1)

peut-être remplacé par ThisWorkbook.Worksheets(1).Cells(9,1) (l'Index de la feuille)

et encore par Feuil1.Cells(9,1) …

Si la feuille n'est pas dans le classeur contenant le code, même en précisant le classeur, il peut y avoir un souci via les CodeName …

Dans ce cas, utiliser une variable objet pointant sur la feuille …

[Koukin]

ok merci marc donc vu que j'aurai en permanence plusieurs classeurs d'ouvert et qu'il faut les alimenter depuis le formulaire, donc je vais laissez comme sa.

C'est bon pour la macro qui bugai sur un autre pc j'avais un sub qui tournais sur lui même^^

Par contre si quelqu'un pouvait me répondre pour savoir comment déclarer des variables qui comporteront le nom du classeur et de la feuille, que j'utiliserais ensuite avec la fonction range.

[Marc-L]

Tu l'as déjà avec la ligne n°14 de ton code de ton message initial …

[Koukin]

sa c'est de la réponse rapide

donc je ne comprend pas se qui va pas, quand je déclare ma variable de cette manière et que je l'utilise avec .range("A1") la macro bloque et me dit "membre de méthode ou de données introuvable"

[Marc-L]

Certainement une erreur de frappe dans le nom de la feuille (et / ou du classeur) comme déjà évoqué …

Travailler avec l'Index de la feuille, moins de risque d'erreur de saisie !

[Koukin]

après avoir vérifier moult fois l’orthographe sans trouver d'erreur. J'ai supprimer le sub et tout retaper proprement. et la magnifique sa fonctionne.

donc effectivement surement une erreur d’orthographe que je n'arrivais pas a voir

Merci pour tous à tous