Macro Boucle Cells Range Fermé

Question

Bonjour,

J'utilise Excel 2007, VB editor 6.5.
Je souhaite créer une commande macro qui puisse me permettre de créer une version PDF de mon fichier Excel. 
Mon fichier excel comprend plusieurs feuilles à imprimer puis une feuille comprenant la Cells Range utilisée en Data Validation dans la zone non imprimable de chaque feuille dont la zone d'impression est importante à imprimer. 
Je voudrai créer chaque pdf de ce fichier correspondant à chaque valeur de la Cells Range intitulée "Transportai". Il y a un tarif de transport qui part de 0 jusqu'à 3000 EUR et qui change tous les 25 EUR.

A chaque valeur de transport, je veux créer une version pdf de mon fichier, 
en créant sur le desktop un nouveau répertoir "Offres", 
comprenant un lui même un sous répertoire intitulé "valeur du transport" (par exemple 0, puis un autre 25, un autre 50 etc... jusqu'à 3000). 
Chacun de ces répertoires comprendra une version PDF de mon fichier excel.

J'ai testé une macro ainsi :

Sub test()
'
' test Macro
'

'
    
    For Each L18 In Selection
    If L18.Value Like "Transportai" Then

    ChDir "C:\Documents and Settings\Admin\Desktop\OFFRE"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\Admin\Desktop\PASIULYMAI\2009_10_06_Pasiulymas_padeklams.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    
    End If
    Next
    
        
End Sub

Je ne vois pas d'où vient le problème, mais il n'y a aucun effet.
Ca ne crée aucun répertoire sur le desktop, d'une part.
D'autre part, j'aimerai que pour chacune du transport, la macro me créée un répertoire intitulé par la valeur du transport donnée et y inclue une copie PDF de mon fichier.

Merci de bien vouloir m'aider.

Bidouilleu_R · Answer

chdir te permets de te placer dans le dossier  chdir "C:\LeChemin"
Mkdir "C:\LeChemin" te permets de créée le dossier !!! 
For Each L18 In Selection  ça s'est faux !!! ou ne sert à rien

 L18 est cellule selection ne peut-être que des cellules de la même feuille

dans cette boucle L18 est controlée n fois (n= nbre cellule de la selection)

comme tu as plusieurs feuilles  je pense que tu veux contrôler L18 dans chaque feuille et créer ton pdf si la condition est remplie.

tu devrais écrire

..........

Dim sh As Variant
sheets(sh).activate ' tu vois ce qui se passe la feuille est sélectionnée



If L18.Value Like "Transportai" Then 

ChDir "C:\Documents and Settings\Admin\Desktop\OFFRE" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\Documents and Settings\Admin\Desktop\PASIULYMAI\2009_10_06_Pasiulymas_padeklams.pdf" _ 
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
:=False, OpenAfterPublish:=False 

End If 
Next


...........

Bidouilleu_R · Answer

chdir te permets de te placer dans le dossier  chdir "C:\LeChemin"
Mkdir "C:\LeChemin" te permets de créée le dossier !!! 
For Each L18 In Selection  ça s'est faux !!! ou ne sert à rien

 L18 est cellule selection ne peut-être que des cellules de la même feuille

dans cette boucle L18 est controlée n fois (n= nbre cellule de la selection)

comme tu as plusieurs feuilles  je pense que tu veux contrôler L18 dans chaque feuille et créer ton pdf si la condition est remplie.

tu devrais écrire

..........

Dim sh As Variant
sheets(sh).activate ' tu vois ce qui se passe la feuille est sélectionnée



If L18.Value Like "Transportai" Then 

ChDir "C:\Documents and Settings\Admin\Desktop\OFFRE" 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\Documents and Settings\Admin\Desktop\PASIULYMAI\2009_10_06_Pasiulymas_padeklams.pdf" _ 
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ 
:=False, OpenAfterPublish:=False 

End If 
Next


...........

Bidouilleu_R · Answer

je ne sais pas de quelle forme est ton fichier
le nombre d'onglets... les feuilles sont elles identiques.
ce que tu veux exporter est-il toujours sous la même forme?


sheets(sh).select ' tu vois ce qui se passe la feuille est sélectionnée 
répond aux questions s'il te plait.
je regarde en faisant un test identique à ce que tu veux (du moins à ce que je comprends)

Hyneryl · Answer

Je ne sais pas de quelle forme est ton fichier

J'ai un fichier excel format 97-2003 (réalisé sous excel 2007).
J'ai une offre commerciale dans une page.
Cette page comprend une zone d'impression de haut en bas dans les premières colonnes sur 4pages.
Cependant, dans les colonnes supplémentaires (celles qui suivent la zone d'impression), il ya des formules, des datavalidation avec des dropdown listes que les utilisateurs(commerciaux) peuvent modifier.

Le mieux serait que je puisse t'envoyer ce fichier sur email, ou bien te le mettre en ligne pour que tu puisses le voir.
Je peux si tu as une email gmail, te faire partager le fichier. 

le nombre d'onglets... les feuilles sont elles identiques.
J'ai 18 pages réparties dans 6 langues différentes.
Chacune des 3 pages de chaque langue est différentes l'une des autres. (3types différents de pages à chaque langue). Cependant, les 3 pages se retrouvent de manière identiques dans chaque version linguistique.


De plus, en plus des 18pages, j'ai une page Listes, j'ai une page Voc, une page Contact, et une page de tarifs.


ce que tu veux exporter est-il toujours sous la même forme? 
J'ai un fichier pdf qui doit etre dans la meme forme à chaque valeur du tarif (0,25,...125...275...3000EUR.)
Il n'y a juste qu'à modifier les coordonnées de la personne ainsi que les quelques dropdown listes avant d'appuyer sur le bouton de la macro.

Cependant, je voulais peut-etre créer une macro pour un type de pages, une macro commande.

De plus, comment faire pour que les répertoires de destination de chacun des 122 fichiers pdf se retrouvent à chacun dans un sous-répertoire intitulé par la valeur du transport.

Je voulais par la suite, à l'autre type de page, réaliser une autre macro légèrement différente où je pourrais juste placer les pdfs cette fois-ci toujours dans ces sous-répertoires correspondant aux transports  différents, mais avec une appellation differentes de ceux découlant de la 1ere macro.

De meme pour la 3eme macro pour le troisième type de pages.

Cordialement,
HYNERYL

Bidouilleu_R · Answer

Sub test2()





Dim sh As Variant




ChDir "C:\Documents and Settings\Admin\Desktop\OFFRE"
For Each sh In Worksheets
sh.Select


'if range("L18").value like....  ' note L18 doit être entre crochets
If sh.Range("L18").Value Like "Transportai" Then


sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Admin\Desktop\PASIULYMAI\2009_10_06_Pasiulymas_padeklams.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End If
Next

End Sub



je complète plus tard après toute la lecture

Bidouilleu_R · Answer

pour l'envoi tu peux le faire avec www.ci-joint.fr et tu postes le lien 
ne met pas de données confidentielles tu peux épurer le fichier
si c'est impossible écris-moi en mp
click sur mon pseudo et je te répond dans l'après midi.

normalement le code que je t'ai donné devrais t'aider

Hyneryl · Answer

Ok, désormais, j'ai un code correct, sans erreur, 

Sauf que désormais, je n'ai aucun effet (aucun pdf de créé au résultat).
Ni aucun répertoire de créé non plus, j'aimerai un sous-repertoire 0, un autre 25, un autre 50, etc... un sous-repertoire tous les 25.
A chacun de ces sous-repertoire, devront.

Je vais crééer une version allégée de l'offre et la placerai en ligne.
http://www.cijoint.fr/cjlink.php?file=cj200910/cijurUHD8j.xls

Elle ne comporte ainsi que des données pas trop confidentielles

J'ai banalysé des tarifs, en les modifiants tous à une valeur unique.
Vu que j'habite la Lituanie, la feuille Genadijus est entierement en Lituanien, mais bon, j'ai la feuille Voc pour traduire.

Tu peux voir à améliorer le Module 5 (Sub () Test 2)

ok ?
Merci.

Bidouilleu_R · Answer

j'ai trouvé 2 erreurs
la référence à L18 il faut mettre L17

ensuite 

If sh.Range("L17").Value Like "Transportai" Then 

je ne trouve nul part ce mot, je pense qu'il s'agit d'une faute

et que tu recherches "Transport :"
dans ce cas la condition deviendrait

If sh.Range("L17").Value Like "Transport :" Then 
...
...
end if

hyneryl_ramundas · Answer

Et bien, en fait, non, justement, 

L18 possede des valeurs grace a une dropdow liste qui reprendra la datavalidation intitulée "Transportai".

Je voudrai donc creer une version PDF pour chaque valeur comprise dans la cells Range "Transportai", dont les données se trouvent dans la cellule L18 de chaque feuille d'offre commerciale.

Donc non ca n'est pas une erreur selon moi.

hyneryl_ramundas · Answer

et si je mets une valeur dans la ligne : 

If sh.Range("L18").Value Like "0-3000" Then

ce serait bon ?

hyneryl_ramundas · Answer

L'effet que j'obtiens avec le code suivant est le suivant : 

Dim sh As Variant

ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
For Each sh In Worksheets
sh.Select


'if range("L18").value like.... ' note L18 doit être entre crochets
If sh.Range("L17").Value Like "Transport" Then


sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\Admin\Desktop\PASIULYMAI\2009_10_06_Pasiulymas_padeklams.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End If
Next

End Sub

Je n'ai qu'une succession des feuilles après vérification de chacune des cellules L18 de chacune.
Et le défilet des feuilles s'arrête à la dernière Genadijaus. 

Mais en résultat je n'ai aucune création de pdf dans le rép. de destination définis. 

De plus, je voudrai à chaque valeur du transport creer un rép. différent, intitulé justement par la valeur du transport. Et je n'ai rien.

Bidouilleu_R · Answer

j'ai fais le test complet

Sub test3()
'
' test3 Macro
'

'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier

MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName <> "." Then
    MkDir MyPath
End If
ChDir MyPath
'ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
For Each sh In Worksheets
sh.Select

'if range("L17").value like.... ' note L17 doit être entre crochets
If sh.Range("L17").Value Like "Transport :" Then
    'en mettant Sh.name le fichier Pdf portera le nom de la feuille

    sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        MyPath & sh.Name, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False

End If
Next

End Sub


chez moi ce code marche

hyneryl_ramundas · Answer

Ben l'erreur que j'obtiens est à la ligne 75, 

c'est la ligne suivante : 

    MkDir MyPath

elle est soulignée en jaune.

Bidouilleu_R · Answer

Sub test3()
'
' test3 Macro
'

'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier

MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath

For Each sh In Worksheets
sh.Select

'if range("L17").value like.... ' note L17 doit être entre crochets
    If sh.Range("L17").Value Like "Transport :" Then
    'en mettant Sh.name le fichier Pdf portera le nom de la feuille

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            MyPath & sh.Name, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    End If
Next

End Sub



une Erreur de ma part

si le dernier dossier n'existe pas il est créé
test pour moi s'est ok!  
mais je te l'avais déjà dit...  : )

hyneryl_ramundas · Answer

Resalut, 

et merci encore pour la correction, car finalement, ça marche.

Cependant, ca n'est pas totalement, ce que je cherchais à faire.

Tu m'as fait une version PDF de chacune des feuilles,
je voulais faire tout d'abord plusieurs pdf pour par exemple la feuille "FR" feuille, 

La ça m'a fait un PDF par feuille existante dans le fichier d'une part.

D'autre part, je voulais que ça me crée un répertoire "PASIULYMAI" 

et à chaque valeur du transport, 0, 25, 50, 75, 100 etc... jusqu'à 3000, ben un sous-repertoire 
dans chacun desquels la macro pourrait à chaque valeur du transport pour la feuille "FR" 

créer une version PDF de l'offre.

Pourrais-tu modifier une nouvelle fois ton code s'il te plait par rapport à ces deux trois dernières erreurs trouvées ?

Merci 
Hyneryl

hyneryl_ramundas · Answer

Si je m'exprime mal, je vais essayer d'etre un peu clair.

J'ai une variable : le prix du transport.
Cette derniere est retrouvée dans la case L18 dans la page FR.

J'ai 120 version du prix de transport (De 0 à 3000, chaque 25).

Donc j'aurai 120 sous-répertoires du Répertoire initial "PASIULYMAI".

Chacun de ces sous-repertoire devra porter le nom du chiffre de la valeur du transport.

Chacune des 120 versions PDF de la page FR devra etre créée et rangée dans chacun de ces sous-répertoire.

La case L18 dans la page FR, utilise la DATA VALIDATION intitulée "Transportai".
Les valeurs du transport sont comprises dans la colonne B de la page Listes.

Bidouilleu_R · Answer

Sub test3()
'
' test3 Macro
'

'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier
Dim DossierTransport As String  ' le numero pour créer le dossier


MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath
'ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
For Each sh In Worksheets

sh.Select


'je vérifie l'existance du sousrépertoire
'et s'il n'existe pas il y a création

DossierTransport = sh.Range("L18").Value

MyPath = MyPath & "\" & DossierTransport
'MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath ' on se positionne au bon endroit

'if range("L17").value like.... ' note L17 doit être entre crochets
    If sh.Range("L17").Value Like "Transport :" Then
    'en mettant Sh.name le fichier Pdf portera le nom de la feuille

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            MyPath & sh.Name, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    End If
Next

End Sub


Cette fois tu as la création du dossier sur le bureau ainsi que les sous dossiers
et les fichiers pdf dans chaque dossier
mais hélas une feuille excel donne une exportation de plusieurs page dans un fichier pdf.
je ne sais même pas s'il est possible de séparer les pages en plusieurs fichiers à moins de passer par une feuille temporaire avant l'exportation.

A+
R

Bidouilleu_R · Answer

touche à rien j'ai oublié un petit quelquechose

Bidouilleu_R · Answer

Sub test3()
'
' test3 Macro
'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier
Dim DossierTransport As String  ' le numero pour créer le dossier

MyPath = "C:\Documents and Settings\dzzf8r\Desktop\Export"
'MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath
'ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
For Each sh In Worksheets

sh.Select

'je vérifie l'existance du sousrépertoire
'et s'il n'existe pas il y a création

DossierTransport = sh.Range("L18").Value

MyPath = MyPath & "\" & DossierTransport
'MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath ' on se positionne au bon endroit

'if range("L17").value like.... ' note L17 doit être entre crochets
    If sh.Range("L17").Value Like "Transport :" Then
    'en mettant Sh.name le fichier Pdf portera le nom de la feuille

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            MyPath & sh.Name, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    End If
    
   MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1)
    
Next

End Sub

hyneryl_ramundas · Answer

ben en fait, ça me met pour le moment, 

une creation de sous-rep mais selon les valeurs de transports déjà comprises dans les valeurs de chaque page dans les cellules L18.

Et d'ailleurs l'arborescence des sous-répertoires est assez étranges, car j'aurai pensé que la création des sous-répertoires puisse créer plusieurs répertoires dont la racine serait le répertoire unique "PASIULYMAI".

Or la, ça n'est pas le cas. Dans le premier sous-rep, est créé le Second de la page 2 etc...

hyneryl_ramundas · Answer

La j'ai une erreur à la ligne de code :

If MyName = "" Then
    MkDir MyPath                       (celle-ci)
End If


Ligne 75.

Au lieu de MkDir, ça doit etre ça ou bien ChDir ???
Ou bien alors, l'erreur se trouve avant dans le chemin d'accès (l'adresse du rép dans le desktop) ?

Bidouilleu_R · Answer

tu as fais une erreur,
regarde le post n°20
j'avais oublié de réinitialiser la variable.
MyPath devenait de plus en plus long...  :-(
pour l'erreur 75 je ne l'ai pas eu je regarde dans la matinée.

hyneryl_ramundas · Answer

Je crois avoir décelé pourquoi l'erreur 75 apparrait, le chemin d'acces n'est plus \Doc & Settings\Admin, mais Dzzr8 ou un truc comme ça, dans la 6e ligne, après les 4 premières lignes de Dim, et la ligne vide.

Par contre, je viens de comprendre, que "sh" est défini comme étant une variante.

Ne pourrais-t-on pas définir comme une variante une "DataValidation" intitulée "Transportai".
Et préciser que sa valeur est donnée dans la pages Listes colonne B, de la ligne 2 à 122.

Je pensais à un truc aussi, est-ce qu'on ne peut pas préciser que on selectionne la page FR, 

et qu'on puisse realiser tous les pdf selon la valeur de L18 dans cette page là, selon chacune des valeurs de L18 correspondant à chaque valeur de la datavalidation intitulée Transportai ?

Tu me dis si ce n'est pas possible, ou si je me trompe.

Merci encore.

Hyneryl

hyneryl_ramundas · Answer

C'était meme une erreur 76 et non pas 75.
Elle y est toujours malgre le nom dzzrr8 corrigé en Admin.

Bidouilleu_R · Answer

voilà j'avais oublié un "\" les fichiers étaient créés au même endroit
c'était du au fait que je dois changer le nom du chemin 

erreur 76 chemin d'accès introuvable.
Teste et dis moi si c'est ok!




Sub test3()
'
' test3 Macro
'

'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier
Dim DossierTransport As String  ' le numero pour créer le dossier

MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath

For Each sh In Worksheets

sh.Select


'je vérifie l'existance du sousrépertoire
'et s'il n'existe pas il y a création

DossierTransport = sh.Range("L18").Value

MyPath = MyPath & "\" & DossierTransport

MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath ' on se positionne au bon endroit

'if range("L17").value like.... ' note L17 doit être entre crochets
    If sh.Range("L17").Value Like "Transport :" Then
       'en mettant Sh.name le fichier Pdf portera le nom de la feuille

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            MyPath & "\" & sh.Name, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If
    
    MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1)
    
Next

End Sub

hyneryl_ramundas · Answer

Bon ben désormais, ça marche pour creer des repertoires tous placés dans la racine du meme repertoire.

Par contre, pour changer le nom des fichiers PDF, de la forme suivante : 
YYYYMMDD_pasiulymas_ramundas_(LANGUE).PDF 

En effet, je voudrais revoir le code de façon à ce que 
la macro ne fasse pas pour toutes les pages la version pdf en fonction du prix qui se trouve déjà dans la case L18, 

mais plutôt que à ce qu'elle fasse pour la page où l'utilisateur clique sur le bouton de la macro, 

la meme et unique page, en version PDF, mais à chaque valeur du transport.

Pourrais-tu tenter de revoir ton code s'il te plait ?

Merci d'avance.
HYNERYL

Bidouilleu_R · Answer

Sub test3()
'
' test3 Macro
'

'

Dim sh As Variant
Dim MyPath As String  ' le chemin
Dim MyName As String  ' l'entrée du repertoire ou le fichier
Dim DossierTransport As String  ' le numero pour créer le dossier
Dim LaDate As Date ' la date du jour
Dim ChaineDate As String 'contient la date en chaine
Dim TempMois As String
Dim TempJour As String
Dim Utilisateur As String ' contient le nom pour créer le PDF
Dim Langue As String  ' contient la langue (2 lettres)
Dim NomFichier As String ' le nomdéfinitif du fichier

LaDate = Format(Date, "yyyy/mm/dd")

TempMois = CStr(Month(LaDate))
If Len(TempMois) < 2 Then TempMois = "0" & TempMois
TempJour = CStr(Day(LaDate))
If Len(TempJour) < 2 Then TempJour = "0" & TempJour
ChaineDate = CStr(Year(LaDate)) + TempMois + TempJour
'***********************************************

Utilisateur = "_pasiulymas_ramundas_"

'***********************************************
' la langue sera gérée dans la boucle


MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
MyName = Dir(MyPath, vbDirectory)
If MyName = "" Then
    MkDir MyPath
End If
ChDir MyPath
'ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
For Each sh In Worksheets

    sh.Select
    'le nom du fichier en sortie devient
    Langue = Left(sh.Name, 2) ' 2 charactères pour la langue
    NomFichier = ChaineDate + Utilisateur + Langue

    'je vérifie l'existance du sousrépertoire
    'et s'il n'existe pas il y a création

    DossierTransport = sh.Range("L18").Value

    MyPath = MyPath & "\" & DossierTransport
    'MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
    MyName = Dir(MyPath, vbDirectory)
    If MyName = "" Then
         MkDir MyPath
    End If
    ChDir MyPath ' on se positionne au bon endroit

    If sh.Range("L17").Value Like "Transport :" Then
       'en mettant Sh.name le fichier Pdf portera le nom de la feuille

        sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            MyPath & "\" & NomFichier, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If
    
    MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1)
    
Next
Sheets(4).Select
End Sub

Normalement ça marche chez moi...

hyneryl_ramundas · Answer

Deja merci encore pour la correction pour les noms des pdf.
C'est exactement les noms de pdf que je cherchais à obtenir au final.


Cependant, ça crée encore et toujours le pdf de chacune des pages selon la valeur déjà présente dans la cellule L18 de chacune des pages.

Or je voudrais que pour une seule page, par exemple, la page FR, on puisse créer les 120 pdf différents 
correspondants à chaque valeur du transport ( de 0 à 3000EUR). Je comptais plutôt mettre une macro par page ou bien par langue donc, mais est-ce que c'est bon ? 

Ou alors, plutot réaliser les 120 pdf différents pour les pages EN, FR, IT, DE, ESP et LT uniquement.
En plus, j'aurai besoin de réaliser les 120 pdf différents pour les pages SAND aussi.

Mais bon, le probleme est que l'utilisateur (le commercial), ne va vouloir réaliser que les 120 pdf de la langue qu'il utilise auprès des clients, et pas les 120 x 6langues, tu vois ce que je veux dire.

Comment faire pour que l'utilisateur, appuyant sur un bouton en page FR, puisse réaliser les 120 pdf différents, uniquement pour la page FR, mais en plusieurs versions différentes dépendant de la valeur du transport en L18, qui peut etre de 0 à 3000 chaque 25 EUR.

De meme pour l'utilisateur de la page EN, ou IT, ou DE, ou ESP, ou LT, il y aurait comme en FR K18 un bouton intitulé PDF qui ferait marcher la macro, qui devrait dépendre de la page où l'utilisateur se trouve lorsqu'il appuie sur le bouton pour realiser les 120 versions des pdf dans les sous-repertoires du repertoire PASIULYMAI.

Tu comprends ?
Merci d'avance,

HYNERYL

Bidouilleu_R · Answer

bon je reprend ton explication et j'essaye de comprendre...


Cependant, ça crée encore et toujours le pdf de chacune des pages selon la valeur déjà présente dans la cellule L18 de chacune des pages. 
ben! oui puisque je récupère cette valeur pour former le nom du dossier... et quand le dossier change
la feuille se place dans le nouveau dossier.

Or je voudrais que pour une seule page, par exemple, la page FR, on puisse créer les 120 pdf différents 
correspondants à chaque valeur du transport ( de 0 à 3000EUR). Je comptais plutôt mettre une macro par page ou bien par langue donc, mais est-ce que c'est bon ? 

dans ce cas il vaudrais mieux choisir la langue dès le départ
Est-ce que les 18 feuilles que je vois correspondent à tes 120 feuilles....

Ou alors, plutot réaliser les 120 pdf différents pour les pages EN, FR, IT, DE, ESP et LT uniquement. 
En plus, j'aurai besoin de réaliser les 120 pdf différents pour les pages SAND aussi. 

Mais bon, le probleme est que l'utilisateur (le commercial), ne va vouloir réaliser que les 120 pdf de la langue qu'il utilise auprès des clients, et pas les 120 x 6langues, tu vois ce que je veux dire. 

Cela me parait logique : le reste ne l'intéresse pas

Comment faire pour que l'utilisateur, appuyant sur un bouton en page FR, puisse réaliser les 120 pdf différents, uniquement pour la page FR, mais en plusieurs versions différentes dépendant de la valeur du transport en L18, qui peut etre de 0 à 3000 chaque 25 EUR. 

là je suis pas sur d'avoir compris...
en Fr je vois 3 feuilles... il y a 6 langues.
pas la peine d'aller plus loin.
moi je ne vois que 6 langues x 3feuilles  = 18 feuilles
le traitement se fait comme ça

1 )prend la date actuelle met la en yyyymmdd
    ajoute _utilisateur_
    ajoute la langue 
    tu as le nom du fichier

