Discussion :

[tompom3108]

Bonjour à tous

c'est surement trés simple mais je bloque sur une déclaration de nom de classeur

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
24
25
26
27
28
29
30
Sub mofif()
 
Dim Wbdest As Workbook, wbmodif As Workbook
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet
Dim LigneDebut As Byte
Dim LigneFin As Long
Dim Cible1 As String, N_client As String
Dim Rci As Range, Rpdp1 As Range, Rpdp2 As Range, Lign As Integer, X As Integer
Dim Rmod As Range, Rmodval As String, Nomwbmodif As String
 
Set wb = ThisWorkbook
 
Application.Workbooks.Open "Z:\Gestion entreprise\VBA\Atest\CC2011T.xlsx"
Set wbs = Workbooks("CC2011T.xlsx")
wbs.Worksheets("Pilote1").Activate
 
  On Error Resume Next
   Set Rmod = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  On Error GoTo 0
   If Not Rmod Is Nothing Then
    Rmod.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 Rmodval = Rmod.Value
 wbs.Worksheets("Pilote1").Activate
N_client = wbs.Worksheets("Pilote1").Cells(Rmod.Row, 8).Value
Nomwbmodif = Rmodval & " " & N_client & ".xlsx"
 
    Set wbmodif = Workbooks("Nomwbmodif") ' ici j'ai une erreur
    Set Ws1 = wbs.Worksheets("Pilote1")
    Set Ws2 = wbmodif.Worksheets("Devis")
    Set Ws3 = ThisWorkbook.Worksheets("Devis")

Je ne comprends pas pourquoi il ne veut pas de

Code :

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

Set wbmodif = Workbooks("Nomwbmodif") ' ici j'ai une erreur

En pas à pas détaillé jusqu'à cette ligne tout est bon y compris le "Nomwbmodif" alors je ne vois pas... Si quelqu'un a une idée je suis preneur
merci d'avance.

[Didier Gonard]

bonjour,

si Nomwbmodif est une variable, pourquoi tu lui mets des guillemets

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[tompom3108]

bonjour Ormonth

merci pour ta réponse, j'ai essayé sans les guillemets cependant j'ai toujours le même message "indice n'appartient pas à la selection. Et Nomwbmodif a le bon nom de classeur.

cordialement,

[tompom3108]

salut,

Ok la valeur de Nomwbmodif est : "SDV-2012-127-9 ENT Dupont.xlsx"
dans l'exemple que j'ai pris. Quand je pointe la souris dessus.
Je ne sais pas si c'est cela que tu attends comme
réponse...

[Didier Gonard]

Oui, c'est ça

est-ce qu'un classeur qui porte exactement ce nom est bien ouvert dans la même session d'Excel au moment de l'exécution de ton code ?

PS : attention s'il a des macros son nom sera en xlsm donc string = faux....

cordialement,

Didier

[tompom3108]

oui, il est bien ouvert et c'est le bon nom.
Faut-il que je mette le ".xlsx" après les parenthèses?

cordialement

[Didier Gonard]

Faut-il que je mette le ".xlsx" après les parenthèses?

Non, le tout constitue un String qui est le nom du classeur, donc tu ne peut le séparer, mettre ou non l'extension est une autre question essayes un code test ainsi après avoir ouvert tout ce qu'il fallait manuellement voir ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
 
Dim wbModif As Workbook
Dim NomwbModif As String
 
NomwbModif = "SDV-2012-127-9 ENT Dupont.xlsx"
 
Set wbModif = Workbooks(Nomwbmodif)
   Debug.Print wbModif.Name
End Sub

cordialement,

Didier

[casefayere]

Bonjour,

si Nomwbmodif est : "SDV-2012-127-9 ENT Dupont.xlsx"
inutile d'ajouter quoique que ce soit

si Nomwbmodif est : "SDV-2012-127-9 ENT Dupont"
alors

Code :

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

Set wbmodif = Workbooks(Nomwbmodif & ".xlsx")

mais je me pose des questions, par rapport à :

xlsx est l'extension pour sauvegarder les classeurs Excel2007 sans macro.
xlsm est l'extension pour sauvegarder les classeurs Excel2007 avec macro.

mais là n'est peut-être pas le problème

[tompom3108]

Bonjour,

Casefayere, merci pour ta réponse.

Le classeur Nomwbmodif est un classeur sans macros et je suis sur Excel2010
(sans vouloir me vanter) pour ce qui est du .xlsx je m'en doutais mais vu que je coince je commence à écrire n'importe quoi...

[Didier Gonard]

re,

plus simple, pour vérifier le nom retourné, tu actives à la main le classeur cible et tu exécutes ce code dans ton classeur de macros :

Code :

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

1
2
3
4
5
6
Sub Test2()
Dim wbModif As Workbook
 
Set wbModif = ActiveWorkbook
Debug.Print wbModif.Name
End Sub

Ps : casefayere n'a pas tort, je l'ai rajouté d'ailleurs en PS précédemment, c'est tellement basique que je crois qu'on s'est tous fait avoir déjà à ce niveau et ça peut continuer vu qu'on cherche souvent en 1er une erreur complexe par rapport à son niveau justement...

cordialement,

Didier

[tompom3108]

Rebonjour Didier,

J'ai essayé le code test, même résultat avec les classeurs ouverts

Code :

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

Set wbModif = Workbooks("Nomwbmodif")

Nomwbmodif = <indice n'appartient pas à la selection>

[casefayere]

je ne comprends pas ou tu fait des coquilles car tu recommences avec les guillemets

Code :

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

Set wbModif = Workbooks("Nomwbmodif") ' non

Code :

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

Set wbModif = Workbooks(Nomwbmodif) 'oui

[mercatog]

Dans ce cas de figure soit permettre d'ouvrir le fichier par vba, soit de vérifier son existence.
Ensuite, il faudrait structurer son code pour pouvoir s'y retrouver facilement.

Exemple

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub Mofif()
Dim wbS As Workbook, wbModif As Workbook
Dim shS As Worksheet, shM As Worksheet, shD As Worksheet
Dim RModVal As String, N_Client As String, FichModif As String
Dim RMod As Range
 
Set wbS = Workbooks.Open("Z:\Gestion entreprise\VBA\Atest\CC2011T.xlsx")
Set shS = wbS.Worksheets("Pilote1")
shS.Activate
 
On Error Resume Next
Set RMod = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
On Error GoTo 0
 
If Not RMod Is Nothing Then
    RMod.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    RModVal = RMod(1, 1).Value
    N_Client = shS.Cells(RMod.Row, 8).Value
    FichModif = RModVal & " " & N_Client & ".xlsx"
 
    'Ici fonction qui permet de vérifier si FichModif est ouvert dans la même instance Excel
    If Existe(FichModif) Then
        Set wbModif = Workbooks(FichModif)
        Set shM = wbModif.Worksheets("Devis")
        Set shD = ThisWorkbook.Worksheets("Devis")
 
        'ICI TON CODE
 
 
        Set wbModif = Nothing
        Set shM = Nothing
        Set shD = Nothing
    End If
End If
Set RMod = Nothing
Set shS = Nothing
wbS.Close False
Set wbS = Nothing
End Sub
 
Private Function Existe(ByVal Fich As String) As Boolean
Dim Wb As Workbook
 
For Each Wb In Application.Workbooks
    If Wb.Name = Fich Then
        Existe = True
        Exit For
    End If
Next Wb
End Function