Modification nom de fichier dans macro

titi55 · 5 Avril 2011

Bonjour,

Dans l'exrait de macro suivante, je voudrais que la macro ouvre indifféremment les onglets intitulés "Matrice Décompte2 S.C" ou "Décompte2 S.C" (c'est soit l'un soit l'autre), quelqu'un pourrait-il m'indiquer ce qu'il faut rajouter?

For Lig = 1 To Dlig
' Récupérer le nom du fichier
VFic = Sheets("Feuil1").Range("A" & Lig).Value
If Right(VFic, 4) <> ".xls" Then VFic = VFic & ".xls"
' Ouvrir le fichier en question
Workbooks.Open VPath & VFic
' Définir la feuille source
Set ShtS = ActiveWorkbook.Sheets("Matrice Décompte2 S.C")
' Récupérer la dernière ligne du tableau, colonne en fonction
DLigF = ShtS.Range("B" & Rows.Count).End(xlUp).Row
' Copier et coller le tableau
ShtS.Range("A1:J" & DLigF).Copy Destination:=ShtD.Range("A" & NextLig)
' Recalculer la prochaine ligne pour le tableau
NextLig = ShtD.Range("B" & Rows.Count).End(xlUp).Row + 2
' Efface la variable objet pour la feuille source
Set ShtS = Nothing
' Ferme le classeur actif en le sauvegardant
ActiveWorkbook.Close SaveChanges:=True
Next Lig

Merci.

Pierrot93 · 5 Avril 2011

Re : Modification nom de fichier dans macro

Bonsoir,

pas sûr d'avoir bien compris... peut être ainsi :

Code:

Set ShtS = ActiveWorkbook.Sheets("Matrice Décompte2 S.C")
ShtS.Activate

bonne soirée
@+

titi55 · 5 Avril 2011

Re : Modification nom de fichier dans macro

Bonjour Pierrot93,

En fait, dans les fichiers que j'ouvre, l'onglet sur lequel je veux récupérer des données se nomme quelquefois " "Matrice Décompte2 S.C" et d'autres fois "Décompte2 S.C".

Je souhaite que la macro fonctione dans les 2 cas.

Pierrot93 · 5 Avril 2011

Re : Modification nom de fichier dans macro

Re,

essaye ceci alors... :

Code:

Sub TestFeuilleExiste()
Dim f As String, ws As Worksheet
If Not FeuilleExiste("Matrice Décompte2 S.C") Is Nothing Then
    Set ws = Sheets("Matrice Décompte2 S.C")
Else
    If Not FeuilleExiste("Matrice Décompte2 S.C") Is Nothing Then _
    Set ws = Sheets("Décompte2 S.C") Else MsgBox "feuille non trouvée": Exit Sub
End If
End Sub
Function FeuilleExiste(f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = Worksheets(f)
End Function

Modification nom de fichier dans macro

titi55

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

titi55

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Modification nom de fichier dans macro

titi55

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

titi55

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency