enregistrement auto

Le
bob1877 Hors ligne
Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement à partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value & "-" & Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse, _
OpenAfterPublish:úlse
ActiveSheet.PrintOut
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23027821
bonjour bob,

ajoute
ChDir sDossier
avant l'export

isabelle



Le 2011-01-16 15:37, bob1877 a écrit :
Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments"& Textbox2.Value& "-"&
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value& ".pdf"
i = 1
If ExistenceFichier(sDossier& sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00"& CStr(i)
Case 10 To 99: sNum = "0"& CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value& "_"& sNum& ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier& sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier&
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut
michdenis
Le #23027891
Bonjour,

Si j'ai bien compris ta démarche, tu pourrais aussi utiliser ceci :

'------------------------------------------
Sub test()

Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer, T(), A As Integer

sDossier = "C:UsersmoiDocuments" & _
Textbox2.Value & "-" & Textbox3.Value & ""

'pour tester si le dossier existe :
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier s'il n'existe pas
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End If

'Nom du fichier
sNomFichier = Dir(sDossier & le.Value & "*" & ".pdf")

Do While sNomFichier <> ""
A = A + 1
ReDim Preserve T(A)
T(A) = CLng(Split(Replace(sNomFichier, le.Value, ""), ".")(0))
sNomFichier = Dir()
Loop
'retourne le dernier numéro de fichier utilisé + 1
sNum = Format(Application.Max(T) + 1, "#000")
'Le prochain nom de fichier sera :
sNomFichier = le.Value & sNum & ".pdf"
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
ActiveSheet.PrintOut
End Sub
'------------------------------------------



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :

Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value & "-" &
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier &
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut
michdenis
Le #23029121
Je crois que tu as compris qu'à cette ligne de code

Commande = Environ("comspec") & " /c mkdir " & Chemin

Il faut remplacer "Chemin" par ta variable : sDossier



MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion : igvqtu$mha$

Bonjour,

Si j'ai bien compris ta démarche, tu pourrais aussi utiliser ceci :

'------------------------------------------
Sub test()

Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer, T(), A As Integer

sDossier = "C:UsersmoiDocuments" & _
Textbox2.Value & "-" & Textbox3.Value & ""

'pour tester si le dossier existe :
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier s'il n'existe pas
Commande = Environ("comspec") & " /c mkdir " & Chemin
Shell Commande, 0
End If

'Nom du fichier
sNomFichier = Dir(sDossier & le.Value & "*" & ".pdf")

Do While sNomFichier <> ""
A = A + 1
ReDim Preserve T(A)
T(A) = CLng(Split(Replace(sNomFichier, le.Value, ""), ".")(0))
sNomFichier = Dir()
Loop
'retourne le dernier numéro de fichier utilisé + 1
sNum = Format(Application.Max(T) + 1, "#000")
'Le prochain nom de fichier sera :
sNomFichier = le.Value & sNum & ".pdf"
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
ActiveSheet.PrintOut
End Sub
'------------------------------------------



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :

Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value & "-" &
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier &
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut
bob1877 Hors ligne
Le #23030461
michdenis a écrit le 17/01/2011 à 14h03 :
Je crois que tu as compris qu'à cette ligne de code

Commande = Environ("comspec") & " /c mkdir " &
Chemin

Il faut remplacer "Chemin" par ta variable : sDossier



MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
igvqtu$mha$

Bonjour,

Si j'ai bien compris ta démarche, tu pourrais aussi utiliser ceci :

'------------------------------------------
Sub test()

Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer, T(), A As Integer

sDossier = "C:UsersmoiDocuments" & _
Textbox2.Value & "-" & Textbox3.Value & ""

'pour tester si le dossier existe :
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier s'il n'existe pas
Commande = Environ("comspec") & " /c mkdir " &
Chemin
Shell Commande, 0
End If

'Nom du fichier
sNomFichier = Dir(sDossier & le.Value & "*" &
".pdf")

Do While sNomFichier <> ""
A = A + 1
ReDim Preserve T(A)
T(A) = CLng(Split(Replace(sNomFichier, le.Value, ""),
".")(0))
sNomFichier = Dir()
Loop
'retourne le dernier numéro de fichier utilisé + 1
sNum = Format(Application.Max(T) + 1, "#000")
'Le prochain nom de fichier sera :
sNomFichier = le.Value & sNum & ".pdf"
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
ActiveSheet.PrintOut
End Sub
'------------------------------------------



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement
à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier
crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value &
"-" &
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier &
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut


merci merci Mith et Isa
j'ai trouvé une autre solution en consultant des forums.
je ne suis pas avarre en question puisque ca ne fait pas très longtemps que je me suis mis au vba.
mais je progresse doucement.
je poste d'ailleurs une nouvelle question concernant les bases de données.
à très vite alors
bye
michdenis
Le #23031911
En passant, on accepte volontiers des solutions provenant
d'ailleurs. Cela permet à tous les participants d'apprendre...
Merci de partager !



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :

michdenis a écrit le 17/01/2011 à 14h03 :
Je crois que tu as compris qu'à cette ligne de code

Commande = Environ("comspec") & " /c mkdir " &
Chemin

Il faut remplacer "Chemin" par ta variable : sDossier



MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
igvqtu$mha$

Bonjour,

Si j'ai bien compris ta démarche, tu pourrais aussi utiliser ceci :

'------------------------------------------
Sub test()

Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer, T(), A As Integer

sDossier = "C:UsersmoiDocuments" & _
Textbox2.Value & "-" & Textbox3.Value & ""

'pour tester si le dossier existe :
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier s'il n'existe pas
Commande = Environ("comspec") & " /c mkdir " &
Chemin
Shell Commande, 0
End If

'Nom du fichier
sNomFichier = Dir(sDossier & le.Value & "*" &
".pdf")

Do While sNomFichier <> ""
A = A + 1
ReDim Preserve T(A)
T(A) = CLng(Split(Replace(sNomFichier, le.Value, ""),
".")(0))
sNomFichier = Dir()
Loop
'retourne le dernier numéro de fichier utilisé + 1
sNum = Format(Application.Max(T) + 1, "#000")
'Le prochain nom de fichier sera :
sNomFichier = le.Value & sNum & ".pdf"
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
ActiveSheet.PrintOut
End Sub
'------------------------------------------



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


Bonjour,


je voudrais créer un dossier et y enregistrer un fichier automatiquement
à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le dossier
crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value &
"-" &
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier &
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut


merci merci Mith et Isa
j'ai trouvé une autre solution en consultant des forums.
je ne suis pas avarre en question puisque ca ne fait pas très longtemps que je
me suis mis au vba.
mais je progresse doucement.
je poste d'ailleurs une nouvelle question concernant les bases de données.
à très vite alors
bye
bob1877 Hors ligne
Le #23032421
michdenis a écrit le 17/01/2011 à 21h57 :
En passant, on accepte volontiers des solutions provenant
d'ailleurs. Cela permet à tous les participants d'apprendre...
Merci de partager !



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


michdenis a écrit le 17/01/2011 à 14h03 :
Je crois que tu as compris qu'à cette ligne de code

Commande = Environ("comspec") & " /c mkdir " &
Chemin

Il faut remplacer "Chemin" par ta variable : sDossier



MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de discussion
:
igvqtu$mha$

Bonjour,

Si j'ai bien compris ta démarche, tu pourrais aussi utiliser ceci :

'------------------------------------------
Sub test()

Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer, T(), A As Integer

sDossier = "C:UsersmoiDocuments" & _
Textbox2.Value & "-" & Textbox3.Value & ""

'pour tester si le dossier existe :
If Dir(sDossier, vbDirectory) = "" Then
'Création du dossier s'il n'existe pas
Commande = Environ("comspec") & " /c mkdir " &
Chemin
Shell Commande, 0
End If

'Nom du fichier
sNomFichier = Dir(sDossier & le.Value & "*" &
".pdf")

Do While sNomFichier <> ""
A = A + 1
ReDim Preserve T(A)
T(A) = CLng(Split(Replace(sNomFichier, le.Value, ""),
".")(0))
sNomFichier = Dir()
Loop
'retourne le dernier numéro de fichier utilisé + 1
sNum = Format(Application.Max(T) + 1, "#000")
'Le prochain nom de fichier sera :
sNomFichier = le.Value & sNum & ".pdf"
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDossier & sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
ActiveSheet.PrintOut
End Sub
'------------------------------------------



MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


Bonjour,


je voudrais créer un dossier et y enregistrer un fichier
automatiquement
à
partir des valeurs de cellules de mon choix.
Mon code crée le dossier voulu mais le fichier n'est pas dans le
dossier
crée

voici une partie de ce code :


'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & Textbox2.Value &
"-" &
Textbox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sDossier & sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sDossier & sNomFichier) = False
End If
'Publier en pdf et imprimer

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDossier &
sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse,
_
OpenAfterPublish:úlse
ActiveSheet.PrintOut



