Probleme maccro multi fichier

[Toshiro49]

Bonjour !

J'ai actuellement un soucis avec une maccro Excel que je voudrais faire pour simplifier la vie de mes collègues.

Actuellement, nous avons un fichier qui est généré tout les soirs, que nous reformatons à notre convenance.

Il passe ainsi de 15 colonnes à 3.

Une des formules nécessites d'aller chercher des données dans une feuille dont le nom change en fonction de la date.

AL140116 ... AL150116 Etc...

J'ai actuellement une formule de ce type, qui fonctionne mais nécessite de changer le nom de la feuille par le nom du fichier

=SI('AL130116'!B1>"";'AL130116'!C1;'AL130116'!B1)

Le but serait de pouvoir utiliser cette maccro sur tout ces fichiers générés, avec une variable en guise de nom de feuille ou alors en utilisant le numéro de cette première feuille qui se nomme en général Al00000.

Voici en quelques images le processus total :
Voici le fichier de base




Ensuite le fichier reformater en supprimant le trop :



Et ensuite, dans une autre feuille, on fusionne les colonnes A et B



Cordialement,

 

[gilbert_RGI]

Re : Probleme maccro multi fichier

Bonjour,

Il y a une méprise dans votre demande

=SI('AL130116'!B1>"";'AL130116'!C1;'AL130116'!B1)

ceci n'est pas une macro mais une formule ce qui n'est pas du tout la même chose

salutations et bienvenue sur XLD

 

[Toshiro49]

Re : Probleme maccro multi fichier

Oh, en fait elle fait partie d'une maccro excusez moi, j'ai juste un soucis sur cette fonction là donc je n'ai pas pensé à mettre le reste !

Sub Supression()
'
' Supression Macro
'

'
    Range("A:A,C:C,D:F,I:P").Select
    Range("I1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:A").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Columns("B:B").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "=IF('AL140116'!RC[1]>"""",'AL140116'!RC[2],'AL140116'!RC[1])"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A32")
    Range("A1:A32").Select
End Sub

 

[gilbert_RGI]

Re : Probleme maccro multi fichier

pour remplacer ceci

"=IF('AL140116'!RC[1]>"""",'AL140116'!RC[2],'AL140116'!RC[1])"

un truc dans le genre x étant le numero d'ordre de la feuille

mavariable = sheets(x).name

"=IF('" & mavariable &"'!RC[1]>"""",'" & mavariable &"'!RC[2],'" & mavariable &"'!RC[1])"

 

[Toshiro49]

Re : Probleme maccro multi fichier

C'est censé me donner ce genre de code ?

Sub Supression()
'
' Supression Macro
'

'
    Range("A:A,C:C,D:F,I:P").Select
    Range("I1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("A:A").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Columns("B:B").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    mavariable = Sheets(0).Name
    ActiveCell.FormulaR1C1 = _
        "=IF('" & mavariable & "'!RC[1]>"""",'" & mavariable & "'!RC[2],'" & mavariable & "'!RC[1])"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A32")
    Range("A1:A32").Select
End Sub

 

[gilbert_RGI]

Re : Probleme maccro multi fichier

sauf que 0 n'est pas bon

 

[Toshiro49]

Re : Probleme maccro multi fichier

Oui je viens de réussir à résoudre mon problème, tout fonctionne correctement maintenant, merci de votre aide !

 

[gilbert_RGI]

Re : Probleme maccro multi fichier

un petit click sur ce bouton ça serait sympa en bas d'un de mes fils