VBA petite correction

Fermé

Patrick - 13 juin 2017 à 10:24
charles - 13 juin 2017 à 12:11

Bonjour à tous, je me pose une petite question, j'ai un code VBA qui fonctionnait parfaitement, voici la partie conscernée :

Dim mydate As Date
myname = Worksheets("Face to face").Range("C2")
myfirstname = Worksheets("Face to face").Range("C3")
mydate = Worksheets("Face to face").Range("S2")
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " face to face" & " " & myname & myfirstname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile

et je voulait y apporter une petite modification :

Dim mydate As Date
myname = Worksheets("Face to face").Range("C2")
myfirstname = Worksheets("Face to face").Range("C3")
mydate = Worksheets("Face to face").Range("=SI(S3="";S2;S3)")
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " face to face" & " " & myname & myfirstname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile

cependant il ne fonctionne plus apres avoir effectué cette modification, est ce que l'un de vous a une idée de la méthode a utiliser?

Merci d'avance a tous

A voir également:

VBA petite correction
Correction orthographe - Guide
Find vba - Astuces et Solutions
Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum Bases de données
Incompatibilité de type vba ✓ - Forum Programmation
Petite croix snap - Forum Snapchat

4 réponses

Réponse 1 / 4

Unombre Messages postés 40 Date d'inscription lundi 11 juillet 2016 Statut Membre Dernière intervention 8 septembre 2017 16
13 juin 2017 à 10:36

Bonjour,

Dim mydate As Date
myname = Worksheets("Face to face").Range("C2")
myfirstname = Worksheets("Face to face").Range("C3")
if Worksheets("Face to face").Range("S3") = "" then
mydate = Worksheets("Face to face").Range("S2")
else
mydate = Worksheets("Face to face").Range("S3")
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " face to face" & " " & myname & myfirstname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile

Si j'ai bien compris ton soucis, tu peux essayer ca !

Réponse 2 / 4

Patrick
13 juin 2017 à 10:55

Yeahh Je te remercie enormement, tu a parfaitement compris ce que je voulait et j'ai parfaitement compris le principe donc tout est parfat
Merci

une toute petite correction pour les personne qui pourait nous lire il manque le "end if" ce qui donne

Dim mydate As Date
myname = Worksheets("Face to face").Range("C2")
myfirstname = Worksheets("Face to face").Range("C3")
If Worksheets("Face to face").Range("S3") = "" Then
mydate = Worksheets("Face to face").Range("S2")
Else
mydate = Worksheets("Face to face").Range("S3")
End If
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " face to face" & " " & myname & " " & myfirstname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile

Encore merci!

Réponse 3 / 4

Archer
13 juin 2017 à 12:06

Bonjour
pour éviter de taper le Worksheets("Face to face") a chaque ligne

Sub Macrodate()
Dim mydate As Date
   With Worksheets("Face to face")
      myname = .Range("C2")
      myfirstname = .Range("C3")
         If .Range("S3") = "" Then
            mydate = .Range("S2")
         Else
            mydate = .Range("S3")
         End If
   End With
mymonth = Format(mydate, "mm")
myfile = Year(mydate) & " " & mymonth & " face to face" & " " & myname & " " & myfirstname
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
End Sub

A+
Maurice

Réponse 4 / 4

charles
13 juin 2017 à 12:11

Je propose ce code VBA :


Option Explicit

Sub Essai()
  Dim myname As String, myfirstname As String, mydate As Date, myfile As String
  With Worksheets("Face to face")
    myname = .[C2]: myfirstname = .[C3]: mydate = Cells(3 + (.[S3] = ""), "S")
  End With
  myfile = Format(mydate, "yyyy mm") & " face to face" & " " & myname & " " & myfirstname
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
End Sub

Les lignes #5 et #6 doivent être sur une seule ligne ;
idem pour les lignes #8 et #9 ; et pour #11 et #12.

Le corps de la sub est donc sur 6 lignes.

--------------------------------------

Le même code sans les 2 variables myname et myfirstname :


Option Explicit

Sub Essai()
  Dim mydate As Date, myfile As String
  With Worksheets("Face to face")
    mydate = Cells(3 + (.[S3] = ""), "S")
    myfile = Format(mydate, "yyyy mm") & " face to face" & " " & .[C2] & " " & .[C3]
  End With
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & myfile
End Sub

Les lignes #8 et #9 doivent être sur une seule ligne.
Ce code VBA est encore plus court ! ;)

Discussions similaires

A quoi correspond cette croix sur snapchat

"L'indice n'appartient à la sélection" + VBA

Savoir si je suis bloqué par une personne sur snap chat

comment savoir qu'une personne nous a supprimé Snapchat

VBA : Range avec références variables..

Discussions similaires

Newsletters