Macro qui fonctionne sous PC mais pas sous MAC
Fermé
Valérie
-
Modifié par Valérie le 11/10/2016 à 11:06
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 11 oct. 2016 à 17:17
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 11 oct. 2016 à 17:17
A voir également:
- Macro qui fonctionne sous PC mais pas sous MAC
- Mon pc s'allume mais ne démarre pas windows 10 - Guide
- Pc qui rame - Guide
- Test performance pc - Guide
- Reinitialiser pc - Guide
- Adresse mac - Guide
4 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 11/10/2016 à 12:52
Modifié par Mike-31 le 11/10/2016 à 12:52
Bonjour,
Bizarre que le code fonctionne avec Bouton51, tu utilises bien le bouton ActiveX et tu colles le code
Private Sub CommandButton1_Click()
End Sub
sinon tu crées un module dans le Visual Basic puis une macro
exemple
Sub Facture()
End Sub
tu colles le code et clic droit sur le bouton/Affecter une macro et tu pointes sur le titre du code Facture
Info1 = Range("C24")
Chemin = ThisWorkbook.Path & "\Factures au Format PDF\"
If Dir(Chemin & Info1 & "-" & ".Pdf") = "" Then
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=Chemin & Info1 & "-" & ".Pdf", Quality:=x1QualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, _
To:=1, OpenAfterPublish:=True
Else
MsgBox "Veuillez générer un nouveau numéro de facture en C24", , _
"La facture " & Info1 & "-" & ".Pdf" & " existe déjà dans le répertoire"
End If
[C24].Select
es ce que le fichier qui contient le code VBA est dans le même répertoire ou au même niveau que le dossier Factures au Format PDF
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Bizarre que le code fonctionne avec Bouton51, tu utilises bien le bouton ActiveX et tu colles le code
Private Sub CommandButton1_Click()
End Sub
sinon tu crées un module dans le Visual Basic puis une macro
exemple
Sub Facture()
End Sub
tu colles le code et clic droit sur le bouton/Affecter une macro et tu pointes sur le titre du code Facture
Info1 = Range("C24")
Chemin = ThisWorkbook.Path & "\Factures au Format PDF\"
If Dir(Chemin & Info1 & "-" & ".Pdf") = "" Then
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=Chemin & Info1 & "-" & ".Pdf", Quality:=x1QualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, _
To:=1, OpenAfterPublish:=True
Else
MsgBox "Veuillez générer un nouveau numéro de facture en C24", , _
"La facture " & Info1 & "-" & ".Pdf" & " existe déjà dans le répertoire"
End If
[C24].Select
es ce que le fichier qui contient le code VBA est dans le même répertoire ou au même niveau que le dossier Factures au Format PDF
A+
Mike-31
Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.
Bonjour Mike
Les deux fichiers celui qui contient le code et là ou j'enregistre sont dans le même répertoire.
Merce
Les deux fichiers celui qui contient le code et là ou j'enregistre sont dans le même répertoire.
Merce
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 214
Modifié par eriiic le 11/10/2016 à 16:14
Modifié par eriiic le 11/10/2016 à 16:14
Bonjour à tous,
Mac n'utilise pas le même séparateur pour les chemins : et non \
Reconstruit-les en utilisant Application.Path.Separator
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Mac n'utilise pas le même séparateur pour les chemins : et non \
Reconstruit-les en utilisant Application.Path.Separator
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 11/10/2016 à 18:12
Modifié par Mike-31 le 11/10/2016 à 18:12
Bonjour,
Ah oui c'est vrai, et je n'ai plus de mac sous la main pour tester
essaye voir mes souvenirs avec ce bout de code pour simplement ouvrir un fichier existant dont tu mettras le nom en cellule C24
si ça marche on gérera l'erreur pour que le code fonctionne sur les deux types d'ordinateur
Ah oui c'est vrai, et je n'ai plus de mac sous la main pour tester
essaye voir mes souvenirs avec ce bout de code pour simplement ouvrir un fichier existant dont tu mettras le nom en cellule C24
Dim MonChemin As String
Info1 = Range("C24")
MonChemin = ThisWorkbook.Path & Application.PathSeparator
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=MonChemin & Info1 & "-" & ".Pdf", Quality:=x1QualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, _
To:=1, OpenAfterPublish:=True
si ça marche on gérera l'erreur pour que le code fonctionne sur les deux types d'ordinateur