B
br44
Guest
Bonjour le forum
j'ai un sousis pour executer la dernière macro de la procédure suivante :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook
ActiveWorkbook.Save
With Wb2 '.Activate
.Sheets('Détail').Range('A1:G29').Copy
End With
Sheets(Mois).Range('A65536').End(xlUp).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range('A1').Select
With Wb2 '.Activate
Run 'MacForDét'
End With
With Wb2 '.Activate
.Sheets('Facture').Range('A1:G50').Copy
End With
Sheets(mois).Range('A65536').End (XlUp).Offset(1,0).PastSpecial Paste:=XlValues,Operation:=XlNone,SkipBlanks:=False,Transpose:=False
Range('A65536').End(XlUp).Offset(1,0).Select
With Wb2'.Activate
Run'MacForFact'
End With
End Sub
Oui la macro 'MacForFact ne s'execute pas à l'endrois où je le souhaiterais .Elle se déclanche par dessus la première ,Hors je la voudrais en-dessous puisqu'il s'agit de la macro format de la feuille facture .
Quand je fais la procédure pour chacun des bloc individuellement cela marche ,mais pas pour les deux .
Es-que Quelqu'un aurais une solution pour m'aider à résoudre se petit problème .Je vous en remercie par avance .
BR44
piste : j'ai pense à une procédure du type 'STEP' comme piste mais je ne la connais pas du tout . BR44
j'ai un sousis pour executer la dernière macro de la procédure suivante :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String
Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook
ActiveWorkbook.Save
With Wb2 '.Activate
.Sheets('Détail').Range('A1:G29').Copy
End With
Sheets(Mois).Range('A65536').End(xlUp).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range('A1').Select
With Wb2 '.Activate
Run 'MacForDét'
End With
With Wb2 '.Activate
.Sheets('Facture').Range('A1:G50').Copy
End With
Sheets(mois).Range('A65536').End (XlUp).Offset(1,0).PastSpecial Paste:=XlValues,Operation:=XlNone,SkipBlanks:=False,Transpose:=False
Range('A65536').End(XlUp).Offset(1,0).Select
With Wb2'.Activate
Run'MacForFact'
End With
End Sub
Oui la macro 'MacForFact ne s'execute pas à l'endrois où je le souhaiterais .Elle se déclanche par dessus la première ,Hors je la voudrais en-dessous puisqu'il s'agit de la macro format de la feuille facture .
Quand je fais la procédure pour chacun des bloc individuellement cela marche ,mais pas pour les deux .
Es-que Quelqu'un aurais une solution pour m'aider à résoudre se petit problème .Je vous en remercie par avance .
BR44
piste : j'ai pense à une procédure du type 'STEP' comme piste mais je ne la connais pas du tout . BR44