Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ouvrir un classeur avec VBA

ouvrir un classeur avec VBA

4 réponses
Avatar
DC
Bonjour à tous, ( Excel 2000 XP )

L'orsque j'ouvre un classeur en début d'éxécution de macro,

Et bien la macro s'arrête d'elle même,

Aussi, j'aimerais qu'elle continue son éxécution,

Je suppose, qu'il doit y avoir une astuce,

Quequ'un peut-il m'aider à résoudre ce problème...??..........

Salutations!.........Merci d'avance..............DC
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
434b6f33$0$7822$
Bonjour à tous, ( Excel 2000 XP )

L'orsque j'ouvre un classeur en début d'éxécution de macro,

Et bien la macro s'arrête d'elle même,

Aussi, j'aimerais qu'elle continue son éxécution,

Je suppose, qu'il doit y avoir une astuce,

Quequ'un peut-il m'aider à résoudre ce problème...??..........

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





Avatar
DC
Bonjour à tous...........................Bonjour Daniel,

Merci d'avoir répondu..............Voici le code..............

Public mois
Sub Récap()

Workbooks.Open Filename:= _
"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurRécap.xls"

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
'Windows("facture.xls").Activate
Application.ScreenUpdating = True
End Sub
'--------------------------

Le code par lui-même fonctionne très bien, mais c'est le rajout au début,
d'ouverture du classeur " Récap " qui ouvre bien le classeur en question,
mais la macro s'arrète là,..... alors que j'aimerais qu'elle continue,

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


"Daniel" a écrit dans le message de news:
emB7$
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
434b6f33$0$7822$
Bonjour à tous, ( Excel 2000 XP )

L'orsque j'ouvre un classeur en début d'éxécution de macro,

Et bien la macro s'arrête d'elle même,

Aussi, j'aimerais qu'elle continue son éxécution,

Je suppose, qu'il doit y avoir une astuce,

Quequ'un peut-il m'aider à résoudre ce problème...??..........

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









Avatar
Daniel
Je n'ai pas de problème, par contre, VBA signale une erreur sur l'underscore
qui suit ":=" sans être précédé d'un espace.
Daniel
"DC" a écrit dans le message de news:
434b8ef8$0$17212$
Bonjour à tous...........................Bonjour Daniel,

Merci d'avoir répondu..............Voici le code..............

Public mois
Sub Récap()

Workbooks.Open Filename:= _
"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurRécap.xls"

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
'Windows("facture.xls").Activate
Application.ScreenUpdating = True
End Sub
'--------------------------

Le code par lui-même fonctionne très bien, mais c'est le rajout au début,
d'ouverture du classeur " Récap " qui ouvre bien le classeur en question,
mais la macro s'arrète là,..... alors que j'aimerais qu'elle continue,

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


"Daniel" a écrit dans le message de news:
emB7$
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
434b6f33$0$7822$
Bonjour à tous, ( Excel 2000 XP )

L'orsque j'ouvre un classeur en début d'éxécution de macro,

Et bien la macro s'arrête d'elle même,

Aussi, j'aimerais qu'elle continue son éxécution,

Je suppose, qu'il doit y avoir une astuce,

Quequ'un peut-il m'aider à résoudre ce problème...??..........

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













Avatar
DC
Bonsoir à tous........................Bonsoir Daniel,

Moi mon problème, c'est que je ne trouve pas de code pour réactiver la
macro, après l'ouverture automatique du classeur " Récap "

Enfin, je vais voir ce que je peux faire.........Merci...!!

Salutations!.............encore Merci...!!................DC
"Daniel" a écrit dans le message de news:
%
Je n'ai pas de problème, par contre, VBA signale une erreur sur
l'underscore qui suit ":=" sans être précédé d'un espace.
Daniel
"DC" a écrit dans le message de news:
434b8ef8$0$17212$
Bonjour à tous...........................Bonjour Daniel,

Merci d'avoir répondu..............Voici le code..............

Public mois
Sub Récap()

Workbooks.Open Filename:= _
"C:Documents and SettingsDanielMes documentsDaniel tous
ensemblesDaniel TableurRécap.xls"

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
'Windows("facture.xls").Activate
Application.ScreenUpdating = True
End Sub
'--------------------------

Le code par lui-même fonctionne très bien, mais c'est le rajout au début,
d'ouverture du classeur " Récap " qui ouvre bien le classeur en question,
mais la macro s'arrète là,..... alors que j'aimerais qu'elle continue,

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


"Daniel" a écrit dans le message de news:
emB7$
Bonjour.
Peux-tu poster ton code ?
Cordialement.
Daniel
"DC" a écrit dans le message de news:
434b6f33$0$7822$
Bonjour à tous, ( Excel 2000 XP )

L'orsque j'ouvre un classeur en début d'éxécution de macro,

Et bien la macro s'arrête d'elle même,

Aussi, j'aimerais qu'elle continue son éxécution,

Je suppose, qu'il doit y avoir une astuce,

Quequ'un peut-il m'aider à résoudre ce problème...??..........

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