Cartes marines et publications nautiques

Les cartes et publications nautiques du Service hydrographique du Canada (SHC) contribuent à la sécurité de la navigation dans les voies navigables du Canada. Parcourez notre catalogue de plus de 2 000 cartes marines et publications en utilisant les liens ci-dessous.

En demande

Services et renseignements

Cartes marines

Acheter des cartes marines pour naviguer ou soumettre une demande pour obtenir des cartes marines pour des buts autres que la navigation.

Publications nautiques

Publications nautiques à utiliser avec les cartes marines, incluant les marées, courants et niveaux de l’eau, les Instructions nautiques et la Carte n° 1.

Cartes marines remplacées et annulées

Liste de toutes les cartes annulées et des cartes actualisées qui les remplacent.

Accord de coordination des cartes marines Canada-É.-U.

Accord pour éliminer la couverture chevauchante des cartes électroniques de navigation.

Guide de planification de navigation en Arctique

Informations à l’intention des navigateurs qui se déplacent dans la région arctique du Canada.

Cartes commémoratives

Cartes produites par le service hydrographique du Canada pour souligner des faits marquants de l’histoire du Canada.

Cartes de formations et exemples

Le SHC met en vente deux cartes marines destinées aux formations, ainsi qu’un exemple de carte marine en divers formats.

Hydrographie

Produits, services et information maritimes qui contribuent à la sécurité des marins.

<% '----------------------------------------------------------------------------------------------------------------------' '-----------------------------------Encoding the page to make the email send out as UTF-8------------------------------' '----------------------------------------------------------------------------------------------------------------------' Response.ContentType = "text/html" Response.AddHeader "Content-Type", "text/html;charset=UTF-8" Response.CodePage = 65001 Response.CharSet = "UTF-8" %>

<% if Session("nZqtiH88nd")="remove" then %>

Signaler un problème ou une erreur sur cette page

Merci de votre aide!

Vous ne recevrez pas de réponse. Pour toute question, contactez-nous.