merci merci Mith et Isa
j'ai trouvé une autre solution en consultant des forums.
je ne suis pas avarre en question puisque ca ne fait pas très longtemps
que je
me suis mis au vba.
mais je progresse doucement.
je poste d'ailleurs une nouvelle question concernant les bases de
données.
à très vite alors
bye


Bonjour,
bien sur Mitch, j'ai déjà partagé mes trouvailles sur d'autre post.

Pour celui ci je voulais vérifier le bon fonctionnement de mon code et c'est chose faite.
Il crée bien le dossier voulu selon mes critères "Nom-Prénom" et enregistre dedans le fichier avec pour nom la "date" saisie.
Pour éviter d'écraser un fichier par erreur s'il arrivait que le nom de fichier soit déjà utilisé, une fonction intégrée ajoutera 001 à la fin du nom de fichier la première fois, 002 la deuxième fois, etc
De plus le fichier sera publier en pdf, via l'add-in de microsoft office (SaveAs pdf).


Voici mon code :

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
Dim Rg As Range
Dim IndexComboBox As Long
Private Sub ComboBox1_Change()
'Si le combobox affiche un nom
With Me.ComboBox1
'test 1 If ComboBox1.Text = "" Then
'test 2 If ComboBox1.ListIndex = -1 Then Msgbox "Pas Correct"
'test 2 else
If .ListIndex <> -1 Then
IndexComboBox = .ListIndex + 1
For a = 1 To 7 'Nombre de textbox
Me.Controls("Textbox" & a) = Rg(IndexComboBox, a)
Next
End If
ComboBox2.ColumnCount = 1
ComboBox2.List() = Array("espèce", "virement", "chèque")
ComboBox3.ColumnCount = 1
ComboBox3.List() = Array("M", "Mme", "Mlle")
End With
End Sub