2) construit le dossier
   regarde s'il existe sinon il faut le créer
3) pour chaque feuille ( sh) dans le classeur
    sélectionne la feuille
    récupère la lange ( on en a besoin pour le fichier exporter)
    si il y a transport en l17 on export sinon on fait rien

4) réinitialiser la variable du chemin

mais ce que tu demandes maintenant ne corrspond pas à ce que tu demandais avant.

on peut faire un choix de la langue dès le départ ... mais là il faut que tu m'aides...
dans l'ordre 
on saisit la langue
on crée un dossier de référence PASIULYMAI qui contiendra les sous dossier transport 0-3000
avec chaque feuilles je fais quoi ...?

hyneryl_ramundas · Answer

Salut Bidouilleur_R, 

Je vois que tu ne t'aperçois seulement que maintenant, que ça n'était pas totalement comme ça que je l'avais demandé dès le départ. Mais je veux bien croire, que vue la complexité de la réflexion de ces macros, j'ai du surement mal m'exprimer dès le départ aussi, et donc, il a pu y avoir cet amalgame. 

Alors, je voudrais juste essayer de préciser ma penser sur l'utilisation de cette macro.

L'utilisateur ne va devoir réaliser les versions PDF que de la feuille EN, ou FR ou DE, ou ESP, ou IT ou LT.
Car chaque utilisateur ne travaille pas forcément avec des clients de ces langues là.

Donc oui, il doit à mon avis aussi, un choix de la langue dès le départ.


Ensuite, j'ai encore revu par rapport au transport on peut déjà faire de 0 à 2000 EUR au lieu de faire à l'origine de 0 à 3000. Ca nous remet à 80 versions différentes de l'offre en pdf au lieu de 120.
On peut dire que la feuille FR donnera 80 versions pdf différentes selon le transport.
Si mon collegue commercial taffe plutôt avec une clientèle anglophone, il devra cliquer sur le bouton de la macro en K18 sur la page EN et celle-ci lui créerai donc 80 version pdf de la feuille EN.
Ainsi de suite si les clients de mes collegues sont italophones, germanophones, ispanophones ou lituanophones.


Donc oui, on saisit la langue, mais je pense que la macro n'a rien a voir dans le choix de la langue, c'est plutot la macro qui doit réaliser des actions sur la page d'où est lancée la macro.

Ensuite, on crée un dossier de référence PASIULYMAI qui contiendra les sous dossier transport 0-2000


Par contre, avec chaque feuilles je fais quoi ...?
Et bien, il n'y a pas à appliquer cette macro à chaque feuille justement, mais juste à la feuille à partir de laquelle est demandée (appliquée ou cliquée) la macro grâce au bouton.
C'est ça que je n'arrivais pas à te faire comprendre depuis quelques messages déjà.

Donc, je récapitule, une page est à l'origine de la demande de la macro.
Celle-ci réalisera les sous-repertoires dans le dossier PASIULYMAI, 
et réalisera donc les 80versions différentes pdf dans chacun des sous-rép de Pasiulymai.

Je veux bien t'aider plus.
Merci encore pour ton concours dans ma requête.

Hyneryl

hyneryl_ramundas · Answer

EXTRAIT du premier message : 

"Macro Boucle Cells Range
Dernière réponse le 9 oct 2009 à 14:04:10 Hyneryl, le 7 oct 2009 à 14:39:10 
 Signaler ce message aux modérateurs Ajouter à mes alertes (mes interventions)
Statut: Non résolu Résolu

Bonjour,

J'utilise Excel 2007, VB editor 6.5.
Je souhaite créer une commande macro qui puisse me permettre de créer une version PDF de mon fichier Excel.
Mon fichier excel comprend plusieurs feuilles à imprimer puis une feuille comprenant la Cells Range utilisée en Data Validation dans la zone non imprimable de chaque feuille dont la zone d'impression est importante à imprimer.
Je voudrai créer chaque pdf de ce fichier correspondant à chaque valeur de la Cells Range intitulée "Transportai". Il y a un tarif de transport qui part de 0 jusqu'à 3000 EUR et qui change tous les 25 EUR.

A chaque valeur de transport, je veux créer une version pdf de mon fichier,
en créant sur le desktop un nouveau répertoir "Offres",
comprenant un lui même un sous répertoire intitulé "valeur du transport" (par exemple 0, puis un autre 25, un autre 50 etc... jusqu'à 3000).
Chacun de ces répertoires comprendra une version PDF de mon fichier excel. "


J'ai peut-etre fait une erreur en m'exprimant ainsi "fichier excel" plutôt qu'en disant de ma feuille à partir de laquelle l'utilisateur clique sur le bouton de la macro.

Bidouilleu_R · Answer

ça y est j'ai compris !

les feuilles n'existe pas il faut ( il y en a seulement une FR par exemple)

et dans cette feuille il faut faire varier de 25 à 2000 au pas de 25
créer le répertoire et y mettre la feuille ainsi modifiée.

desktop\offres\25\20091009_user_FR.pdf
                      \50\20091009_user_FR.pdf
                      \100\20091009_user_FR.pdf
etc...
Tu dis avant que je travaille

hyneryl_ramundas · Answer

EUREKA ! 
C'est bien cela oui, tu as compris c'est bien cela que je voudrais obtenir.

Sauf que c'est bien à partir de la valeur 0 (pour le transport) mais pas à partir de 25 qu'il me faudrait les pdfs, 

desktop\offres\0\20091009_user_FR.pdf

desktop\offres\25\20091009_user_FR.pdf
\50\20091009_user_FR.pdf
\100\20091009_user_FR.pdf 

etc... jusqu'a 2000.

Avant je travaillais, mais je suis completement pommé dans ces boucles et dans l'univers du VB code que je dois reconnaitre que je t'ai laissé l'initiative :).

Merci encore.

HYNERYL

hyneryl_ramundas · Answer

Pourquoi le répertoire 0 est nécessaire, c'est parce que nous en tant que commerciaux, nous devons pouvoir proposer les offres EX-Works (EXW = incoterme donnant le prix sans transport, sorti d'usine).
Dès qu'il y a un transport, nous proposons les tarifs DDU (Delivery Duty Unpaid, ou Rendu Droits dus en français).

