Discussion :

[AgnesK]

bonsoir,

dans un procédure d'un USF, j'ouvre un classeur x1.xls
par

Code :

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

1
2
workbooks.open "modele.xls" 
activeworkbook.save as  "x1.xls"

: pas de pb

je fais la même chose dans un autre USF avec un autre classeur
par la même procédure et...


le classeur s'ouvre dans une autre instance d'Excel !
impossible de continuer ma procédure

Code :

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

activeworkbook.save as  "x2.xls"

...


mais pourquoi donc une ouverture ds une autre instance???

Merci de vos lumières

[BenjGe]

peut être est ce dans le code même du 2ème usf????

peut on voir ce code?

[fring]

Bonjour,

évite les ActiveMachin

Code :

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

1
2
3
4
Dim Wbk As Workbook
 
Set Wbk = Workbooks.Open("modele.xls")
Wbk.SaveAs "x1.xls" 'ou x2.xls dans la seconde procédure

[AgnesK]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub  boutonUSF_Click      
 
'ouvre modele
        ChDos = Mid(ThisWorkbook.Path, 1, Len(ThisWorkbook.Path) - 20) & "MonRep\"
        ChFich = "x1.xls"
        'cree rep si inexistant
        Ch1 = ThisWorkbook.Path & "\Relance\" & "Rel du " & Format(Now, "dd-mm-yy") & "\"
        If Dir(Ch1, vbDirectory) = "" Then
            MkDir Ch1
        End If
 
 
        Set Wbk = Workbooks.Open(ChDos & ChFich)

Dès la ligne set wbk, le classeur est dejà ouvert dans une autre instance,peut importe le saveas!

Donc apparemment la solution proposée n'est pas efficace (bien que notée derrière l'oreille!)

[mercatog]

Ceci sert à quoi?

Code :

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

ChDos=Mid(ThisWorkbook.Path, 1, Len(ThisWorkbook.Path) - 20) & "MonRep\"

[AgnesK]

sert à récupérer le nom du répertoire en amont ds l'arbo

mais j'ai la même chose dans l'autre USF et il ne m'ouvre pas pour autant une 2° instance

casse tête!