Mon Code vba marche pas

Version imprimable

Bonjour,

Merci d'avance de votre aide.
Mon code ne fonctionne pas quand je le lance.
j'ai une erreur 9 au niveau du choix du Sheets.
ça me renvoie toujours au premier fichier et non là ou je l'execute.
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Test13()
Dim Wkb As Workbook
Dim Rng As Range
Dim myPath As String, myFile As String
 
Dim valeur As String, i As Integer, j As Integer
Dim Wksh As Worksheet
Dim Cell As Range

myPath = "C:\Users\***\Desktop\test"
myFile = Dir(myPath & "\*.*")
 
'Do While myFile <> ""
'For Each Cell In Ws.Range("A")
Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")
    Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy
    'Range("A:A").Select
    'Selection.Copy

Set Wb = Workbooks("nomfichier.xlsm")
    Sheets("Info_Site").Select
    'Sheets("Info_Site").Select
    'Sheets("Info_Site").Range("B3").Paste
    Range("B3").Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
Call Module1.Bouton2_Cliquer

'Next Cell
'Loop

End Sub

20/03/2018, 15h46
joe.levrai

Bonjour,

préfixe ton objet feuille avec l'objet classeur dans lequel il est, ça évitera à ta procédure de chercher cette feuille dans le classeur actif.... là où elle n'existe pas :roll:

Merci de ta réponse
Mon code de départ était ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx") Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy Set Wkb = ThisWorkbook Sheets("Info_Site").Select Range("B3").Paste ActiveSheet.Paste Application.CutCopyMode = False Call Module1.Bouton2_Cliquer
donc si je veux préfixer ma feuille que je veux au niveau du rouge, je fais comment ?
Sachant que ça me renvoie au 1er classeur alors que la macro se trouve dans le second classeur.
Merci

20/03/2018, 16h19
Menhir

Regarde quel est le classeur actif au moment où la macro plante : est-ce que l'onglet Info_Site est dans ce classeur actif ?

