Copy sheet name value= #Ref

Version imprimable

23/11/2009, 10h36
seba_stien

Copy sheet name value= #Ref

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
23/11/2009, 11h23
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 :mouarf:

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:

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

23/11/2009, 11h54
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...)

Je la défini comme ca:

Code:

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

Ensuite j'appelle:

Code:

1
2
 
Call CopyTransSheet(oSrcTrans, oDstWkb)

23/11/2009, 12h54
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 ?
23/11/2009, 13h03
seba_stien
alors:
1.
Code:

1 2 For Each oFile In oFso.GetFolder(sPath).Files
2.
Ca me permet d'ouvrir le fichier afin d'y copier le contenu de la feuille
23/11/2009, 13h25
ucfoutu

ma 1ère question est restée sans réponse complète ... il me semble ...
Bon...
A défaut de participation simple et claire de ta part ===>> Je quitte... :chin: