Discussion :

[infosophie]

Bonjour,

Je souhaite utiliser ThisWorkbook pour mettre à jour une cellule, mais j'obtiens le message "Le composant ActiveX ne peut pas créer l'objet."

Je pense avoir tout essayer... je suis à court d'idée.

L'idée est de récupérer des valeurs de cellules d'un classeur et les mettre dans des cellules d'un autre classeur.

Voici l'extrait du code :

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
 
Dim SrcLineCounter As Integer
Dim SourceFile As String, SourceSheetName As String
Dim WbSrc as Workbook
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file was selected! Exiting!"
        Exit Sub
    End If
    SourceFile = .SelectedItems(1)
    SourceSheetName = "EXPORT"
End With
 
ThisWorkbook.Sheets("DATA").Range("B" + Ltrim(Str(SrcLineCounter))).Value = _
               WbSrc.Sheets(SourceSheetName).Range("BC" + Ltrim(Str(SrcLineCounter))).Value
...

Cordialement,
Saladin.

[unparia]

Bonjour
J'ai beau ouvrir mes yeux tous grands, je ne vois nulle part comment a été initialisée la variable WbSrc ...
Tu peux me dire où, toi qui l'utilises ?

[joe.levrai]

Bonjour,

et idéalement, entre autres choses qui pour le moment ne sont pas aussi vitales :

1) La procédure complète, et toute variable déclarée en dehors de la procédure et utilisée à l'intérieur
2) La ligne qui déclenche l'erreur
3) Où est la ligne qui affecte à SrcLineCounter une valeur
4) Pourquoi concaténer deux chaines par un "+", d'autant plus que SrcLineCounter non affecté donnera Range("B0")

[infosophie]

En effet, j'ai un peu oublié du code. C'est un peu compliqué (surf en sandbox) du coup je ne peux pas faire de "copier-coller"...
La ligne en cause est celle du ThisWorkbook.

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
 
Dim SrcLineCounter As Integer
Dim SourceFile As String, SourceSheetName As String
Dim WbSrc as Workbook
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file was selected! Exiting!"
        Exit Sub
    End If
    SourceFile = .SelectedItems(1)
    SourceSheetName = "EXPORT"
End With
Set WbSrc = Workbooks.Open(SourceFile, , True)
TrgLineCounter = 2
SrcLineCounter = 2
 
 Do While Not IsEmpty(WbSrc.Sheets(SourceSheetName).Range("BP" + LTrim(Str(SrcLineCounter))).Value)
 
    ThisWorkbook.Sheets("DATA").Range("B" + Ltrim(Str(SrcLineCounter))).Value = _
               WbSrc.Sheets(SourceSheetName).Range("BC" + Ltrim(Str(SrcLineCounter))).Value
    ... affectation d'autres lignes
    TrgLineCounter = TrgLineCounter + 1
    SrcLineCounter = SrcLineCounter + 1
Loop

[unparia]

Quelques remarques, déjà :

Concatène avec l'opérateur & et non + -->>
Tes Ltrim(Str(...)) ne serviront alors plus à rien

Pourquoi cette boucle While ? -->>
1)

Code :

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

range("S" & rows.count).end(xlup).row

retourne le rang de la dernière cellule remplie de la colonne S, par exemple
2) la méthode Range.copy permet de copier directement toute une plage (un objet range) déterminée d'un objet Worksheet vers (son paramètre destination) une feuille déterminée d'un objet worksheet déterminé.

Il n'est pas adroit de typer en integer des variables de lignes dont le nombre peut dépasser la limite d'un integer Utilise le type long.

[infosophie]

Bonjour unparia,

Merci pour tes remarques.

Néanmoins, cela ne résout pas mon problème, malheureusement.

C'est comme si ThisWorkbook n'était pas reconnu... Je ne comprends pas !