Navigation entre 2 classeurs ne fonctionne pas.

C

Compte Supprimé 979

Guest

• 25 Février 2011

• #2

Re : Navigation entre 2 classeurs ne fonctionne pas.

Salut ledaf

1) Un fichier ".gaz" n'est pas un fichier Excel
2) pour naviguer entre différends classeurs mieux vaut utiliser : Workbooks("NomFichier").Activate
3) Pourquoi naviguer ?

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 25 Février 2011

• #3

Re : Navigation entre 2 classeurs ne fonctionne pas.

RE,

Ton fichier se nomme "s1a2010.gaz"
il ne correspond pas avec Windows("s0a2010.gaz").Activate

A+

 

Dernière modification par un modérateur: 25 Février 2011

Vote positif 0 Vote négatif

L

ledaf

Guest

• 25 Février 2011

• #4

Re : Navigation entre 2 classeurs ne fonctionne pas.

N'y a t-il pas une parade à cela?
Etant donné que j'arrive tout de même à l'ouvrir via VBA en utilisant le code suivant:

Code:

For i = 0 To 52
NomFichier = "s" & i & "a2010.gaz"
Application.Workbooks.Open "C:\Documents and Settings\...\2010\" & NomFichier

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 25 Février 2011

• #5

Re : Navigation entre 2 classeurs ne fonctionne pas.

Re,

Code:

Function ActiverClasseur(strNom As String) As Boolean
    Dim wk As Workbook
    For Each wk In Workbooks
        If wk.Name = strNom Then
            ActiverClasseur = True
            wk.Activate
            Exit For
        End If
    Next
End Function

Utilisation

Code:

Sub Macro()
 If ActiverClasseur("s0a2010.gaz") then
    'La Macro travaille sur le classeur
 Else
   MsgBox "Classeur non ouvert"
End if
End Sub

A+
[Edit] Hello Bruno🙂

 

Dernière modification par un modérateur: 25 Février 2011

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 25 Février 2011

• #6

Re : Navigation entre 2 classeurs ne fonctionne pas.

Re,

Essaye avec

Code:

Workbooks(NomFichier).Activate

Nota : sans guillemet

A+

 

Vote positif 0 Vote négatif

L

ledaf

Guest

• 25 Février 2011

• #7

Re : Navigation entre 2 classeurs ne fonctionne pas.

Super ça fonctionne!
Merci à tous.

 

Vote positif 0 Vote négatif