Discussion :

[seba_stien]

Bonjour,

J'ai plusieurs fichiers qui ont une même feuille. Donc je me suis fait un fichier à part avec la feuille qui se retrouve sur tous mes fichiers. Sur ce fichier je fais mes modifications et ensuite j'ai mis un bouton qui m'ouvre tous mes autres fichiers supprime la feuille et copie la nouvelle version.

Sur office 2003 ca marchait parfaitement. Malheureusement j'ai office 2007 maintenant.

Tous les "ranges" que j'ai nommés ont comme référence mon fichier source.

Ce qui est pas pratique en cas de déplacement de ce fichier source....

Est-ce qu'il y a une méthode pour que les "ranges" suivent correctement?

Merci d'avance

Séb

[Jean-Philippe André]

Bonjour,

pourrais-tu nous montrer un peu de quoi a l'air ton code, parce qu'à froid, on risque de ne pas être en mesure de t'aider à avancer...

- un titre en anglais, chouette...
- du code VBA est utilisé ou bien est-ce par des formules dans tes cellules que tu travailles ?

Plus tu nous en dis maintenant, moins on aura à poser de questions pour comprendre par la suite

[seba_stien]

Désolé pour le manque d'informations... Voici la partie de copie.

Si les variables ne sont pas clair je peux vous les expliquer.

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
 
Private Function CopyTransSheet(ByRef oSrcTrans As Worksheet, ByRef oDstWkb As Workbook)
    Const csProcName As String = "CopyTransSheet"
 
    Dim lLastCol As Long
    Dim lLastRow As Long
    Dim oSrcRng As Range
    Dim oSheet As Worksheet
 
    'The macro doesn't work on the file "Translations.xls".
    If oDstWkb.Name = "Translations.xls" Then
        Exit Function
    End If
 
    Set oSheet = oSrcTrans
 
 
    ' Get the translations range
    lLastCol = oSrcTrans.Cells.SpecialCells(xlCellTypeLastCell).Column
    lLastRow = oSrcTrans.Cells.SpecialCells(xlCellTypeLastCell).Row
 
    Set oSrcRng = oSrcTrans.Range(oSrcTrans.Cells(1, 1), oSrcTrans.Cells(lLastRow, lLastCol))
 
 
    ' Copy it and overwrite the destination sheet
    Call oSrcRng.Copy(oDstWkb.Sheets(TRANSLATIONS_SHEET).Cells(1, 1))

merci pour votre aide

[ucfoutu]

Bonjour,

Comment et où as-tu défini le paramètre oDstWkb passé à ta "fonction" (je mets ce mot entre guillemets car ce n'en est pas une, mais, finalement, une simple procédure ( une sub, quoi...)

[seba_stien]

Je la défini comme ca:

Code :

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

1
2
3
 
Set oDstWkb = Workbooks.Open(sPath & "\" & oFile.Name)
Set oSrcTrans = ThisWorkbook.Worksheets(TRANSLATIONS_SHEET)

Ensuite j'appelle:

Code :

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

1
2
 
Call CopyTransSheet(oSrcTrans, oDstWkb)

[ucfoutu]

Euh...
tu la vois venir, la question ?
Bon...
1) et où est comment sont définies les variables sPath et oFile.Name ?
2) pourquoi utiliser ici Workbooks.Open ?