macro charge fichier et macro continue éxécution

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et ce
dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter, (
important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC

Bonsoir à tous...................Bonsoir à anonymousA,

Oui, effectivement, j'ai une macro qui fonctionne très bien depuis un
certain temps, mais qui, aujourd'ui se révèle incomplète,

çà me paraît être la bonne solution, d'ailleur j'ai déjà procédé de cette
façon et je n'est pas constaté d'inconvénient,

Mais j'avoue mon coté non initié, et peut-être que je bricole, mais
bon.........çà à l'air de fonctionner,

Je te joints le code dans son état actuel, tu me diras si c'est
possible,........( Code travaillé et gentiment fourni par Jacky )

'---------------------------
Public mois
Sub Récap()
'
Workbooks("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x & Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row + 1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ht].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ttc].Value
'*************
Application.ScreenUpdating = False
Windows("Récap.xls").Activate
Sheets(mois).Activate
y = Int((Range("H" & derlg) / Range("E" & derlg) - 1) * 100)
If y = 19 Then
Range("F" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("G" & derlg) = ""
ElseIf y = 5 Then
Range("G" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("F" & derlg) = ""
Else
Range("G" & derlg) = ""
Range("F" & derlg) = ""
MsgBox "TVA de " & y & "% inconnue"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
End Sub
'--------------------------

Salutations!.................Merci d'avance............DC

"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43494b22$0$453$7a628cd7@news.club-internet.fr...

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et ce
dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter, (
important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC

j'ai bien vu la macro mais je ne comprends pas ce que tu veux faire avec
en fonction de ce que tu as posté initialement.
Un peu plus d'explications me serait utile.

A+

Bonsoir à tous...................Bonsoir à anonymousA,

Oui, effectivement, j'ai une macro qui fonctionne très bien depuis un
certain temps, mais qui, aujourd'ui se révèle incomplète,

çà me paraît être la bonne solution, d'ailleur j'ai déjà procédé de cette
façon et je n'est pas constaté d'inconvénient,

Mais j'avoue mon coté non initié, et peut-être que je bricole, mais
bon.........çà à l'air de fonctionner,

Je te joints le code dans son état actuel, tu me diras si c'est
possible,........( Code travaillé et gentiment fourni par Jacky )

'---------------------------
Public mois
Sub Récap()
'
Workbooks("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x & Chr(10)
& "Entrez le numéro de la feuille de destination", "Sélection", mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row + 1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ht].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ttc].Value
'*************
Application.ScreenUpdating = False
Windows("Récap.xls").Activate
Sheets(mois).Activate
y = Int((Range("H" & derlg) / Range("E" & derlg) - 1) * 100)
If y = 19 Then
Range("F" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("G" & derlg) = ""
ElseIf y = 5 Then
Range("G" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("F" & derlg) = ""
Else
Range("G" & derlg) = ""
Range("F" & derlg) = ""
MsgBox "TVA de " & y & "% inconnue"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
End Sub
'--------------------------

Salutations!.................Merci d'avance............DC

"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43494b22$0$453$7a628cd7@news.club-internet.fr...

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et ce
dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter, (
important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC

Bonjour à tous.............Bonjour anonymousA,

Voilà.!.......( à savoir que la macro existante se trouve dans le classeur "
Facture " )

Avec un classeur nommé ( " Code_9 " ) et qui comporte des macros et avec
lequel je fais des factures, sur un autre classeur nommé ( " Facture " ),

Je ne peux travailler qui si, je n'est que c'est 2 classeurs ouverts, un
troisième pertuberait le fonctionnement,

Aussi, j'ai un troisième classeur, qui récapitule les factures du mois et
qui s'appelle " Récap "

C'est celuis-là que je voudrais ouvrir temporairement, une fois la facture
terminée, pour éxécuter la macro éxistante, et avoir une pose en fin de
macro pour visualiser les écritures faites par la macro éxistante,

Ensuite par un OK, enregitrer et fermer ce troisième classeur, pour ne gardé
ouvert que les deux premier classeur et continuer mes factures,

Pour être clair :
1er) Code d'ouverture et éxécution du Code éxistant
2ème ) Code éxistant.....( qui lui à été posté initialement )
3ème) Code pour pose + enregitrer + fermer

J'espère avoir été claire dans mes explications...!!...mais bon...!

Salutations!......un grand Merci d'avance.........DC



"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
434a4eb7$0$17227$8fcfb975@news.wanadoo.fr...

j'ai bien vu la macro mais je ne comprends pas ce que tu veux faire avec
en fonction de ce que tu as posté initialement.
Un peu plus d'explications me serait utile.

A+

Bonsoir à tous...................Bonsoir à anonymousA,

Oui, effectivement, j'ai une macro qui fonctionne très bien depuis un
certain temps, mais qui, aujourd'ui se révèle incomplète,

çà me paraît être la bonne solution, d'ailleur j'ai déjà procédé de cette
façon et je n'est pas constaté d'inconvénient,

Mais j'avoue mon coté non initié, et peut-être que je bricole, mais
bon.........çà à l'air de fonctionner,

Je te joints le code dans son état actuel, tu me diras si c'est
possible,........( Code travaillé et gentiment fourni par Jacky )

'---------------------------
Public mois
Sub Récap()
'
Workbooks("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10) & "Entrez le numéro de la feuille de destination", "Sélection",
mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row +
1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ht].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ttc].Value
'*************
Application.ScreenUpdating = False
Windows("Récap.xls").Activate
Sheets(mois).Activate
y = Int((Range("H" & derlg) / Range("E" & derlg) - 1) * 100)
If y = 19 Then
Range("F" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("G" & derlg) = ""
ElseIf y = 5 Then
Range("G" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("F" & derlg) = ""
Else
Range("G" & derlg) = ""
Range("F" & derlg) = ""
MsgBox "TVA de " & y & "% inconnue"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
End Sub
'--------------------------

Salutations!.................Merci d'avance............DC

"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43494b22$0$453$7a628cd7@news.club-internet.fr...

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et ce
dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter,
( important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC

Bon, je vais simplement indiquer dans le principe comment je ferais
sachant que ta demande est quand même assez difficilement réalisable
telle quelle.

En 1er lieu, je ne suis pas sur de comprendre pourquoi il ne peut y
avoir un 3eme classeur ouvert lors du travail sur les 2 premiers car à
priori je ne vois aucune impossibilité sauf si le code des macros des 2
premeiers classeurs travaillent avec des indices de collection des
workbooks , ce qui est d'ailleurs par nature une mauvaise pratique.

une fois ceci posé, ce qu'il serait possible de faire, c'est dans le
3eme classeur déclencher un UF non modal pour permettre de visualiser
les résulats des 2 premières macros puis d'interdire la fermeture des 2
premiers classeurs ( alors là , faut sortir l'artillerie lourde) tant
que le 3eme classeur n'est pas fermé ce qui vaudrait validation des 2
premiers, ce 3eme classeur ne pouvant être fermé que par activation d'un
bouton sur le UF qui a été déclenché lors de son ouverture.

Je ne sais pas si je suis clair étant entendu que je ne vois pas
forcément non plus très clair dans ta demande.

A+

Bonjour à tous.............Bonjour anonymousA,

Voilà.!.......( à savoir que la macro existante se trouve dans le classeur "
Facture " )

Avec un classeur nommé ( " Code_9 " ) et qui comporte des macros et avec
lequel je fais des factures, sur un autre classeur nommé ( " Facture " ),

Je ne peux travailler qui si, je n'est que c'est 2 classeurs ouverts, un
troisième pertuberait le fonctionnement,

Aussi, j'ai un troisième classeur, qui récapitule les factures du mois et
qui s'appelle " Récap "

C'est celuis-là que je voudrais ouvrir temporairement, une fois la facture
terminée, pour éxécuter la macro éxistante, et avoir une pose en fin de
macro pour visualiser les écritures faites par la macro éxistante,

Ensuite par un OK, enregitrer et fermer ce troisième classeur, pour ne gardé
ouvert que les deux premier classeur et continuer mes factures,

Pour être clair :
1er) Code d'ouverture et éxécution du Code éxistant
2ème ) Code éxistant.....( qui lui à été posté initialement )
3ème) Code pour pose + enregitrer + fermer

J'espère avoir été claire dans mes explications...!!...mais bon...!

Salutations!......un grand Merci d'avance.........DC



"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
434a4eb7$0$17227$8fcfb975@news.wanadoo.fr...

j'ai bien vu la macro mais je ne comprends pas ce que tu veux faire avec
en fonction de ce que tu as posté initialement.
Un peu plus d'explications me serait utile.

A+

Bonsoir à tous...................Bonsoir à anonymousA,

Oui, effectivement, j'ai une macro qui fonctionne très bien depuis un
certain temps, mais qui, aujourd'ui se révèle incomplète,

çà me paraît être la bonne solution, d'ailleur j'ai déjà procédé de cette
façon et je n'est pas constaté d'inconvénient,

Mais j'avoue mon coté non initié, et peut-être que je bricole, mais
bon.........çà à l'air de fonctionner,

Je te joints le code dans son état actuel, tu me diras si c'est
possible,........( Code travaillé et gentiment fourni par Jacky )

'---------------------------
Public mois
Sub Récap()
'
Workbooks("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10) & "Entrez le numéro de la feuille de destination", "Sélection",
mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row +
1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ht].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ttc].Value
'*************
Application.ScreenUpdating = False
Windows("Récap.xls").Activate
Sheets(mois).Activate
y = Int((Range("H" & derlg) / Range("E" & derlg) - 1) * 100)
If y = 19 Then
Range("F" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("G" & derlg) = ""
ElseIf y = 5 Then
Range("G" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("F" & derlg) = ""
Else
Range("G" & derlg) = ""
Range("F" & derlg) = ""
MsgBox "TVA de " & y & "% inconnue"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
End Sub
'--------------------------

Salutations!.................Merci d'avance............DC

"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43494b22$0$453$7a628cd7@news.club-internet.fr...

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et ce
dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter,
( important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC

Bonjour à tous..................Bonjour anonymousA

Merci de ta générosité anonymousA, Mais c'est beaucoup trop compliqué pour
moi, aussi je vais allé au plus simple et voir petit à petit, vers quoi les
choses sont possibles pour moi.............

Salutations!..........encore MERCI...!!...........DC


"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
434acb4c$0$5384$8fcfb975@news.wanadoo.fr...

Bon, je vais simplement indiquer dans le principe comment je ferais
sachant que ta demande est quand même assez difficilement réalisable telle
quelle.

En 1er lieu, je ne suis pas sur de comprendre pourquoi il ne peut y avoir
un 3eme classeur ouvert lors du travail sur les 2 premiers car à priori je
ne vois aucune impossibilité sauf si le code des macros des 2 premeiers
classeurs travaillent avec des indices de collection des workbooks , ce
qui est d'ailleurs par nature une mauvaise pratique.

une fois ceci posé, ce qu'il serait possible de faire, c'est dans le 3eme
classeur déclencher un UF non modal pour permettre de visualiser les
résulats des 2 premières macros puis d'interdire la fermeture des 2
premiers classeurs ( alors là , faut sortir l'artillerie lourde) tant que
le 3eme classeur n'est pas fermé ce qui vaudrait validation des 2
premiers, ce 3eme classeur ne pouvant être fermé que par activation d'un
bouton sur le UF qui a été déclenché lors de son ouverture.

Je ne sais pas si je suis clair étant entendu que je ne vois pas forcément
non plus très clair dans ta demande.

A+

Bonjour à tous.............Bonjour anonymousA,

Voilà.!.......( à savoir que la macro existante se trouve dans le
classeur " Facture " )

Avec un classeur nommé ( " Code_9 " ) et qui comporte des macros et avec
lequel je fais des factures, sur un autre classeur nommé ( " Facture " ),

Je ne peux travailler qui si, je n'est que c'est 2 classeurs ouverts, un
troisième pertuberait le fonctionnement,

Aussi, j'ai un troisième classeur, qui récapitule les factures du mois et
qui s'appelle " Récap "

C'est celuis-là que je voudrais ouvrir temporairement, une fois la
facture terminée, pour éxécuter la macro éxistante, et avoir une pose en
fin de macro pour visualiser les écritures faites par la macro éxistante,

Ensuite par un OK, enregitrer et fermer ce troisième classeur, pour ne
gardé ouvert que les deux premier classeur et continuer mes factures,

Pour être clair :
1er) Code d'ouverture et éxécution du Code éxistant
2ème ) Code éxistant.....( qui lui à été posté initialement )
3ème) Code pour pose + enregitrer + fermer

J'espère avoir été claire dans mes explications...!!...mais bon...!

Salutations!......un grand Merci d'avance.........DC



"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
434a4eb7$0$17227$8fcfb975@news.wanadoo.fr...

j'ai bien vu la macro mais je ne comprends pas ce que tu veux faire avec
en fonction de ce que tu as posté initialement.
Un peu plus d'explications me serait utile.

A+

Bonsoir à tous...................Bonsoir à anonymousA,

Oui, effectivement, j'ai une macro qui fonctionne très bien depuis un
certain temps, mais qui, aujourd'ui se révèle incomplète,

çà me paraît être la bonne solution, d'ailleur j'ai déjà procédé de
cette façon et je n'est pas constaté d'inconvénient,

Mais j'avoue mon coté non initié, et peut-être que je bricole, mais
bon.........çà à l'air de fonctionner,

Je te joints le code dans son état actuel, tu me diras si c'est
possible,........( Code travaillé et gentiment fourni par Jacky )

'---------------------------
Public mois
Sub Récap()
'
Workbooks("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
For i = 1 To Workbooks("Récap.xls").Sheets.Count
x = x & i & "...." & Workbooks("Récap.xls").Sheets(i).Name & Chr(10)
Next
mois = Val(InputBox("Feuilles disponibles" & Chr(10) & Chr(10) & x &
Chr(10) & "Entrez le numéro de la feuille de destination", "Sélection",
mois))
If mois < 1 Or mois > i - 1 Then Exit Sub
derlg = Workbooks("Récap.xls").Sheets(mois).Range("A65536").End(3).Row +
1
Workbooks("Récap.xls").Sheets(mois).Range("a" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Numéro].Value
Workbooks("Récap.xls").Sheets(mois).Range("c" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Sit.].Value
Workbooks("Récap.xls").Sheets(mois).Range("d" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[Nom].Value
Workbooks("Récap.xls").Sheets(mois).Range("E" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ht].Value
Workbooks("Récap.xls").Sheets(mois).Range("h" & derlg) = _
Workbooks("facture.xls").Sheets("Feuil3").[ttc].Value
'*************
Application.ScreenUpdating = False
Windows("Récap.xls").Activate
Sheets(mois).Activate
y = Int((Range("H" & derlg) / Range("E" & derlg) - 1) * 100)
If y = 19 Then
Range("F" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("G" & derlg) = ""
ElseIf y = 5 Then
Range("G" & derlg) = Range("H" & derlg) - Range("E" & derlg)
Range("F" & derlg) = ""
Else
Range("G" & derlg) = ""
Range("F" & derlg) = ""
MsgBox "TVA de " & y & "% inconnue"
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
End Sub
'--------------------------

Salutations!.................Merci d'avance............DC

"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43494b22$0$453$7a628cd7@news.club-internet.fr...

bonjour,

Ai-je bien compris que tu veux rajouter du code à du code existant et
ce dynamiquement ?

A+

Bonsoir à tous,

je voudrais pouvoir en début de macro, ajouter un code pour charger un
fichier "recap" et que la macro en question continue à s'éxécuter, (
important, car pas facile )

Ensuite, en fin de macro, ajouter un autre code, pour avoir avant
l'enregistrement et la fermeture automatique du fichier "recap"

Une pause, pour vérifier les écritures visuellement,... puis OK....

Est-ce possible...??

Salutations!...........Merci d'avance.............DC