Discussion :

[jpvba]

Bonjour a vous,


J'ai présentement des macros qui sont a même les documents de travail. Afin de faciliter la gestion et des mise a jour des modules, j'ai décidé de mettre toute mes macro dans le personal.xlsb qui s'ouvre a chaque fois que excel est déployé.


Je frappe maintenant un embuche. J'ai des documents (modeles) auquel de demande d'ouvrir un onglet d'un autre fichier copier cette onglet dans le modele et fermé celui-cié


Étant donné dans ma sub actuel, j'utilise thisworkbook, le code ne semble pas fonctionné (il tente de pointer vers le personal.xlsb, ce qui est logique). Si j'utilise activeworbook, la meme chose se produit.


ESt-ce qu'il y a un autre objet auquel je devras utilisé où Est-ce qui il y a un autre méthode qui serais moins compliqué d'Avoir mes codes a un seul endroit ???



Je vous mets le code en question

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
26
27
28
29
30
31
32
33
34
35
36
sub updatedata()
 
 
 
    Application.ScreenUpdating = False
 
'Si data exist comme onglet, on le détruit
 
    If sheetExists("data") Then
 
 
    Application.DisplayAlerts = False
    Sheets("data").Delete
    Application.DisplayAlerts = True
 
    End If
 
'Si le lexique est déjà ouvert le choisir et copier l'onglet data
 
    If IsFileOpen("le nom du fichier") Then
 
       Workbooks("lexique des abréviations.xlsm").Sheets("data").Copy After:=ThisWorkbook.Sheets(3)
       Sheets("Travail").Select
 
    Else
 
'Si le lexique n'Est pas ouvert, l'ouvrir, copier data et le fermer
 
    Workbooks.Open Filename:="lexique des abréviations.xlsm" 'qui est le fichier auquel contient l'onglet data que je veux copier
    Sheets("data").Copy After:=ThisWorkbook.Sheets(3)
    Sheets("Travail").Select
    Windows("lexique des abréviations.xlsm").Close
 
    End If
 
End Sub

merci pour vos suggestions et aides

[Jean-Philippe André]

Salut,

pour te faciliter la lecture, il est important que tu précise avant chaque Sheet dans quel workbook tu évolues.

[jpvba]

Bonjour monsieur André,


C'Est là mon embuche ie un modele ouvre un fichier ayant le meme nom que le modele + une séquence numérique (modele au format .xltm).


Donc comment faire alors pour pointer le bon document si j'ai plusieurs fichiers provenant du modèle d'ouvert ???

EN utilisant les activesheet ou workbook, on pointe le fichier ayant les macro et non celui auquel il lance la macro. Peut-être exist-il un autre objet ou une autre façon de faire qui serais moins compliquer ou engendrais mon de gestion ???

[Jean-Philippe André]

Je reformule donc

Utiliser des Sheets dans le vide, c'est contre productif
passe par une variable de type workbook pour commencer

Code :

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

Set Wbk = Workbooks.Open ("lexique des abréviations.xlsm")

et continue de travailler sur les bonnes occurrences de classeur

[jpvba]

J'ai fait plusieurs test environ 50différents et j'arrive toujours avec le meme constat

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub updatedata()
'
' updatedata Macro
' Mise a jour de l'onglet data
'
Const wbk_lexique = "\\emplacement du serveur\lexique des abréviations.xlsm"
Dim wbk_destination As String

    Application.ScreenUpdating = False

'Si data exist comme onglet, on le détruit

    Workbooks(wbk_destination).Select
    

    If sheetExists("data") Then

    
    Application.DisplayAlerts = False
    Sheets("data").Delete
    Application.DisplayAlerts = True

    End If

'Si le lexique est déjà ouvert le choisir et copier l'onglet data

    If IsFileOpen(wbk_lexique) Then
              
       Workbooks("lexique des abréviations.xlsm").Sheets("data").Copy After:=ThisWorkbook.Sheets(3)
       Sheets("Travail").Select

    Else
    
'Si le lexique n'Est pas ouvert, l'ouvrir, copier data et le fermer

    Workbooks.Open Filename:=wbk_lexique
    Sheets("data").Copy After:=Workbooks(wbk_destination).Sheets(3)
    Sheets("Travail").Select
    Windows(wbk_lexique).Close

    End If

End Sub

erreur d'imcopatibilité de type ... je ne peut définir la variable étant donné que le nom du fichier varie ...

[jpvba]

Si j'utilise le this worbooks, je stop a la ligne Sheets("data").Copy After:=ThisWorkbook.Sheets(3) comme a mon code de départ

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub updatedata()
'
' updatedata Macro
' Mise a jour de l'onglet data
'
Const wbk_lexique = "\\emplacement du serveur\lexique des abréviations.xlsm"


    Application.ScreenUpdating = False

'Si data exist comme onglet, on le détruit

    ThisWorkbook.Activate
    
    

    If sheetExists("data") Then

    
    Application.DisplayAlerts = False
    Sheets("data").Delete
    Application.DisplayAlerts = True

    End If

'Si le lexique est déjà ouvert le choisir et copier l'onglet data

    If IsFileOpen(wbk_lexique) Then
              
       Workbooks(wbk_lexique).Sheets("data").Copy After:=ThisWorkbook.Sheets(3)
       ThisWorkbook.Sheets("Travail").Select

    Else
    
'Si le lexique n'Est pas ouvert, l'ouvrir, copier data et le fermer

    Workbooks.Open Filename:=wbk_lexique
    Sheets("data").Copy After:=ThisWorkbook.Sheets(3)
    Sheets("Travail").Select
    Windows(wbk_lexique).Close

    End If

End Sub

Donc encore, le code pense toujours que personal.xlsb est mon thisworkbook et non le fichier auquel j'ai exécuté mon code