Il me semble aussi très hasardeux de pointer sur une ActiveCell d'un classeur qu'on vient juste d'ouvrir.
Il faut vraiment être certain de la position au moment de la sauvegarde pour oser faire ça (perso, je n'oserai jamais).

Autre problème : l'objet Range n'a pas de méthode Paste. Par contre, il a une méthode PasteSpecial.

Bonjour,

les deux fichiers sont ouvert.
L'onglet "info_site" est dans le 2e fichier.
j'ai modifié le code comme ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx") Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy 'Range("A:A").Select 'Selection.Copy Set Wb = Workbooks("monfichier__.xlsm") Set Wksh = Wb.Worksheets("Info_Site") Wksh.Activate Worksheets.Select Range("B3").Paste ActiveSheet.Paste Application.CutCopyMode = False Call Module1.Bouton2_Cliquer
là j'ai plus l'erreur 9 mais 438 au niveau du rouge.

Merci

20/03/2018, 16h35
MOUD2

c'est plutôt

Code:

Range("B3").Select

et j'ai plus l'erreur 438
20/03/2018, 16h39
Menhir

Citation:

Envoyé par MOUD2

les deux fichiers sont ouvert.

Je n'ai pas parlé de fichier OUVERT mais de classeur ACTIF.

Citation:

là j'ai plus l'erreur 9 mais 438 au niveau du rouge.

Voir mon message précédent.

Je voulais dire plus 438 mais 9.
Bref je n'ai plus d'erreur.
Merci pour votre aide.
Mon autre problème est de faire une boucle du "copie - coller" pour 300 cellules et je ne sais pas ou le placer dans mon code.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx") Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy 'Range("A:A").Select 'Selection.Copy Set Wb = Workbooks("monfichier__.xlsm") Set Wksh = Wb.Worksheets("Info_Site") Wksh.Activate Range("B3").Select ActiveSheet.Paste Application.CutCopyMode = False Call Module1.Bouton2_Cliquer
Merci de votre aide

20/03/2018, 19h48
Marc-L

Bonjour,

tes lignes de code n°2 à 11 peuvent se réduire en une seule ligne de code, juste en lisant et
en appliquant l'aide VBA de Range.Copy en indiquant directement son paramètre Destination
car pour une simple copie un bon code n'a déjà rien besoin de sélectionner …

Et à quoi peut servir la variable créée dans la ligne de code n°1 car elle n'est pas utilisée dans le code ?!

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour,

Merci de vos retour.
Effectivement j'ai décomposé pour mieux comprendre ce que je fais car je suis novice.
le code n'est pas fini car je dois faire une boucle sur chaque cellule du classeur

Code:

Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")

environ 400 et créer une fiche à partir du Macro

Code:

Call Module1.Bouton2_Cliquer

donc j'ai essayé de faire un For each mais j'ai une erreur 91
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim Cell As Range For Each Cell In Wksh.Range("A1:A5") Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx") Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy Set Wb = Workbooks("monfichier__.xlsm") Set Wksh = Wb.Worksheets("Info_Site") Wksh.Activate Range("B3").Select ActiveSheet.Paste Application.CutCopyMode = False Call Module1.Bouton2_Cliquer Next
je ne vois pas comment le formuler.

21/03/2018, 09h57
Menhir
Citation:
Envoyé par MOUD2

donc j'ai essayé de faire un For each mais j'ai une erreur 91

Code:

1 2 3 For Each Cell In Wksh.Range("A1:A5") [...] Set Wksh = Wb.Worksheets("Info_Site")
Tu n'as pas l'impression de faire les choses dans le désordre ?

Re

j'ai corrigé et adapté.
il s’exécute bien pour la première cellule et me fait une erreur 9 au niveau de

Code:

Set Wb = Workbooks("monfichier__.xlsm")

je teste que pour 5 cellules.
voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
For Each Cell In Range("A1:A5")
'.Range("A1:A5")
 
Set Wkb = Workbooks.Open("C:\Users\***\Desktop\test\site.xlsx")
    Range(Range("A" & ActiveCell.Row), Range("IV" & ActiveCell.Row).End(xlToLeft)).Copy
    'Range("A:A").Select
    'Selection.Copy
 
Set Wb = Workbooks("monfichier__.xlsm")
Set Wksh = Wb.Worksheets("Info_Site")
    Wksh.Activate
    'Worksheets.Select
    Range("B3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
Call Module1.Bouton2_Cliquer
 
Next

comment faire ?
Merci

21/03/2018, 10h02
MOUD2

Citation:

Envoyé par Menhir

Tu n'as pas l'impression de faire les choses dans le désordre ?

bonjour,

c'est possible!
devrais je le mettre après ?
21/03/2018, 10h27
Menhir

Citation:

Envoyé par MOUD2

devrais je le mettre après ?

Tu utilises le contenu d'une variable avant d'avoir renseigné cette variable. Tu penses que ça peut marcher ?

Vrai je l'ai mis après

Code:

1
2
Set Wb = Workbooks("monfichier__.xlsm")
Set Wksh = Wb.Worksheets("Info_Site")

pour la suite, je fais appelle à cette macro pour extraire le fichier sauf que ça désactive tout une fois le 1er fichier enregistré ce qui bloque la suite de la boucle.
Pouvez vous me dire ce qui ne va pas svp ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Bouton2_Cliquer()
Dim Sh As Worksheet
Dim NomFichier As String
ThisWorkbook.Unprotect ("PST")
 
NomFichier = chemin & "\Document de Visite de Site PST_" & Range("B3") & "_" & Range("B5") & ".xlsm"
 
With ThisWorkbook
For Each Sh In ThisWorkbook.Worksheets
With Sh
With .UsedRange
.Value = .Value
End With
End With
Next
End With
Application.DisplayAlerts = False
Sheets("I-REGATE").Delete
Sheets("Controle").Delete
Sheets("OBS").Delete
Sheets("ROUTEUR").Delete
Sheets("REFERENTIEL").Delete
Sheets("Borne_WIFI").Delete
Sheets("ELIGIBILITE").Delete
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & _
NomFichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

21/03/2018, 11h24
Menhir

Citation:

Envoyé par MOUD2

pour la suite, je fais appelle à cette macro pour extraire le fichier

Je ne vois pas trop ce qu'est supposé "extraire" ce code...

Citation:

Pouvez vous me dire ce qui ne va pas svp ?

Il y a beaucoup de choses qui ne vont pas dans ton code mais je pense que la principale est que tu confonds ThisWorkbook et ActiveWorkbook.
21/03/2018, 11h27
MOUD2

ce nest pas mon code mais le code que j'ai dans le fichier ou je veux executer une boucle en utilisant la macro déjà créée.
je fais les tests pour thiswb et activewb et revien vers toi
21/03/2018, 11h30
MOUD2

Citation:

Envoyé par Menhir

Je ne vois pas trop ce qu'est supposé "extraire" ce code...

Il y a beaucoup de choses qui ne vont pas dans ton code mais je pense que la principale est que tu confonds ThisWorkbook et ActiveWorkbook.

Extraction du fichier enregistré sous un autre nom dans le même dossier sauf que ça me désactive les formules dans le fichier source.
21/03/2018, 11h33
Menhir

Citation:

Envoyé par MOUD2

sauf que ça me désactive les formules dans le fichier source.

C'est normal puisque c'est la seule raison pour laquelle on fait un Value = Value.

Citation:

Envoyé par MOUD2

ce nest pas mon code mais le code que j'ai dans le fichier

As-tu quand même essayé de comprendre ce que ce code fait ?
21/03/2018, 11h39
MOUD2

Citation:

Envoyé par Menhir

C'est normal puisque c'est la seule raison pour laquelle on fait un Value = Value.

As-tu quand même essayé de comprendre ce que ce code fait ?

oui j'y suis ce que je ne comprends pas c'est comment je peux enregistrer le fichier sans désactiver les formules sur le classeur d'origine.
21/03/2018, 11h42
MOUD2

sinon il faudrait que après chaque extraction que je ferme le fichier et refais la même manip pour le suivant.
21/03/2018, 12h31
Menhir

Citation:

Envoyé par MOUD2

ce que je ne comprends pas c'est comment je peux enregistrer le fichier sans désactiver les formules sur le classeur d'origine.

Il suffit de ne pas enregistrer le classeur sous son nom et/ou son emplacement d'origine.
21/03/2018, 16h44
MOUD2

J'ai testé de l'enregistré dans un autre dossier mais sur celui d'origine, les formules sont désactivées une fois le "SaveAs"
21/03/2018, 17h05
Menhir

Quand je parlais de l'enregistrer sous un autre nom, c'est au niveau du SaveAs.
21/03/2018, 17h08
MOUD2

Citation:

Envoyé par Menhir

Quand je parlais de l'enregistrer sous un autre nom, c'est au niveau du SaveAs.

Si j'ai bien compris.
c'est juste que quand ma macro me remplie la cellule B3, les autres cellules se remplissent automatiquement via des formules dans le fichier.
Donc a chaque fois que j'enregistre sous un autre nom, mon fichier de base doit être en mesure de continuer pour les autres cellules de la listes.

Fuseau horaire GMT +2. Il est actuellement 16h59.