Private Sub UserForm_Initialize()
Charger_Les_Données_Dans_Formulaire
End Sub

Private Sub Charger_Les_Données_Dans_Formulaire()

Dim DerCol As Integer, DerLig As Long
'Déterminer la plage de cellules contenant les données
With Feuil3
'Détermine la dernière colonne occupée dans la feuille
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

'Rg une variable objet contenant ta base de donnée
'la plage débute en ligne 2
Set Rg = .Range("A2", .Cells(DerLig, DerCol))

'Renseigner le combobox des Civilités, Noms et Prénoms de ta base de donnée
With Me.ComboBox1
'Nombre de colonne du combobox
.ColumnCount = 2
.BoundColumn = 2
'largeur des colonnes
.ColumnWidths = "60;60"
End With
'les données du combobox
Me.ComboBox1.List = .Range("B2:C" & DerLig).Value
End With

End Sub
Private Sub Menu_Click()
Sheets("Menu").Activate
UMenu.Show
End Sub

Option Explicit

Private Sub CreerDossier(sDossier As String)
SHCreateDirectoryEx 0&, sDossier, 0&
End Sub

Private Function ExistenceFichier(sFichier As String) As Boolean
ExistenceFichier = Dir(sFichier) <> ""
End Function
Private Sub Imprimer_Click()
Worksheets("Solde").Range("id") = TextBox1.Value & " " & TextBox2.Value & " " & TextBox3.Value
Worksheets("Solde").Range("idc") = TextBox1.Value & " " & TextBox2.Value & " " & TextBox3.Value
Worksheets("Solde").Range("adresse") = TextBox5.Value
Worksheets("Solde").Range("adressec") = TextBox5.Value
Worksheets("Solde").Range("code") = TextBox6.Value & " " & TextBox7.Value
Worksheets("Solde").Range("codec") = TextBox6.Value & " " & TextBox7.Value
Worksheets("Solde").Range("sécurité") = TextBox4.Value
Worksheets("Solde").Range("somme") = somme.Value
Worksheets("Solde").Range("par") = " par " & ComboBox2.Value
Worksheets("Solde").Range("le") = le.Value
Worksheets("Solde").Range("lec") = le.Value
Worksheets("Solde").Range("à") = à.Value
Worksheets("Solde").Range("àc") = à.Value
Worksheets("Solde").Range("comme") = comme.Value
Worksheets("Solde").Range("du") = du.Value & " au " & au.Value

'créer dossier employé
Dim sDossier As String, sNomFichier As String
Dim sNum As String, i As Integer

