Discussion :

[max60fr]

Bonjour ,

Dans un module , je cherche à ouvrir un fichier pour récupérer des données...

En pas à pas, au moment de l'activation de "Workbooks.Open(CheminSource).Activate" , l'écran fait un 'rafraîchissement' comme si le fichier attendu s'ouvrait , puis se refermait , puis juste derrière le vba s’arrête ! (sans message ...)

Je ne parviens pas à trouver la cause de mon problème ...

Une idée ?
Merci par avance.

Max60.

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
Sub ImportMensPrevues()
' - 30 -
 
 
        ' - 30.0 - Init
        CheminSource = "\\NOUS-PC\Asus-Papa-Partages\Previsions.Mensuelles.xlsx"
 
 
 
        ' - 30.1 - Info fichier changé de place , sortie Sub
        If Dir(CheminSource) = "" Then
            MsgBox "Fichier " & CheminSource & "  :  Introuvable..." & Chr$(10) & Space(30) & "Sommes Fixes Prélevées introuvbles" _
            & Chr$(10) & Chr$(10) & Space(28) & "SORTIE  DE  PROGRAMME  EN  COURS."
            Exit Sub
        End If
 
 
 
        ' - 30.2 - Récolte des valeurs
        Workbooks.Open(CheminSource).Activate
 
        With ActiveWorkbook
            Tel_Intern = .Sheets("CalculsRéserves").Range("k3").Value
            Tel_PortKell = .Sheets("CalculsRéserves").Range("k4").Value

[Thumb down]

Bonjour,

Code :

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

1
2
3
4
5
 
With Workbooks.Open(CheminSource)
       With .Sheets("CalculsRéserves")
            Tel_Intern = .Range("k3").Value
            Tel_PortKell = .Range("k4").Value

[max60fr]

Merci pour votre rapide réponse.

Après modif et essais : même résultat ...

[Philippe Tulliez]

Bonjour,
Le problème provient d'ailleurs car à partir du moment où l'on ouvre un classeur, il est d'office Actif, la simple instruction Workbooks.Open CheminComplet suffit. Il n'est pas utile d'ajouter Activate

C'est curieux qu'il n'y ait pas de message d'erreur
Placez un point d'arrêt après l'instruction Workbooks.Open pour voir si le classeur est bien ouvert.

[max60fr]

Je viens d'avancer "d'un petit cran"...

En positionnant un arrêt (F9) juste après l'ordre d'ouvrir le fichier , celui-ci s'ouvre bien...
Il est possible après de continuer le Prg...

Par contre , je ne parviens pas à attendre que le fichier soit complètement ouvert , avant d'autoriser la poursuite....
(Tempo par boucle For/Next ; traiter l'erreur d'ouverture du fichier en essayant de l'activer , rien ne fonctionne ....)

Quel est ce soucis ?

[Thumb down]

Essai comme ça pas besoin d'activate.

Code :

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

1
2
3
 
With Workbooks.Open(CheminSource)
DoEvents

[max60fr]

..Toujours NOK ..

[max60fr]

.. Réussi avec :

Code :

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

1
2
Application.Wait Now + TimeValue("0:00:01")
        DoEvents

Merci d'avoir participé !

Cdlt.
Max.