Discussion :

[NEC14]

Bonjour à tous,

Voici le code que je cherche à modifier, mais je galère. J'ai mis en rouge les lignes à modifier avec les explications adéquates.

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
Sub TestB()
Dim wbkSaisie As Workbook 'Ici doit faire appel à un répertoire (K:\Suivi_Engage)
Dim shtFich As Worksheet, shtFich2 As Worksheet 'Ici doit faire référence aux fichiers du répertoire
Dim LastLigF As Long
Dim NumLig As String, NumLig2 As String
Dim NewRec As Boolean, Exist As Boolean
Dim NewRech As Boolean, Existe As Boolean

Application.ScreenUpdating = False

Set wbkSaisie = ThisWorkbook 'Répertoire K:\Suivi_Engage
NumLig = Me.CmbNum1.Value
NumLig2 = Me.CmbNum2.Value
Set shtFich = ThisWorkbook.Sheets("L" & NumLig)'Doit correspondre à un fichier du répertoire (par exemple 343.xls)
Set shtFich2 = ThisWorkbook.Sheets("L" & NumLig2) 'idem
shtFich.Activate 'activer le fichier et ouvrir la feuille "Recap"
shtFich2.Activate 'idem
NewRec = False
NewRech = False

'Pour le reste des modifications, je pense pouvoir m'en sortir

        For Each WS In ThisWorkbook.Worksheets
            If WS.name = "L" & NumLig Then 'on cherche si la feuille existe
                Set shtFich = WS
                Exist = True
                Exit For
            End If
            Next WS
                If Not Exist Then
                    Set shtWS = ThisWorkbook.Sheets.Add(Type:=xlWorksheet) 'si elle n'existe pas on la créée
                    shtFich.name = "L" & NumLig
                    NewRec = True
                End If
                
        For Each WD In ThisWorkbook.Worksheets
            If WD.name = "L" & NumLig2 Then
                Set shtFich2 = WD
                Existe = True
                Exit For
            End If
            Next WD
                If Not Existe Then
                    Set shtWD = ThisWorkbook.Sheets.Add(Type:=xlWorksheet)
                    shtFich2.name = "L" & NumLig2
                    NewRech = True
                End If

Merci par avance pour votre aide

[NEC14]

Voilà j'ai fait cela mais ça ne fonctionne pas. Qu'ai-je oublié ?
Merci par avance pour votre aide

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
 
Sub TestB()
Dim Rep As String
Dim Wbk As Workbooks
Dim Wbka As Workbooks
Dim ShtFich As Worksheet, ShtFich2 As Worksheet
Dim LastLigF As Long
Dim NumLig As String, NumLig2 As String
 
    Application.ScreenUpdating = False
 
  'Ouvre les 2 fichiers recherchés  
    Set Wbk = Application.GetOpenFilename(ShtFich, "Excel files(*.xls)")
    Set Wbka = Application.GetOpenFilename(ShtFich2, "Excel files(*.xls)")
 
    NumLig = Me.CmbNum1.Value
    NumLig2 = Me.CmbNum2.Value
 
    Set ShtFich = Wbk(NumLig & ".xls")
    Set ShtFich2 = Wbka(NumLig2 & ".xls")
    With ShtFich
    .Sheet("Recap").Activate 'Ouvre la feuille "Recap" du 1er fichier
    End With
    With ShtFich2
    .Sheet("Recap").Activate 'Ouvre la feuille "Recap" du 2ème fichier
    End With

[patricktoulon]

Bonjour nec

tu n'utilise pas le bontype de variable

ShtFich n'est pas workbook mais le nom recuperé dans le dossier donc un string etc....

essaie de ne pas metre de type pour voir
Au plaisir

[NEC14]

Bonjour,

Voici le code modifié, mais cela ne fonctionne pas, un message d'erreur me dit : "Erreur de compilation - Objet requis" sur la ligne en gras.
Je ne m'en sors pas !! Merci par avance pour votre aide.

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
Sub TestB()
Dim Rep As String
Dim Wbk As Workbooks
Dim Wbka As Workbooks
Dim shtFich As String, ShtFich2 As String
Dim LastLigF As Long
Dim NumLig As String, NumLig2 As String

    Application.ScreenUpdating = False
    
    Set Wbk = Application.GetOpenFilename(shtFich, "Excel files(*.xls)") 'le fichier actif
    Set Wbka = Application.GetOpenFilename(ShtFich2, "Excel files(*.xls)") 'le fichier fermé dans 'K:\Saisi_Engage\*.xls
    
    NumLig = Me.CmbNum1.Value
    NumLig2 = Me.CmbNum2.Value
    
    Set shtFich = Wbk(NumLig & ".xls")
    Set ShtFich2 = Wbka(NumLig2 & ".xls")
    With shtFich
    .Sheet("Recap").Activate 'Ouvre la feuille "Recap"
    End With
    With ShtFich2
    .Sheet("Recap").Activate 'Ouvre la feuille "Recap"
    End With
'suite de la macro

[evx136]

Bonjour

essayez de déclarer la variable NumLig, en Integer

cordialement

[patricktoulon]

re
Bonjour

Code :

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

1
2
NumLig = Me.CmbNum1.Value
    NumLig2 = Me.CmbNum2.Value

c'est quoi numlig ? un chiffre un mot ou une chaine de caracteres
c'est quoi "me"un userform?????
si c'est le cas un wbk1.activate est necessaire apres l'ouverture du 2 eme fichier
car me peut representer un sheets,un userform en fait la fenetre active tu comprends??