sDossier = "C:UsersMoiDocuments" & TextBox2.Value & " - " & TextBox3.Value
CreerDossier sDossier
sNomFichier = le.Value & ".pdf"
i = 1
If ExistenceFichier(sNomFichier) = True Then
Do
Select Case i
Case 1 To 9: sNum = "00" & CStr(i)
Case 10 To 99: sNum = "0" & CStr(i)
Case Else: sNum = CStr(i)
End Select
sNomFichier = le.Value & "_" & sNum & ".pdf"
i = i + 1
Loop Until ExistenceFichier(sNomFichier) = False
End If
'Publier en pdf et imprimer

ChDir (sDossier)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichier, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:úlse, _
OpenAfterPublish:úlse
ActiveSheet.PrintOut

'boite de message
MsgBox "enregistré sous " & sDossier & "" & sNomFichier, vbInformation + vbOKOnly, "enregistré sous"

'réinitialiser
Sheets("Menu").Activate
Sheets("Solde").Activate
End Sub

nota : Vous avez pu lire des lignes de code nommées " 'Test" qui ne sont pas directement en rapport avec le sujet. J'essaie encore d'optimiser mon formulaire pour le rendre le plus simple possible, son utilisation ne m'est pas destinée.

bye bye et @ bientot
michdenis
Le #23034811
Merci pour le retour.



MichD
--------------------------------------------
bob1877 Hors ligne
Le #23035291
michdenis a écrit le 19/01/2011 à 14h31 :
Merci pour le retour.



MichD
--------------------------------------------


Je voudai maintenant insérer une ligne de code pour que mes textbox soit vidées quand le combobox n'affiche pas une données de la liste ou reste vide.
michdenis
Le #23038901
| Je voudai maintenant insérer une ligne de code pour que
|mes textbox soit vidées quand le combobox n'affiche pas
|une données de la liste ou reste vide.

Où sont tes textbox ? Dans un formulaire, une feuille de calcul ?

Dans un formulaire, tu peux utiliser quelque chose comme :
'------------------------------------------
Private Sub CommandButton1_Click()
Dim C As Control
If Me.ComboBox1.ListIndex = -1 Then
For Each C In Me.Controls
If TypeName(C) = "TextBox" Then
C.Text = ""
End If
Next
End If
End Sub
'------------------------------------------

Dans une feuille de calcul :
'-------------------------------------------
Sub test()
Dim Sh As OLEObject
With Worksheets("Feuil1") 'Nom feuille à adapter
If .ComboBox1.ListIndex = -1 Then
For Each Sh In .OLEObjects
If TypeName(Sh.Object) = "TextBox" Then
Sh.Object = ""
End If
Next
End If
End With
End Sub
'-------------------------------------------

MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :

michdenis a écrit le 19/01/2011 à 14h31 :
Merci pour le retour.



MichD
--------------------------------------------


Je voudai maintenant insérer une ligne de code pour que mes textbox soit vidées
quand le combobox n'affiche pas une données de la liste ou reste vide.
bob1877 Hors ligne
Le #23038991
michdenis a écrit le 20/01/2011 à 20h44 :
| Je voudai maintenant insérer une ligne de code pour que
|mes textbox soit vidées quand le combobox n'affiche pas
|une données de la liste ou reste vide.

Où sont tes textbox ? Dans un formulaire, une feuille de calcul ?

Dans un formulaire, tu peux utiliser quelque chose comme :
'------------------------------------------
Private Sub CommandButton1_Click()
Dim C As Control
If Me.ComboBox1.ListIndex = -1 Then
For Each C In Me.Controls
If TypeName(C) = "TextBox" Then
C.Text = ""
End If
Next
End If
End Sub
'------------------------------------------

Dans une feuille de calcul :
'-------------------------------------------
Sub test()
Dim Sh As OLEObject
With Worksheets("Feuil1") 'Nom feuille à adapter
If .ComboBox1.ListIndex = -1 Then
For Each Sh In .OLEObjects
If TypeName(Sh.Object) = "TextBox" Then
Sh.Object = ""
End If
Next
End If
End With
End Sub
'-------------------------------------------

MichD
--------------------------------------------
"bob1877" a écrit dans le message de groupe de discussion :


michdenis a écrit le 19/01/2011 à 14h31 :
Merci pour le retour.



MichD
--------------------------------------------



Je voudai maintenant insérer une ligne de code pour que mes textbox soit
vidées
quand le combobox n'affiche pas une données de la liste ou reste vide.


Thank you very much, Mitch.
je vais essayer cela.

(dans mon formulaire)
Publicité
Poster une réponse
Anonyme