Pourquoi 3000EUR n'est plus important ? ben tu le comprends par toi-meme, il ne vaut mieux pas lancer des offres ou le transport représenterait les 3/4 du prix de vente du produit sorti d'usine.

Autant partir de l'usine (soit répertoire zero "0"), et aller jusqu'au transport de 2000EUR "2000".

HYNERYL

Bidouilleu_R · Answer

Pour récompenser ta patience : - ) ça devrait le faire... Sub test3() ' ' test3 Macro ' ' Dim MyPath As String ' le chemin Dim MyName As String ' l'entrée du repertoire ou le fichier Dim DossierTransport As String ' le numero pour créer le dossier Dim LaDate As Date ' la date du jour Dim ChaineDate As String 'contient la date en chaine Dim TempMois As String Dim TempJour As String Dim Utilisateur As String ' contient le nom pour créer le PDF Dim Langue As String ' contient la langue (2 lettres) Dim NomFichier As String ' le nomdéfinitif du fichier Dim I As Integer ' compteur Dim TabLangue(6) As String TabLangue(0) = "EN" TabLangue(1) = "FR" TabLangue(2) = "IT" TabLangue(3) = "DE" TabLangue(4) = "ESP" TabLangue(5) = "LT" ' ici la boucle pour le choix des langue While Langue = "" Langue = InputBox("choisissez la langue..." & Chr(10) & Chr(10) & "Click sur annuler " & Chr(10) & "pour changer de langue " & Chr(10) & Chr(10) & "....> suivant ", "choix de la langue", TabLangue(I)) I = I + 1 If I > UBound(TabLangue) Then Exit Sub Wend LaDate = Format(Date, "yyyy/mm/dd") TempMois = CStr(Month(LaDate)) If Len(TempMois) < 2 Then TempMois = "0" & TempMois TempJour = CStr(Day(LaDate)) If Len(TempJour) < 2 Then TempJour = "0" & TempJour ChaineDate = CStr(Year(LaDate)) + TempMois + TempJour '*********************************************** Utilisateur = "_pasiulymas_ramundas_" '*********************************************** ' la langue sera gérée dans la boucle MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI" MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath 'ChDir "C:\Documents and Settings\Admin\Desktop\PASIULYMAI" Sheets(Langue).Select ' on sélectionne la feuille de la langue 'celle-ci sera exportée 80 fois ou plus Application.ScreenUpdating = False For I = 0 To 2000 Step 25 Sheets(Langue).Range("L18").Value = I 'on place la valeur du transport 'le nom du fichier en sortie devient NomFichier = ChaineDate + Utilisateur + Langue 'je vérifie l'existance du sousrépertoire 'et s'il n'existe pas il y a création 'création des 80 ou plus DossierTransport = Sheets(Langue).Range("L18").Value ' ou i MyPath = MyPath & "\" & DossierTransport 'MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI" MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath ' on se positionne au bon endroit 'if range("L17").value like.... ' note L17 doit être entre crochets If Sheets(Langue).Range("L17").Value Like "Transport :" Then 'en mettant Sh.name le fichier Pdf portera le nom de la feuille Sheets(Langue).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1) Next Application.ScreenUpdating = True Sheets(Langue).Select End Sub

Bidouilleu_R · Answer

la feuille Langue_Sand doit-elle être placée dans chaque dossier .. 0 25 50 ... 2000 ou non ?
je te rajouterai un bout de code...
si besoin

hyneryl_ramundas · Answer

Oui, la version PDF de la feuille LANGUE_Sand, 

devra etre placée dans les memes sous-rep réalisés grace à la macro que tu viens de m'offrir et qui marche. 

Encore merci pour tes efforts et ton génie dans les macros.

Cependant, il faudra modifier le titre des pdf en mettant "YYYYMMDD_promotions_ramundas_LANGUE.pdf"

hyneryl_ramundas · Answer

Bien que j'ai pu dire de modifier les intitulés des pdfs des feuilles LANGUE_SAND tout à l'heure, je vais confirmer tout de meme ceci.

Par contre, pour  plus de lisibilité crois-tu que les commerciaux puissent mieux comprendre en retrouvant les offres differentes dans des repertoires identiques ?
Ou plutot est-ce que tu ne penses pas que ce soit mieux si on pouvait realiser un repertoire LANGUE (soit EN, soit FR, soit DE, IT, LT ou ESP), et un autre repertoire dans PASIULYMAI, intitulé quant-à lui "SANDELYJE", dans lesquels on pourra mettre les sous-répertoire de transport 0 à 2000
?

De plus, je voulais élucider un léger problème mais de taille tout de même.
Les ordis des commerciaux sont reliés en réseau. Sauf que chacun des ordis n'utilisent pas le meme OS
(certains dont moi, utilisent XP, d'autres Vista malheureusement).

Que ce soit pour l'un ou pour l'autre des OS, le code de la macro doit donner un chemin d'acces identique pour tous les ordinateurs. Jusqu'ici sur cette question, je ne dis pas de conneries j'espère ;) !

Donc, ne crois-tu pas qu'il vaudrait mieux modifier le chemin d'accès ci après : 
MyPath = "C:\Documents and Settings\Admin\Desktop\PASIULYMAI"
en 
MyPath = "C:\Documents and Settings\All Users\Desktop\PASIULYMAI"

car tous les ordinateurs n'ont pas le meme nom d'utilisateurs.
Cependant, est-ce que ce chemin d'accès pourrait correspondre à une arborescence VISTA ?

Sinon, autant réduire le chemin d'accès au minimum, 
peut-etre mettre un chemin d'accès du genre : 

MyPath = "C:\PASIULYMAI"
ou alors 
MyPath = "D:\PASIULYMAI"

Merci encore, 
Hyneryl

Bidouilleu_R · Answer

j'ai noté tes remarques,
si j'ai le temps je travaille dessus
pour la feuille sand et le dossier c'est facile

pour le Path le c:\PASIULYMAI" ou le d:\... sera le mieux
pour vista le chemin sera en effet différent 
même si on peux accéder directement à desktop (bureau) tout le monde accède à son bureau.
mais je pense que le c:\... reste le plus simple.

pour le moment je suis pris sur un autre truc.

hyneryl_ramundas · Answer

Shell ("explorer.exe " & ThisWorkbook.Path & TextBox2), 1 J'ai pensé à ce code, ça pourrait répondre à mon attente de pouvoir réaliser une commande macro unique, sans que le systeme d'operation ne soit un probleme je pense. Dans ce cas, il faudrait remanier le code de ta macro dans le passage MyPath en mettant : MyPath = ThisWorkbook.Path & PASIULYMAI ou bien MyPath = ThisWorkbook.Path & "\" & PASIULYMAI je ne sais pas soit l'un soit l'autre car apres dans la ligne ChDir MyPath, ça me met du coup, 2antislashes au lieu d'un si je mets ThisWorkbook.Path & "\" & PASIULYMAI et ça me bloque ensuite au passage ci : Sheets(Langue).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False (ça me met toujours MyPath équivalent au chemin d'accès suivi de \ et du titre du sous-rep 0 par exemple car c'est le premier sous-repertoire que la macro va créer). Je te joinds le code que jai tente de realiser j'y ai ajoute une ouverture du dossier PASIULYMAI a la fin de lexecution de la macro, mais jy ai pour le moment une erreur dans le passage cidessus. Sub test3() ' ' test3 Macro ' ' Dim MyPath As String ' le chemin Dim MyName As String ' l'entrée du repertoire ou le fichier Dim DossierTransport As String ' le numero pour créer le dossier Dim LaDate As Date ' la date du jour Dim ChaineDate As String 'contient la date en chaine Dim TempMois As String Dim TempJour As String Dim Utilisateur As String ' contient le nom pour créer le PDF Dim Langue As String ' contient la langue (2 lettres) Dim NomFichier As String ' le nomdéfinitif du fichier Dim I As Integer ' compteur Dim TabLangue(6) As String TabLangue(0) = "EN" TabLangue(1) = "FR" TabLangue(2) = "IT" TabLangue(3) = "DE" TabLangue(4) = "ESP" TabLangue(5) = "LT" ' ici la boucle pour le choix des langue While Langue = "" Langue = InputBox("choisissez la langue..." & Chr(10) & Chr(10) & "Click sur annuler " & Chr(10) & "pour changer de langue " & Chr(10) & Chr(10) & "....> suivant ", "choix de la langue", TabLangue(I)) I = I + 1 If I > UBound(TabLangue) Then Exit Sub Wend LaDate = Format(Date, "yyyy/mm/dd") TempMois = CStr(Month(LaDate)) If Len(TempMois) < 2 Then TempMois = "0" & TempMois TempJour = CStr(Day(LaDate)) If Len(TempJour) < 2 Then TempJour = "0" & TempJour ChaineDate = CStr(Year(LaDate)) + TempMois + TempJour '*********************************************** Utilisateur = "_pasiulymas_padeklu_ramundas_" '*********************************************** ' la langue sera gérée dans la boucle MyPath = ThisWorkbook.Path & PASIULYMAI MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath 'ChDir ThisWorkbook.Path & PASIULYMAI Sheets(Langue).Select ' on sélectionne la feuille de la langue 'celle-ci sera exportée 80 fois ou plus Application.ScreenUpdating = False For I = 0 To 2000 Step 25 Sheets(Langue).Range("L18").Value = I 'on place la valeur du transport 'le nom du fichier en sortie devient NomFichier = ChaineDate + Utilisateur + Langue 'je vérifie l'existance du sousrépertoire 'et s'il n'existe pas il y a création 'création des 80 ou plus DossierTransport = Sheets(Langue).Range("L18").Value ' ou i MyPath = MyPath & DossierTransport 'MyPath = ThisWorkbook.Path & PASIULYMAI MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath ' on se positionne au bon endroit 'if range("L17").value like.... ' note L17 doit e^tre entre crochets If Sheets(Langue).Range("L17").Value Like "Transport :" Then 'en mettant Sh.name le fichier Pdf portera le nom de la feuille Sheets(Langue).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1) Next Application.ScreenUpdating = True Sheets(Langue).Select Shell ("explorer.exe " & ThisWorkbook.Path & "\" & PASIULYMAI & TextBox2), 1 End Sub

Bidouilleu_R · Answer

j' ai modifié le fichier pour intégrer le thisworkbook.path on fait donc thisworkbook.path ( endroit ou est enregistré le fichier) ..\PASIULYMAI\0\2 fichier pdf Sub test3() ' ' test3 Macro ' ' Dim MyPath As String ' le chemin Dim LgInit As Integer ' la longueur du chemin MyPath Dim MyName As String ' l'entrée du repertoire ou le fichier Dim DossierTransport As String ' le numero pour créer le dossier Dim LaDate As Date ' la date du jour Dim ChaineDate As String 'contient la date en chaine Dim TempMois As String Dim TempJour As String Dim Utilisateur As String ' contient le nom pour créer le PDF Dim Langue As String ' contient la langue (2 lettres) Dim NomFichier As String ' le nomdéfinitif du fichier Dim NomFichier2 As String ' le nom du fichier pdf Sand à exporter Dim FeuilleSand As String ' le nom d'onglet --feuille Sand Dim I As Integer ' compteur Dim TabLangue(6) As String TabLangue(0) = "EN" TabLangue(1) = "FR" TabLangue(2) = "IT" TabLangue(3) = "DE" TabLangue(4) = "ESP" TabLangue(5) = "LT" While Langue = "" Langue = InputBox("choisissez la langue..." & Chr(10) & Chr(10) & "Click sur annuler " & Chr(10) & "pour changer de langue " & Chr(10) & Chr(10) & "....> suivant ", "choix de la langue", TabLangue(I)) I = I + 1 If I > UBound(TabLangue) Then Exit Sub Wend LaDate = Format(Date, "yyyy/mm/dd") TempMois = CStr(Month(LaDate)) If Len(TempMois) < 2 Then TempMois = "0" & TempMois TempJour = CStr(Day(LaDate)) If Len(TempJour) < 2 Then TempJour = "0" & TempJour ChaineDate = CStr(Year(LaDate)) + TempMois + TempJour '*********************************************** Utilisateur = "_pasiulymas_ramundas_" '*********************************************** ' la langue sera gérée dans la boucle MyPath = ThisWorkbook.Path MyPath = MyPath + "\PASIULYMAI" MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath Sheets(Langue).Select ' on sélectionne la feuille de la langue 'celle-ci sera exportée 80 fois ou plus Application.ScreenUpdating = False For I = 0 To 2000 Step 25 Sheets(Langue).Range("L18").Value = I 'on place la valeur du transport 'le nom du fichier en sortie devient NomFichier = ChaineDate + "_Promotion_Rasmundas_" + Langue NomFichier2 = ChaineDate + "_Sand_" + Langue 'je vérifie l'existance du sousrépertoire 'et s'il n'existe pas il y a création 'création des 80 ou plus DossierTransport = Sheets(Langue).Range("L18").Value ' ou i MyPath = MyPath & "\" & DossierTransport MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath ' on se positionne au bon endroit 'if range("L17").value like.... ' note L17 doit être entre crochets If Sheets(Langue).Range("L17").Value Like "Transport :" Then 'en mettant Sh.name le fichier Pdf portera le nom de la feuille Sheets(Langue).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False FeuilleSand = Langue + "_Sand" Sheets(FeuilleSand).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier2, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If MyPath = Mid(MyPath, 1, Len(MyPath) - Len(DossierTransport) - 1) LgInit = Len(MyPath) 'On ajoute le répertoire SANDELYJE MyPath = MyPath & "\SANDELYJE" MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath ' on se positionne au bon endroit 'On ajoute le répertoire SANDELYJE\0 ...2000 MyPath = MyPath & "\" & I MyName = Dir(MyPath, vbDirectory) If MyName = "" Then MkDir MyPath End If ChDir MyPath ' on se positionne au bon endroit 'on peut ajouter une feuille Ici Sheets(Langue).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Sheets(FeuilleSand).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyPath & "\" & NomFichier2, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False 'on revient à la racine MyPath = Left(MyPath, LgInit) ChDir (MyPath) Next Application.ScreenUpdating = True Sheets(Langue).Select End Sub

hyneryl_ramundas · Answer

Je te remercie pour ce nouveau code qui marche normalement, sous MS OFFICE 2007.

Cependant, j'ai une question.
J'ai encore une question par rapport aux versions différentes de MS Office parmi tous mes collègues.

En effet, j'ai des collègues qui possèdent encore la version MS OFFICE 2003.
Et j'ai pu tester avec deux ordis dont les excels tournent sous cette version, la zone 
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ne fonctionne pas.

Je ne sais pas, mais je pense que la version 2003 n'accepte pas le SAVE AS *.pdf autrement dit, xlTypePDF en VB.

Pourrait-on vraiment sauvegarder cette offre en format PDF sous MS Office 2003 ???
Ou faudra-t-il inclure des lignes dans le code, afin que la macro puisse vérifier la version de Excel utilisée, 
et appliquer si c'est 2007, le code actuel, si c'était 2003, un autre code adapté ?

Merci encore pour ce dernier problème.
HYNERYL

Bidouilleu_R · Answer

Bonjour,
face à ce nouveau problème, je n'ai pas de réponse.
Office 2007 exporte en format pdf, Office 2003 ne le fait pas.
Est-ce possible?  Sans doute, mais je ne l'ai jamais fait.

Une solution simple serai imprimer le fichier en installant un module comme
PDF995 ou un autre ce petit soft (gratuit) se comporte comme une imprimante et crée
des document PDF au lieu de les diriger vers l'imprimante.

Il serait possible de faire un   ".print..." classique en prenant en compte cette imprimante génératrice de PDF
Faire ce choix ne m'appartient pas.
Je te rappelle que tu es sur un forum d'entraide.
On peut conseiller mais pas décider pour les autres.
Je te souhaite une bonne journée.

Et si tu penses que c'est ok .... passe le premier post en résolu.
Merci

R

hyneryl_ramundas · Answer

Bidouilleu_R, 

rebonjour, 

j'ai d'ores et déjà appliqué le résultat "Résolu" à tes postes.

Cependant, il existe bel et bien, le logiciel Primo pdf que nous utilisons pour les anciennes versions de MS Office afin de pouvoir créer les pdf de nos feuilles excel ou word 2000/2003.

Dans ce cas, quelle serait la possibilité afin de pouvoir faire en sorte que cette macro du poste 42, soit valable pour la version 2007, et si la version est antérieure à 2007, ben que ça puisse passer par l'imprimante tampon de primo pdf ?

Macro Boucle Cells Range

44 réponses

Discussions similaires