Discussion :

[socrate_54]

Bonjour,
j'ai changé le nom interne de Feuil1 en OBST pour tomber sur la bonne feuille même si l'utilisateur change de nom l'onglet. Quand le VB et l'onglet a traiter sont dans le même fichier cela fonctionne. Lorsque l'onglet est dans un fichier ouvert par le programme cela donne l'erreur "objet requis" sur la ligne OBST.Range("C3:C3") = c_682

Code :

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

1
2
3
4
5
6
7
 
    Réponse = Application.Dialogs(xlDialogOpen).Show
    If Réponse = True Then
        Fichier_2 = ActiveWorkbook.Name
        Windows(Fichier_2).Activate
.....
OBST.Range("C3:C3") = c_682

Pouvez vous m'aider?
Cordialement.

[Abed_H]

Bonjour
pas sur d'avoir tous compris mais remplace

Code :

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

ActiveWorkbook.Name

par le nom de ton fichier portant la feuille ODBT

[socrate_54]

OBST est le CodeName de la feuille et Fichier_2 est le nom du fichier dans lequel j'ai la feuille OBST

[Daranc]

Pas sûr non plus d'avoir compris le but de la manœuvre
si tu veux pointer la premier feuille du classeur2

Code :

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

1
2
3
4
5
Sub test3()
With Workbooks("Classeur.xls").Sheets(1)
.Range("b43").Value = "test reussi"
End With
End Sub

[casefayere]

Bonjour à tou(te)s,

et ce bout de code

Code :

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

OBST.Range("C3:C3") = c_682

c_682 est-ce une variable ?, si oui déclarée ou ? et comment ?

de plus, ne peux-tu pas remplacer

Code :

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

OBST.Range("C3:C3")

par

Code :

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

OBST.Range("C3")

A voir....

Bonne journée

[zenpbb]

Bonjour,

Il semble effectivement que ta feuille OBST ne soit accessible directement via son "CodeName" que si elle se trouve dans le classeur hébergeant ta macro. Une solution est donc d'identifier ta feuille OBST à partir de la valeur de sa propriété CodeName, en balayant les feuilles du classeur ouvert par l'utilisateur.

Voici ce que ça peut donner, en créant par exemple d'abord une fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Récupère une feuille dans un classeur à partir de son "CodeName"
Function GetFeuille(Classeur As Workbook, strFeuilCodeName As String, maFeuille As Worksheet) As Boolean
    Dim Feuil As Worksheet
    Set maFeuille = Nothing
    For Each Feuil In Classeur.Worksheets
        If LCase(Feuil.CodeName) = LCase(strFeuilCodeName) Then
            GetFeuille = True
            Set maFeuille = Feuil
            Exit For
        End If
    Next
End Function

que tu peux utiliser ensuite dans ton code de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim feuilOBST As Worksheet
Réponse = Application.Dialogs(xlDialogOpen).Show
If Réponse = True Then
    If GetFeuille(ActiveWorkbook, "OBST", feuilOBST) Then
        '.....
        feuilOBST.Range("C3").Value = c_682
    Else
        'Feuille OBST non trouvée dans le classeur
    End If
End If