<% else %> <% end if %> <% '-------------------------------------------------------------------------------------------' '-----------------------only trigger the ASP code when the form POSTs-----------------------' '-------------------------------------------------------------------------------------------' If Request.ServerVariables("Request_Method") = "POST" Then '-------------------------------------------------------------------------------------------' '--------------------------------------recaptcha check--------------------------------------' '-------------------------------------------------------------------------------------------' Dim widgetRecaptchaSecret, widgetSendstring, widgetObjXML, widgetRecaptchaCheck, widgetResponseString widgetRecaptchaSecret = "6LdGyzEaAAAAAAfSTKpfhDex6IFD1HoAXyvlr8Tk" widgetSendstring = "https://www.google.com/recaptcha/api/siteverify?secret=" & widgetRecaptchaSecret & "&response=" & Request.form("g-recaptcha-response") Set widgetObjXML = Server.CreateObject("MSXML2.ServerXMLHTTP") widgetObjXML.Open "GET", widgetSendstring, False widgetObjXML.Send widgetResponseString = split(widgetObjXML.responseText, vblf) Set widgetObjXML = Nothing if Right(widgetResponseString(1),5) = "true," then widgetRecaptchaCheck = true else widgetRecaptchaCheck = widgetResponseString(1) end if Set widgetObjXML = Nothing '-------------------------------------------------------------------------------------------' '-------------redirect variable that is used even if recaptcha is not verified--------------' '-------------------------------------------------------------------------------------------' widgetRedirect = Server.HTMLEncode(trim(Request.QueryString("redirect"))) if widgetRecaptchaCheck = true Then '-------------------------------------------------------------------------------------------' '--------------ASP code to create variables for the values of each form field---------------' '------------------------------HTMLEncode sanitizes the values------------------------------' '-------------------------------------------------------------------------------------------' widgetLang = Server.HTMLEncode(trim(request.form("widgetLang"))) widgetSubject = Server.HTMLEncode(trim(request.form("widgetSubject"))) widgetPageTitle = Server.HTMLEncode(trim(request.form("widgetPageTitle"))) widgetProblem1 = Server.HTMLEncode(trim(request.form("widgetProblem1"))) widgetProblem2 = Server.HTMLEncode(trim(request.form("widgetProblem2"))) widgetProblem3 = Server.HTMLEncode(trim(request.form("widgetProblem3"))) widgetProblem4 = Server.HTMLEncode(trim(request.form("widgetProblem4"))) widgetProblem5 = Server.HTMLEncode(trim(request.form("widgetProblem5"))) widgetProblem6 = Server.HTMLEncode(trim(request.form("widgetProblem6"))) widgetProblem7 = Server.HTMLEncode(trim(request.form("widgetProblem7"))) widgetProblem8 = Server.HTMLEncode(trim(request.form("widgetProblem8"))) widgetProblem9 = Server.HTMLEncode(trim(request.form("widgetProblem9"))) widgetProblem10 = Server.HTMLEncode(trim(request.form("widgetProblem10"))) widgetProblem11 = Server.HTMLEncode(trim(request.form("widgetProblem11"))) widgetProblem12 = Server.HTMLEncode(trim(request.form("widgetProblem12"))) widgetEmailSubject = trim(request.form("widgetPageTitle")) '-------------------------------------------------------------------------------------------' '--------------------------------------build the email--------------------------------------' '-------------------------------------------------------------------------------------------' dim widgetMsg, widgetEmailForm set widgetEmailForm = server.CreateObject ("CDO.Message") widgetEmailForm.From = "CHS-ProdService.XNCR@dfo-mpo.gc.ca" widgetEmailForm.To = "Timothy.Wiens@dfo-mpo.gc.ca" widgetEmailForm.Subject = "Problème de page Web : " & widgetEmailSubject widgetMsg = "" widgetMsg = widgetMsg & "" widgetMsg = widgetMsg & "" widgetMsg = widgetMsg & "" widgetMsg = widgetMsg & "" if widgetProblem1 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem2 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem3 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem4 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem5 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem6 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem7 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem8 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem9 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem10 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem11 <> "" then widgetMsg = widgetMsg & "" else end if if widgetProblem12 <> "" then widgetMsg = widgetMsg & "" else end if widgetMsg = widgetMsg & "

Signaler un problème ou une erreur sur cette page
Language	" & widgetLang & "
Subject	" & widgetSubject & "
Page Title	" & widgetPageTitle & "
widgetProblem1	" & widgetProblem1 & "
widgetProblem2	" & widgetProblem2 & "
widgetProblem3	" & widgetProblem3 & "
widgetProblem4	" & widgetProblem4 & "
widgetProblem5	" & widgetProblem5 & "
widgetProblem6	" & widgetProblem6 & "
widgetProblem7	" & widgetProblem7 & "
widgetProblem8	" & widgetProblem8 & "
widgetProblem9	" & widgetProblem9 & "
widgetProblem10	" & widgetProblem10 & "
widgetProblem11	" & widgetProblem11 & "
widgetProblem12	" & widgetProblem12 & "

" widgetEmailForm.HTMLBody = widgetMsg widgetEmailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 widgetEmailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "CDCSMTP.ent.dfo-mpo.ca" widgetEmailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 widgetEmailForm.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 widgetEmailForm.Configuration.Fields.Update '-------------------------------------------------------------------------------------------' '----if the email is valid then send it and then empty it to prepare for new submissions----' '------use session variable to lock out submissions for 1 minute and change the widget------' '-------------redirect back to widget (anchor) on page widget was submitted on--------------' '-------------------------------------------------------------------------------------------' widgetEmailForm.Send set widgetEmailForm=nothing Session("nZqtiH88nd")="remove" Session.Timeout=1 Response.Redirect(widgetRedirect) Else '-------------------------------------------------------------------------------------------' '----------------------------fallback redirections for failures-----------------------------' '-------------------------------------------------------------------------------------------' if widgetRedirect = "" then Response.Redirect("/index-fra.html") Else Response.Redirect(widgetRedirect) End If End If Else End If %>

Date de modification :

Sélection de la langue

Recherche