Discussion :

[cvarici]

bonjour ,
je rencontre un problème avec une macro vba excel 10
jusqu'à présent elle fonctionnait correctement maintenant j'ai une erreur

macro défaillante ci dessous

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
Sub Enregistrementdevis()
'  variables
Dim NomDossier As String
Dim Chemin As String
 
' je  nomme le dossier  et  donne  le  chemin de sauvegarde D:\DEVIS_FACTURES
 
    NomDossier = Application.InputBox("Enregistrement DEVIS:", "Années  ?")
    Chemin = "D:\DEVIS_FACTURES " & NomDossier & "\"
        If NomDossier = "" Then Exit Sub
 
 'enregistre fichier en pdf. PRECISIONS  la  cellule D4 du "classeur Devis"  contient un format personnalisé aaaammjjhhmm comme suit avec la  fonction maintenant() ex: 201905211801 la cellule b8 contient  le  nom du client
 
 
 
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
 Chemin & "DevisN°_" & Range("D4").Value & Range("B8").Value & ".pdf", quality:= _
 xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
 from:=1, to:=1, openafterpublish:=False  ' l'ARRET DE LA  MACRO SE FAIT ICI

Code :

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

1
2
3
4
5
6
 'enregistre fichier en xlsm
 
ActiveWorkbook.SaveCopyAs Chemin & "DEVISNumero_" & Range("D4").Value & Range("B8").Value & " .xlsm"
 
 
End Sub

Merci d'avance de votre aide

[clementmarcotte]

Bonjour,

Moi, ce que l'en dis c'est que Excel 10 c'était Excel 2002; et que Excel 2002 ne pouvait pas enregistrer directement en PDF.

Si tu parles de Excel 2010 (Excel 14, parce qu'il n'y a jamais eu d'Excel 13) essaie au pas à pas avec les espions qui conviennent ou la fenêtre variables locales. Vérifie bien si tu as les bonnes valeurs et qu'il n'y a pas d'espaces parasites à quelque part. S'il y a eu des mises à jour, ou un changement de Windows, regarde si ce n'est pas un problème de droits d'accès.

P.S. Là, je parle de MA religion, et tu n'es pas obligé de m'imiter; mais c'est pour cela que je préfère faire les opérations de concaténation et des calculs en plusieurs étapes plutôt que de tout foutre sur une ligne. C'est mauditement plus simple à déboguer, même si cela peut sembler "amateur".

[Pierre Fauconnier]

Salut.

Vu l'illustration, il ne peut s'agir de XL2002 puisque le fichier est nommé xlsm (qui plus est, la discussion est taguée XL-2010...)

CVarici: Sur quelle ligne ton code plante-t-il? La sauvegarde en pdf ou la ligne de code que tu donnes après pour la copie en xlsm... Quoi qu'il en soit, le message d'erreur est explicite et il semble donc dire qu'un fichier du même nom que celui que tu tentes d'enregistrer est déjà ouvert (et donc verrouillé)

[...]
P.S. Là, je parle de MA religion, et tu n'es pas obligé de m'imiter; mais c'est pour cela que je préfère faire les opérations de concaténation et des calculs en plusieurs étapes plutôt que de tout foutre sur une ligne. C'est mauditement plus simple à déboguer, même si cela peut sembler "amateur".

Je voudrais pouvoir te plusser 1000 fois!

[clementmarcotte]

Bonjour,

Salut.

(qui plus est, la discussion est taguée XL-2010...)


Je voudrais pouvoir te plusser 1000 fois!

Désolé. mais chez-moi, il n'y a aucun tag. (Microsoft Edge). C'est probablement un problème HTML.

[Pierre Fauconnier]

Désolé. mais chez-moi, il n'y a aucun tag. (Microsoft Edge). C'est probablement un problème HTML.

Ah? Moche, ça... Du coup, je comprends mieux ta remarque. Désolé pour ma propre méprise

[clementmarcotte]

Bonjour,

Oups!!! j'ai parlé trop vite. Le tag n'est pas visible sur cette page-ci. Mais il l'est sur la page d'entrée du forum et sur la page des nouveaux messages. Mais, j'ai la mauvaise habitude de ne pas trop regarder le Tag sur la page des derniers messages.

Nouvel aveu: Le tag sur cette page est en vert, et il n'y a pas assez de contrasté avec le bandeau bleu. Il faut regarder l'écran de très près pour le différencier. Je ne suis pas daltonien, mais j'ai certaines difficultés avec certaine couleurs.

[Pierre Fauconnier]

Ok. Merci pour la précision...

Cela dit, je suis à peu près certain que le problème vient d'un mauvais nom, mal construit ou autre, et je replussoie ta remarque de créer calmement le nom du fichier dans une variable pour pouvoir la vérifier facilement en cas de problème. Tu dis que cela peut faire amateur, mais je te jure que pour moi en tout cas, coder de cette façon est bien plus pro que de tenter de tout mettre en une ligne. Sur ce point-là en tout cas, nous avons la même "foi"

[cvarici]

bonjour, merci @ tous de vos réponses , en fait l'erreur venait de la cellule avec un format date ''Range("B8").Value & ".pdf",''et donc refuser le format de la cellule pour enregistrer le nom de fichier tant en pdf qu'en excel . Merci encore de votre intérêt à mon problème de débutant .