Discussion :

[Phil333250]

Bonjour à toutes et tous,

Depuis mon fichier source, j'ouvre un fichier de destination afin d'y coller 2 valeurs (A & B) se trouvant dans le fichier source.
Jusque là tout va bien.

Sur la même feuille de destination, j'ai en C6 une valeur (C) que je dois comparer à la valeur (A) collée.
Si valeur A est inférieure à valeur C je n'ai rien à faire.
En revanche, si valeur A est supérieure à valeur C celle-ci doit être modifiée.

J'aimerai pouvoir avoir un message qui s'affiche indiquant que la valeur C doit être modifiée et qui permette de faire la saisie de la nouvelle valeur, et ça je ne sais pas comment le faire.

Pouvez vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Export_Données_1()
 
Application.ScreenUpdating = False
 
    Nom_Fichier_Source = Worksheets("MàJ des Applications").Range("M1").Value
    Nom_Fichier_Export = ThisWorkbook.Worksheets("MàJ des Applications").Range("M8").Value
    Adresse_Fichier_Export = ThisWorkbook.Worksheets("MàJ des Applications").Range("M9").Value
    Workbooks.Open (Adresse_Fichier_Export)
 
    Windows(Nom_Fichier_Export).Activate
 
    Worksheets("H Compl").Range("H1").Value = Workbooks(Nom_Fichier_Source).Worksheets("MàJ des Applications").Range("Q1").Value
 
    Range("I1").FormulaR1C1 = "=TODAY()"
    Range("I1").Value = Range("I1").Value
 
    Workbooks(Nom_Fichier_Export).Save
   ' Workbooks(Nom_Fichier_Export).Close
 
    MsgBox ("     Exportation terminée" & Chr(13) & Chr(13) & "         Bonne journée"), vbInformation, "YEAHHHHHHHHH"
 
Windows(Nom_Fichier_Source).Activate
 
Application.ScreenUpdating = True
End Sub

Par avance merci
Philippe

[Philippe Tulliez]

Bonjour,

J'aimerai pouvoir avoir un message qui s'affiche indiquant que la valeur C doit être modifiée et qui permette de faire la saisie de la nouvelle valeur, et ça je ne sais pas comment le faire.

Il existe MsgBox et InputBox. Voir dans la FAQ→Les boîtes de dialogues intégrées ou alors utilisez un UserForm.

A lire éventuellement

• Utiliser les UserForm en VBA Excel
• Utiliser les contrôles dans un UserForm, en VBA Excel

[Phil333250]

Bonjour Philippe.

Merci pour cet éclairage.
J'ai trouvé mon bonheur.

Philippe

[Qwazerty]

Salut

A toute fins utiles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub Export_Données_1()
Dim Wb_Export As Workbook
    Application.ScreenUpdating = False
 
    Nom_Fichier_Source = Worksheets("MàJ des Applications").Range("M1").Value
    Nom_Fichier_Export = ThisWorkbook.Worksheets("MàJ des Applications").Range("M8").Value
    Adresse_Fichier_Export = ThisWorkbook.Worksheets("MàJ des Applications").Range("M9").Value
    'On stop la gestion d'erreur
    On Error Resume Next
        'On essaie d'ouvrir le classeur
        Set Wb_Export = Workbooks.Open(Adresse_Fichier_Export)
    'On réactive la gestion d'erreur
    On Error GoTo 0
 
    'On vérifie si un classeur à bien été ouvert
    If Not Wb_Export Is Nothing Then
 
        'Windows(Nom_Fichier_Export).Activate
        'On pointe la feuille sur laquelle on veut intervenir
        With Wb_Export.Worksheets("H Compl")
            'Cette écriture me parait étrange, que contient la cellule M1 (Nom_Fichier_Source) sur la ligne de départ de la macro?
            .Range("H1").Value = Workbooks(Nom_Fichier_Source).Worksheets("MàJ des Applications").Range("Q1").Value
            'On place la date du jour
            .Range("I1").Value = Date
        End With
        Wb_Export.Save
       ' Workbooks(Nom_Fichier_Export).Close
 
        MsgBox ("     Exportation terminée" & Chr(13) & Chr(13) & "         Bonne journée"), vbInformation, "YEAHHHHHHHHH"
        'Probablement inutile puisqu'on n'a pas changé le classeur actif... enfin tout dépends de la valeur de Nom_Fichier_Source
        Windows(Nom_Fichier_Source).Activate
    End If
    Application.ScreenUpdating = True
End Sub

Il y a sans doute quelques lignes qui peuvent sauter, je ne sais pas ce que contiennent la cellule M1 par exemple. Mais si mon intuition est bonne il s'agit du nom du classeur qui contient la macro, c'est bien ça?

++
Qwaz